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Aller guten Dinge... 


...sind drei. Und dies in doppeltem 
Sinne. Zum einen halten Sie das dritte 
Sonderheft zum C128 in Händen, zum 
anderen soll auf die drei Herzen Ihres 
Computers hingewiesen werden. 

C128, C64, CP/M - diese drei 
Computertypen sind beim Commo- 
dore 128 in einem Gehäuse vereint. 

Für den C64-Modus gibt es nahezu 
alles an Software. Bei der eigentlichen 
Stärke dieses Computers, dem C128- 
Modus, sieht es allerdings nicht 
so rosig aus. Darum haben wir in 
dieser Ausgabe viele interessante 
Listings zusammengestellt. Dieses 
C128-Sonderheft soll Ihnen helfen, 
die Fähigkeiten ihres Computers nicht 
nur besser zu nutzen sondern auch 
wesentlich zu erweitern. 

So war es beispielsweise bislang nicht möglich, die kom¬ 
fortablen Grafik-Befehle des Basic 7.0 im 80-Zeichen- 
Modus zu verwenden. Das Programm »Color-Pack« bietet 
sogar mehr als dies. Eine Auflösung von 640 mal 200 Punk¬ 
ten und Schriften in allen Größen und Richtungen seien als 
zwei Eigenschaften von vielen genannt. 

Die Basic-Erweiterung »Master« richtet unter anderem 
im C128 eine RAM-Disk mit bis zu 58 KByte Größe ein. Hier 
können Sie beispielsweise Programme, Grafik-Bilder oder 
Funktionstasten-Belegungen hinterlegen und blitzschnell 
darauf zugreifen. 

»X-Basic« ergänzt das Basic 7.0 um etliche hilfreiche 
Befehle. Nur ein Beispiel: Auf eine Umwandlungs-Routine 
für Hardcopies, die Multicolor-Grafiken in Graustufen wie¬ 
dergibt, haben Sie vielleicht schon lange gewartet. Zusätz¬ 
lich wird erklärt, wie Sie eigene Basic-Befehle in die 
Interpreter-Routine des Computers einbinden können. 

Faszinierende Grafiken erzeugt der »MSG« (Modul- 
Screen-Generator). Mit einem Trick lassen sich bis zu 999 
dieser Grafiken im Speicher unterbringen und in eigene 
Basic-Programme einbinden. Der Grafikschwerpunkt in 
dieser Ausgabe enthält noch weitere interessante Listings 
wie »Apfelberge«, eine Variante der bekannten Apfelmänn¬ 
chen oder einen Scroll-Generator für farbige Laufschriften. 

Nicht nur Basic-Programmierer, sondern auch Assem¬ 
bler-Fans kommen in diesem Sonderheft auf ihre Kosten. 
Ein Leckerbissen ist der Assembler »Double-Ass«. Beide 
Prozessoren - der 8502 und der Z80 - lassen sich damit 
komfortabel programmieren. Die Prozessor-Codes sind 
sogar innerhalb eines Programms mischbar. Sie können 
Maschinensprache-Routinen, die der Z80 erheblich 


als sein Kollege erledigt, 
diesem Prozessor überlas¬ 
sen. Übrigens, mit »Master« können 
Sie Z80-Routinen auch aus Basic-Pro- 
grammen aufrufen. 

Da Double-Ass hardwaremäßig in 
den Computer integriert werden kann, 
finden Sie in den Grundlagen wichtige 
Informationen überden »freien Steck¬ 
platz«- im alten und neuen C128. Eine 
kurze Einführung in die Z80-Program- 
mierung ist ebenfalls enthalten. 

Durch den 80-Zeichen-Modus ist 
der C128 ausgezeichnet für profes¬ 
sionelle Anwendungen geeignet. 
»Double-Touch« ist eine davon. Wenn 
Sie dieses Listing abgetippt haben 
und zwei 1571-Laufwerke besitzen, 
sparen Sie zukünftig beim Disketten- 
kopieren viel Zeit. Eine komplette Diskette wird in 8 Sekun¬ 
den kopiert. Eine Geschwindigkeit, die auch Besitzer eines 
Personal Computers vor Neid erblassen läßt. 

Wenn Sie ein Freund von Videofilmen sind, können Sie 
ab jetzt das Archivieren Ihrer Kassetten dem C128 überlas¬ 
sen. Doch nicht nur Kassetten müssen archiviert werden. 
Jeder Computerbesitzer wird früher oder später die Über¬ 
sicht verlieren, wenn seine Programme nicht sinnvoll 
geordnet sind. Der »Disk-Manager« hilft dabei enorm. 
Durch individuelle Rubriken und viele Suchfunktionen 
behalten Sie immer den Überblick. Für die wissenschaft¬ 
lich orientierten Leser ist auch eine interessante Anwen¬ 
dung dabei. Wenn Sie demnächst Experimente auswerten 
und einen mathematischen Zusammenhang suchen, kön¬ 
nen Sie diese mühsame Arbeit Ihrem Computer überlas¬ 
sen. Der C128 sucht selbständig die richtige Funktion zu 
Ihren Versuchsergebnissen. 

Viele Tips und Tricks bringen den Programmierern unter 
Ihnen neue Impulse und Arbeitshilfen. Sie erfahren, in wel¬ 
chen ungewöhnlichen Varianten man den Boot-Sektor nut¬ 
zen kann, wie man den Fast-Modus beim 40-Zeichen- 
Bildschirm ohne Bildverlust verwendet, welche Befehle 
einen Interlace-Modus wie beim Amiga generieren, und... 
und... und... 

Natürlich muß man sich auch einmal entspannen. Was 
ist besser dazu geeignet als ein gutes Computerspiel? Nur 
gibt es nicht viele davon für den C 128-Modus. Ein Test infor¬ 
miert Sie über zwei sehr interessante kommerzielle Spiele. 
Zwei Spiele, die Sie sicher begeistern werden, können Sie 
sogar abtippen. Also - hinein ins Vergnügen. 

Ihr Gottfried Knechtei (Redakteur) 
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Grafik 


INHALT 


Soft-Scrolling in Farbe 

Farbige Laufschriften im 80-Zeichen-Modus 
einfach erzeugen 

B 6 


Hochauflösende Grafik im 80-Zeichen-Modus 

Komfortable Grafikbefehle jetzt in einer Auflösung 
von 640 mal 200 Punkten 

H 9 

Apfelberge 

Eine interessante Variante der fraktalen Grafik im 
Multicolor-Modus 

B 17 

"Echte« Windows im 80-Zeichen-Modus 

Eigene Programme professioneller und übersicht¬ 
licher gestalten durch variantenreiche Windows 

B 18 

999 Grafikbilder im Speicher 

Jede Menge hochauflösender Grafiken im Speicher Q 23 
halten und in eigene Programme einbinden 

Neue Zeichensätze für den 80-Zeichen-Modus 

Mit einer ansprechenden Benutzeroberfläche wird 
das Erstellen von Zeichensätzen zum Kinderspiel 

B34 

Tips&Tricks 


Bildschirm mit 4000 Zeichen durch Interlace 

Wer hätte das gedacht? Der C128 beherrscht 
Interlace-Modus mit 50 Bildschirmzeilen 

B47 



a ivin^ inu. nuyieiiiiiiic otuiciiiuo ucotiiicuiiiyi 

Variable Fast-Option im C64-Modus ohne völligen 
Bildschirmverlust 


B49 

MERGE-Routine für Basic-Programme 

Modulares Programmieren mit einer einfach bedien¬ 
baren Routine 

B50 

FAST-Modus bei sichtbarem 40-Zeichen-Bildschirm 

Nun bleibt auch der 40-Zeichen-Bildschirm im FAST- 
Modus sichtbar 

B 51 

Booten leichtgemacht 

»Uniboot« zeigt Ihnen, welche bisher verborgenen 
Fähigkeiten in der Boot-Routine des C128 stecken 

B52 

Schnelles Sortieren mit dem C128 

3000 Strings in 2 Sekunden sortiert! Eine extrem 
schnelle Sortierroutine 

B 57 

Sonderzeichen in NLQ-Schrift für Startexter 128 

Auch auf nicht NLQ-fähigen Druckern druckt 
Startexter nun in NLQ-Qualität 

B 61 

1 Programmierhilfen 


Assembler mit Doppelherz 

Sowohl den 8502- als auch den Z80-Prozessor 
unterstützt unser Super-Assembler »Double-Ass« 

fl 66 

i 

Master - Basic meisterhaft 

Eine vielseitige RAM-Disk, echte Windows und vie¬ 
les mehr bietet diese interessante Basic-Erweiterung 

fl 74 

Basic "de Luxe« auf engstem Raum 

Viele hilfreiche Basic-Befehle bietet diese Erweite¬ 
rung und belegt trotzdem nur 2 KByte im Speicher 

B 83 


Grundlagen 


Der freie Steckplatz im C128 

Wir zeigen Ihnen, was sich damit alles anfangen läßt 

88 

Z80 - Der CP/M-Steuermann 

Lernen Sie die zweite Seele des C128 näher kennen 
und programmieren 

91 

Anwendung 

Weltrekord: Disketten-Backup in 8 Sekunden 

Einen neuen Standard setzt unser neues Kopier¬ 
programm für zwei 1571-Laufwerke 

B 97 

Benzinverbrauch im Griff 

Behalten Sie den Überblick über Kosten und 
Kraftstoffverbrauch Ihres Autos 

B102 

Komfortable Diskettenverwaltung 

Eine leistungsfähige Verwaltung für Ihre Disketten 
mit vielen Suchkriterien 

fl 107 

Bringen Sie Ordnung in Ihr Video-Archiv 

So finden Sie jeden aufgezeichneten Film in 
Sekundenschnelle 

B119 

Der Computer wertet Versuche aus 

Dieses Programm findet die genaue mathe¬ 
matische Funktion zu Ihrer Meßreihe 

H135 

Spiele 

For 128 only 

Zw=" ’-jmmerzielle Spiele im Test 

142 

1 Spiele-Listings 

Wallstreet im Wohnzimmer 

Werden Sie zum Börsenmakler mit »Börse 128« 

B144 

Vectors - Ein tolles Vergnügen 

Fesselndes Action-Spiel für zwei Personen 

B150 

I Bücher 

Wichtige neue Bücher für jeden C128-Besitzer 

154 

1 64’er-Referenz 

Das Dritte im Bunde 

Das finden Sie in den bereits erschienenen 
C128-Sonderheften 

155 

1 Eingabehilfen 

Checksummer 128 und MSE 

Wie tippe ich meine Programme ein? Diesen Artikel --.* j-q 
sollten Sie unbedingt lesen, wenn Sie ein Programm H lOo 
aus diesem Sonderheft abtippen möchten 

1 Sonstiges 

Editorial 

3 

Impressum 

162 


Alle Programme aus Artikeln mit dem H -Symbol finden 
Sie auch auf der Programmservice-Diskette zu diesem 
Sonderheft (siehe linke Seite) 
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C128 


Saft-Scrolling in Farbe 


Gute Spiele sind häufig durch scrollende Lauf¬ 
schriften optisch aufgewertet. Eine kurze Maschi¬ 
nenroutine ermöglicht jedem C128-Anwender, 
farbige Laufschriften im 80-Zeichen-Modus auf 
einfache Weise zu erstellen. 

D urch Soft-Scrolling oder das punktweise Verschieben 
des Bildschirms lassen sich interessante Effekte 
erzielen. Mit diesem Programm können Sie auf ein¬ 
fache Weise farbige Laufschriften wie in Bild 1 erzeugen. 
Da Soft-Scrolling im 80-Zeichen-Modus nicht leicht zu reali¬ 
sieren ist, bedient man sich hier eines Tricks: Laufschrift 
durch Umdefinierung des Zeichensatzes. 

Laufschrift mit Trick 


Damit Sie bald in den Genuß des Soft-Scrollings kommen, 
ohne mit programmtechnischen Details geplagt zu werden, 
sollte zunächst Listing 1 mit dem MSE im C64-Modus und 
Listing 2 mit »Checksummer 128« (Seite 158) eingegeben 
werden. »SCROLLMASCHINE« (bitte den Filenamen beim 
MSE richtig angeben!) ist eine kurze Maschinenroutine. 
Sie wird mit »BLOAD "SCROLLMASCHINE" ,ON BO« gela¬ 
den und mit folgender Syntax aufgerufen: 

SYS DEC ("OBOO"),LANGE,MODUS,TEMPO 

Dabei steht LÄNGE für die Anzahl der Zeichen, die die 
Laufschrift umfaßt. Die Informationen für die Laufschrift 
selbst holt sich die Routine aus dem Speicherbereich 3584 
bis 3839 ($0e00 bis $0eff); die Länge wird in Adresse 3583 
($0dff) vom Programm gespeichert. 

Der Parameter MODUS legt fest, mit welchem Zeichen¬ 
satz die Laufschrift dargestellt werden soll (208 = Groß-/ 
Grafik-Schrift; 216 = Klein-/Groß-Schrift). 

TEMPO bestimmt die Scroll-Geschwindigkeit und kann 
Werte von 0 (extrem schnell) bis 255 (äußerst langsam) 
annehmen. 

Programmierung der Maschinenroutine 


Die Position, an der die Laufschrift erscheint, wird jedoch 
nicht durch derartige Parameter eingestellt. Stattdessen 
müssen Sie folgendermaßen Vorgehen: 

1. Lassen Sie alle Texte, außer der Laufschrift, im Klein-/ 
Groß-Zeichensatz des C128 ausgeben. 



Bild 1. Ein Beispiel für farbige Laufschrift. In Wirklichkeit 
scrollt die kleine Schrift hinter dem Schriftzug »64’er« durch. 


2. Schalten Sie dann auf Groß-/Grafik-Schrift und 
drucken eine, mit »B« beginnende und alphabetisch geord¬ 
nete Zeichenfolge wie 

BCDEFGHIJKLMNOPQRSTUVWXYZ 

3. Starten Sie die Maschinenroutine mit den beschriebe¬ 
nen Parametern. An allen Stellen, an denen eine solche 
Zeichenfolge steht, rollt die Laufschrift ab. Dabei dürfen 


Laufschrift erstellen 

<fi> 

Laufschrift ansehen 

<f3> 

Laufschrift aendern 

(fl) 

Laufschrift speichern 

(fT) 

Laufschrift laden 

Cf8> 

Program beenden 

<t> 

6 = Directory 


CTRL« fi = fibbruch 



Bild 2. Auf komfortable Welse können Laufschriften erzeugt 
werden. Hier das Hauptmenü. 


Name 

scrollmaachine 


ObOO 0o80 

0b80 

85 

ff 

60 

a2 

13 

20 

cc 

cd 

72 

OclO 

f e 

a4 

fo 

b9 

ff 

Od 

c9 

60 

a7 











0b88 

98 

ca 

20 

cc 

cd 

60 

ee 

29 

15 

0cl8 

90 

03 

29 

7 f 

2c 

29 

3f 

85 

78 











ObOO 

8d 

53 

Ob 

Hd 

Oa 

Oc 

8e 

24 

2f 

0b90 

Ob 

dO 

03 

ee 

2a 

Ob 

60 

18 

4f 

0c20 

fO 

a9 

00 

a2 

d8 

85 

fa 

86 

ec 

oboa 

Oc 

8c 

Z8 

Ob 

n9 

10 

aO 

20 

a4 

0b98 

2a 

08 

48 

a4 

a6 

b9 

2b 

Ob 

68 

0c28 

fb 

a4 

fO 

18 

a5 

fa 

69 

08 

9c 

OblO 

8d 

44 

Ob 

8c 

49 

Ob 

20 

43 

08 

ObaO 

fO 

04 

68 

09 

01 

48 

68 

aa 

17 

0c30 

85 

fa 

90 

02 

e6 

fb 

88 

dO 

a9 

0bl8 

Ob 

Zü 

09 

Oc 

20 

33 

Ob 

20 

ff 

0ba8 

a9 

00 

28 

90 

02 

a9 

01 

99 

12 

Oc38 

f 2 

aO 

00 

a2 

01 

a9 

fa 

8d 

33 

ObZO 

b8 

Ob 

ZO 

dd 

02 

4c 

4e 

Ob 

f 3 

ObbO 

2b 

Ob 

8a 

85 

a7 

e6 

a6 

60 

cl 

0c40 

aa 

02 

20 

aZ 

02 

99 

2b 

Ob 

f 7 

0b28 

01 

10 

20 

00 

00 

00 

00 

00 

3a 

Obb8 

aO 

07 

a9 

00 

99 

2b 

Ob 

88 

76 

0c48 

c8 

cO 

08 

dO 

ee 

20 

dd 

02 

f 8 

0b30 

00 

00 

00 

20 

e4 

Ob 

ad 

29 

e4 

ObcO 

10 

fa 

60 

ad 

29 

Ob 

ac 

2a 

Od 

0c50 

aO 

00 

84 

ff 

b9 

2b 

Ob 

85 

3d 

0b38 

Ob 

8d 

44 

Ob 

ad 

2a 

Ob 

8d 

fO 

Obc8 

Ob 

20 

83 

Ob 

20 

dB 

cd 

85 

31 

Oc58 

a7 

20 

d2 

Ob 

e6 

ff 

a4 

ff 

26 

0b40 

49 

Ob 

60 

a9 

00 

8d 

29 

Ob 

83 

ObdO 

a7 

60 

ad 

29 

Ob 

ac 

2a 

Ob 

Od 

0c60 

cO 

08 

dO 

fO 

20 

f3 

Ob 

06 

12 

0b48 

a9 

00 

8d 

2a 

Ob 

60 

20 

43 

55 

0bd8 

20 

83 

Ob 

a5 

a7 

20 

ca 

cd 

74 

0c68 

fe 

a4 

fc 

c4 

fe 

bO 

a2 

20 

dO 

0b50 

Ob 

78 

a9 

la 

85 

fd 

a9 

00 

34 

OboO 

20 

8© 

Ob 

60 

ad 

29 

Ob 

38 

d7 

0c70 

f 3 

Ob 

60 

15 

16 

15 

15 

15 

lc 

0b58 

85 

aß 

20 

c3 

Ob 

20 

c3 

Ob 

88 

Obe8 

e9 

18 

8d 

29 

Ob 

bO 

03 

ce 

46 

Oc78 

15 

15 

15 

15 

15 

15 

15 

15 

78 

0b60 

Ob68 

20 

Oc 

97 

a5 

Ob 

a6 

20 

c9 

d2 

08 

Ob 

dO 

20 

eb 

02 

20 

ld 

21 

ObfO 
Obf 8 

2a 

08 

Ob 

8d 

60 

29 

ad 

Ob 

29 

90 

Ob 

03 

18 

ee 

69 

2a 

8c 

a4 

Listing 1. 

»SCROLLMASCHINE« 


0b70 

e4 

Ob 

20 

09 

91 

dO 

08 

c6 

50 

OcOO 

Ob 

60 

ae 

28 

Ob 

ca 

dO 

fd 

32 

bitte mit dem MSE (Seite 158) 


0b78 

fd 

dO 

db 

58 

4c 

4e 

Ob 

58 

f 3 

0c08 

60 

a9 

la 

85 

fc 

aO 

00 

84 

52 

im C64-Modus eingeben 
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derartige Zeichenfolgen durchaus an mehreren Bild¬ 
schirmpositionen gleichzeitig vorhanden sein; auch die 
Länge ist variabel, BCDEF gibt beispielsweise nur ein fünf 
Zeichen umfassendes »Fenster« für die Laufschrift an. 

4. Durch Löschen aller in Groß-/Grafik-Schrift geschrie¬ 
benen Zeichen und Setzen der Laufschrift-Länge auf Null 
wird die Laufschrift ausgeblendet. 

Laufschrift-Editor - 
zugleich ein Demoprogramm 


»LAUFSCHR.-EDITOR« (Listing 2) ermöglicht Ihnen das 
Testen von Laufschriften und ist aufgrund der Menüsteue¬ 
rung (Bild 2) problemlos zu bedienen. Von diesem Basic- 


Programm wird die Maschinenroutine »SCROLLMA- 
SCHINE« (Listing 1) automatisch nachgeladen. 

Das Programm speichert die im Bereich 3584 bis 3589 
befindliche Laufschrift auch auf Diskette; sie wird über 
BLOAD" NAME " ,ON BO eingelesen. 

Dank der zahlreichen Kommentare, die sich in REM- 
Anweisungen befinden, ist der Laufschrift-Editor zusätzlich 
ein lehrreiches Beispiel für die Programmierung der Scroll- 
Routine, mit der Sie sicherlich noch recht viele Ideen reali¬ 
sieren können! 

(Nino Cimerman/F. Müller) 

Hinweis: Die Grundlagen zur VDC-Programmlerung im allgemeinen und zur Zelchensatzdeflnl- 
tion Im besonderen wurden In der Artikelserie -VDC - 80 Zeichen ist nicht alles- ln den 64’er- 
Stammhofton 3/87, 5/87, 7/87 und 8/87 ausführlich besprochen. 

Der Quelltext zu »SCROLLMASCHINE- befindet sich im Hypra-Ass-Format auf der Leserservice- 
Diskette zu diesem Sonderheft unter dem Filenamen »SCROLL-MASCH.SRC-. 


IO REM «»•••«•«*•»«••••»««••»*»•«••••»«••*• 

15 REM * * 

20 REM * SUPER-SCROLLING 80 FUER PC 128 * 

30 REM * VI. 0 * 

40 REM « * 

60 REM #****#•##»**»«»#«******»**##»*»»#**# 

70 s 

80 TRAP 6140 

81 : 

85 REM - D 8 = KLEINSCHRIFT-MODUS - 

86 : 

90 Z*="D 8 " 

99 : 

100 BLOAD "SCROLLMASCHINE": REM - MASCHINENPROG 

RAMM LADEN - 

110 KEY 2,CHR* (138) 

N FUER MENUE - 

120 KEY 1,CHR*(133) 

140 KEY 3,CHR*(134) 

160 KEY 5,CHR*(135) 

180 KEY 7,CHR*(136) 

190 KEY 8,CHR*(137) 

2O0 GS=1 

T DER LAUFSCHRIFT 
210 FAST 
220 : 

500 REM ======== HAUPTMENUE ======== 

501 r 

510 TT*="- 

TT*=TT*+TT* 

520 PRINT CHR*(14): SCNCLR : PRINT "I2H0ME,CLR, LI 
G.BLUE}"TT* 

540 PRINT "{DOWN}" TAB<27> CHR*(14) CHR* < 15) " <LIG 
.RED}SUPERSCROLLING BO !I" CHR«(143) 

560 PRINT "{DOWN, LIG.BLUE3"TT* 

580 PRINT TAB( 8 ) CHR*(159)"{2DQWN,2SPACE5LAUFSCHR 
IFT ERSTELLEN{5SPACEXF1 >" 

60O PRINT TAB( 8 )" {DOWN,2SPACE}LAUFSCHRIFT ANSEHEN 
(7SPACE)< F3>" 

620 PRINT TAB( 8 )"{D0WN,2SPACE>iAUFSCHRIFT AENDERN 
C7SPACE 3 < F5 >" 

630 PRINT TAB( 8 )"CDQWN,2SPACE>.LAUFSCHRIFT SPEICHE 
RN C5SPACE XF7 >" 

640 PRINT TAB( 8 )"{DUWN,2SPACE}±AUFSCHRIFT LADENC9 
SPACE KF 8 >" 

650 PRINT TAB( 8 )"{DOWN,2SPACE}£R0GRAMM BEENDEN Ul 
SPACE><t>" 

660 PRINT "{2D0WN,LIG. BLUEVTT* 

680 PRINT "{2D0WN,LIG.BLUE>"TT* 

690 CHAR 1,1,21," {BROWN)Jl - fllRECTORY" 

695 CHAR 1,1,22,"£X&L+ fl - ABBRUCH" 

700 « 

710 REM - BEFEHLS-TASTEN AUSWERTUNG - 

711 : 

720 GET KEY X#: IF X*-"f" THEN 6160 

725 IF X#-"D" THEN BEGIN 

726 : PRINT "{ORANGE}" 5 t WINDOW 50,6,79,19,1 

727 : DIRECTORY "?????????????.SC" 

730 « PRINT "{LIG. GREEN}21TTE EINE IASTE DRUECKEN 
.{LIG.BLUE}";: GET KEY X* : PRINT "{CLR,2H0ME 
}" 

732 BEND : GOTO 720 

734 IF X*“"CCTRL+A}" THEN PRINT CHR*(159);: END 

735 X*ASC(X*)-132 

740 ON X GOTO 1OOO,2000,3000,4000,5000 
760 GOTO 720 
8 O 0 : 

1000 REM -**- LAUFSCHRIFT ERSTELLEN ■=■■ 

1001 : 

1002 REM - DER STEHENDE TEXT WIRD IM KLEINSCHRI 

FT-MODUS GESCHRIEBEN - 

1003 : 

1O05 PRINT "<CLR,LIG.BLUE}" CHR*(14)TT*: Z=0 

1007 PRINT TAB(27)"<DOWN,LIG.RED}AUFSCHRIFT ERST 
ELLEN": PRINT "{DOWN,LIG.BLUE>"TT* 

1008 CHAR ,25,19,"HICHT MEHR ALS 64 ZEICHEN 

1009 CHAR 1,0,18,"<LIG.BLUE}"+TT*: CHAR 1,0,21,TT 
*: PRINT "{H0ME,6D0WN}" 


: REM FUNKTIONSTASTE 

: REM VORBEREITEN. 

: REM GS = GESCHWINDIKEI 


<A99> 

<ATB> 

<AHA> 

< APB> 

< B1C > 
<BHE> 
<GQ3> 
<VQ 6 > 
<N2S> 
<BL2> 
<MQR> 
<MA1 > 
<LIM> 

<PGU<> 

< DHA > 


1010 INPUT "{ORANGE>ZEXT a <RVSON}";TX*: GOSUB IO 
20: GOTO 520 

1011 : 

1012 REM - HIER WIRD DIE LAUFSCHRIFT IN DAS RAM 

GEPOKET - 

1013 x 

1020 FOR I=0 TO 255: POKE DEC <"OE00">♦I,32: NEXT 
: REM BEREICH ERST LOESCHEN 

1029 : 

1030 FOR 1-1 TO LEN (TX*) 

104O : X*=MID*(TX*,I,l) 

1O60 : X=ASC(X*) 

1O80 : BANK 0: POKE DEC("0DFF")+I,X 
1100 NEXT 

1110 POKE DEC <"ODFF"),LEN(TX*): REM LAENGE DER LA 
UFSCHRIFT NACH «ODFF 
1120 RETURN 
1999 : 


<BDT> 

<MMM> 

<LQN> 

<KUN> 

<36M>C 

<A52> 
<DHJ > 
<0C1> 
<GI2> 
<640> 

<2QJ> 

<UKM> 

<E7R> 

<FB3> 


2O00 REM ==== LAUFSCHRIFT ANSEHEN === 

2020 : 

2040 Z=0: SCNCLR 

2060 PRINT TAB(5)"<LIG.BLUE}LAUFSCHRIFT ..." 

2080 r-t INT TAB <5) "SCHNELLER €11 SPACE>= £URSOR RECH 
TS ' ^ 

2100 PRINT TAB(5)"LANGSAMER{11SPACE}= CURSOR LINK 
S 

2120 PRINT TAB(5)"CiSlÄ-SCHRIFTC7SPACE}= <G> 

2140 PRINT TAB (5) " fi.HP.S-S/ KLE IN—SCHRIFT = <K> 

2160 PRINT TAB(5)"ZURUECK ZUM flENUEC3SPACE}= <t> 
2180 : 

22O0 CHAR 1,4,12,"<LIG.RED>SUPER-C2SPACEV+CHR*(1 
42)+"BCDEF"+CHR*(14)+"<LIG.RED,2SPACE}-5CR0L 
LING 80 !" 

2220 PRINT CHR*(142); 

2240 : 

2260 FOR B=1 TO 3: COLOR 5,(B+4 )1 FOR 1*7 TO 12: 
X=X+1: CHAR ,30+X,I,"BCDEF"z NEXT I,B 


<94F> 

< 8 SA> 

<EG3> 


2279 : 

2280 X*2: FOR B=1 TO 3: COLOR 5,(B+4) 

2281 s 

23O0 FOR 1*17 TO 1 STEP -i« X=X+1: CHAR ,30+X,I," 
BCDEF": NEXT I,B 


< 9DG> 


2301 : 

2305 REM - WO TZ* IM GR08S-SCHRIFT—MODUS STEHT 

WIRD GESCROLLT - 


< JS 6 > 


<5VI> 
<V0D> 
<FCC> 
<LNE> 
<LDF> 
<4CH> 
<H07> 
<4KI > 
<RCV> 
<ACK> 
<IHC> 
<KHL> 


2306 : 

2320 TZ**"BCDEFGHIJKLMNOPQRSTUVWXYZC£31«- !" 

2340 TZ*-TZ*+CHR*<34> + "#*7.&' ()»+,-./0123456789:;< 
->7ä" 

2360 A*LEN(TX*): IF A<1 THEN A*PEEK(3583) : REM " 
LAENGE DER .LAUFSCHRIFT SETZEN" 

2380 TY*“LEFT*(TZ*,A-1): CHAR ,10,24,"{ORANGE}"+T 

Y* 

2400 SW*10 

2420 PRINT " {HOME}";CHR*(14) 

2440 CHAR ,70,0,"": PRINT USING "##H";GS 
2460 SYS DECCOBOO") ,A,DEC(Z*) ,GS 

2476 : 

2477 REM — DIE LETZTE GEDRUECKTE DASTE WIRD VON 

DER MASCHINEN-ROUTINE - 

2478 REM - IN SPEICHERSTELLE 255 UEBERGEBEN. 


<801 > 

< 1Q6> 

<340 

<184> 

< JHV> 
<288 > 
<CMO> 
<NR 6 > 
<L7A> 

< OGP > 
<A90> 

<TM4> 

<8K7> 

<EPQ> 

<040> 

<60P> 

<01H> 

<3SS> 

< A0M> 

< AUO> 
<P28> 
<E1G> 
<UGl > 
<209 > 


<FMQ> 

< IU7> 
<70T> 

<CQS> 
<401 > 
<OBI > 
<184> 

<6S2> 

<48G> 

< 104> 

<5GN> 

< JBM> 

<HFQ> 

<LKH> 

<NSJ > 

< 1CN> 
<O05> 
<L2P> 
<7PU> 

< 105 > 


<KB3> 
<OMD> 
<LI I > 
< I3U> 
<SV4> 
<PU 8 > 
<BDD> 
<340 
<1B4> 

<3CD> 

<106> 

<FDL> 


<PBH> 

<557> 

< 6 SV> 


- <2SB> 

2479 : <20A> 

2480 X*PEEK(255) <BKN> 

2481 : <7BS> 

2500 IF X=DEC("9D") THEN 262© : REM " t-IASTE <JSA> 

2520 IF X=DEC("1D") THEN 2700 : REM " CURSOR RECH 

TSC3SPACE}(TEMPO STEIGERN) <30A> 

2540 IF X=DEC("5E") THEN 2800 : REM CURSOR LINKS 

(TEMPO VERRINGERN) <5LM> 

2560 IF X=DEC("4B") THEN Z*="D 8 ": GOTO 2440: REM 

K- BZW. G-INSTR ASTE (RCLR ODUS) <T 6 E> 


Listing 2. »LAUFSCHR.-EDITOR« gestattet das Editie¬ 
ren/Austesten von Laufschriften und wird mit 
»Checksummer 128« eingegeben 
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2580 

IF X=DEC1"47") THEN Z*="D0": GOTO 24401 REM 


4O80 

PRINT "CDOWN,LIG.BLUE)"TT* 


<S3E> 


" —' * — <2SPACE )—' ' — 

<CDM> 

4100 

CHflR 1,0,18," CBR0WN1ÜAXIMAL 13 ZEICHEN ! <LIG 



2600 

GOTO 2440 

< 10K> 


.BLUE)" 


<ENL> 

261? 


< 30E > 

4120 

INPUT "(HOME,6D0WN,GREY1)flAME : ";NA* 


<SVM> 

2620 

REM GESCHWINDIGKEIT ERHQEHEN 

<3KE> 

4140 

IF LEN (NA*) >13 THEN 4040 


<MIQ> 

2621 

: 

<080> 

4160 

IF NA*="" THEN 520 


<HCG> 

2640 

IF GS =<1 THEN GS=1s GOTO 2440 

<7VM> 

4180 

* 


<E1P> 

2660 

GS=GS-SW 

<DP 6 > 

42O0 

NA*=NA$*RIGHT*(FI#,13-LEN(NA*>) 


<D 6 B> 

2680 

GOTO 2440 

<30K> 

4220 

BSAVE (NA*+".SC">,DO,P 3583 TO P 3840 : RE 



2699 


<70U> 


M IN *ODFF-*0EFF LIEGT DER TEXT 


<LE3> 

2700 

REM GESCHWINDIGKEIT DROSSELN 

<3KE> 

4240 

GOSUB 60001 GOTO 520 


<EE1 > 

2701 


<08O> 

4259 

s 


<9P6> 

2720 

IF GS«=>255 THEN GS=255: GOTO 2440 

<FCS> 

5O00 

REM —mm LAUFSCHRIFT LADEN —■ 


<74S> 

2740 

GS C GS*SW 

<EPA> 

5020 

I 


<811 > 

2760 

GOTO 2440 

< 0 OK> 

5040 

NAf=""l Ft*="<26SPACE)“ 


<AJA> 

2700 

J 

<40H> 

5060 

PRINT "(CLR,LIG.BLUE>"TTfl PRINT "fDDWN}" TA 



2000 

GOTO 520! REM ZURUECK ZUM MENUE 

<205 > 


B ( 27 )" <LIG.RED > AAUFSCHRIFT LADEN” 


<ER0> 

2820 

* 

<E1P> 

508O 

PRINT "CDOWN,LIG.BLUEV'TT* 


<C3E> 

30O0 

REM ==»■ LAUFSCHRIFT AENDERN mmmm 

<144> 

51O0 

CHAR 1,0,18,"CBROWNIÜAXIMAL 13 ZEICHEN 'CLIG 



3O20 

t 

<40H' 


.BLUE)" 


< 6 ML> 

3040 

PRINT " CCLR,LIG.BLUE 3" CHR*(14)TT* 

<970 

5120 

INPUT " CHQME,6D0WN,GREYlIHAME : "! NA* 


<OVM> 

3060 

PRINT TAB (27) " <DOWN,LIG. RED).LAUFSCHRIFT AEND 


5140 

IF NA*= "" THEN 520 


<HKJ> 


ERN "! PRINT " CDOWN, L IG.BLUE > "TT* 

<3AU> 

5160 

IF LEN (NA*) >13 THEN 5040 


<7KK> 

3080 

CHAR 1,0,18,"CLIG.BLUE)"+TT*: CHAR 1,0,21,TT 


5180 



<C1H> 


*: PRINT " CH0ME,6DCIWN>" 

<70R> 

5200 

NAf=NA*+RIGHT*(FI* t 13-LEN(NA*> ) 


<DMA> 

3100 

X*=" " 

<IUP> 

5220 

BLOAD (NA**".SC") s GOSUB 6080 


<FCR> 

3101 

t 

< 4 8 G > 

5240 

GOTO 520 


<3EC> 

3105 

REM - LAUFSCHRIFT AUS RAM-BANK 0 AUSLESEN 


5260 

: 


<811 > 


— 

<104> 

6000 

REM =”=— FEHLERBEHANDLUNGSROUTINEN 


<44Q> 

3120 

: 

<50L> 

6020 

1 


<E1P> 

3140 

FOR 1=1 TQ PEEKIDECCODFF") 1 

<4BU> 

6040 

REM - FUER FLOPPY -- 


<54K> 

3160 

: BANK Or X=PEEK(DEC ( "0DFF" ) +1) 

<M 8 K> 

6060 

: 


<C1H> 

3180 

: X*=X*+CHR*(X> 

<MKU> 

6080 

CHAR ,5,24,DS* ! BET KEY A* i PRINT " CHQME >" 



32O0 

NEXT 

< IE0> 


: RETURN 


<ATO> 

3220 

1 

<60P> 

6100 



<E1P> 


OME,7DOWN,7RIGHT) "; : TX*="": INPUT TX* 

<LAB> 

6140 

RESUME NEXT 


<QUO> 

3260 

GOSUB 1O20 

<NNF> 

6160 

RUN "IAKE OFF ..." : REM — MENUE-PROGRAMM L 



3280 

GOTO 520 

<1UC> 


ADEN — 


<OUQ> 

3300 

: 

<60P> 





400O 

REM ===== LAUFSCHRIFT ABSPEICHERN ==== 

<640> 



[/ 


4O20 

l 

<A19> 




404O 

406O 

NA*= ""r FI *=" C26SPACE )" 

PRINT " <CLR,LIG.BLUE >" TT *: PRINT "CDOWN}" TA 

<A3A> 

Listing 2. »LAUFSCHR.-EDITOR« gestattet das Editieren 


B(27) " CLIG.RED).LAUFSCHRIFT ABSPEICHERN" 

<L09> 

1 und Testen von Lautschriften (Schluß) 




s«6R onuna»« 

Hochauflösende Grafik 
im 80-Zeidien-Modus des C128 

Jetzt können auch Basic-Programmierer den 
VDC-Chip vollkommen ausnutzen - eine neue 
Basic-Erweiterung läßt die normalen Grafikbe- 
fehle des C128 auch im 80-Zeichen-Modus wirk¬ 
sam werden, wobei eine Grafikauflösung von 480 
mal 240 Punkten erreicht wird. 

D ie komfortablen Grafikbefehle des C128 gestatten die 
Erstellung von hochauflösenden Grafiken auf sehr 
bequeme Weise. Doch gilt dies nur für den 
40-Zeichen-Bildschirm, der eine Grafikauflösung von 
immerhin 320 mal 200 Einzelpunkten zuläßt. Der zweiten 
Bildschirm-Modus des C128, die 80-Zeichen-Darstellung, 
wird von diesen Anweisungen allerdings nicht berührt, was 
um so unverständlicher ist, wenn man erfährt, daß sich hier 
Grafikbilder der doppelten Auflösung von 640 mal 200 ent¬ 
werfen lassen. 

Aus diesem Grund führen selbst einfache Grafikaktionen 
wie das Setzen und Löschen von Punkten in diesem Grafik- 
Modus zu einer mühsamen Auseinandersetzung mit dem 
VDC-Chip. Denn jener für die fantastische 80-Zeichen- 
Grafik verantwortliche Baustein ist kompliziert zu program¬ 
mieren, wobei man ohne Assembler-Kentnisse kaum aus¬ 
kommt. 

Besitzer der Basic-Erweiterung »Color-Pack 1« kennen 
jedoch solche Probleme nicht, denn nach dem Booten die- Bild 1. Eine eindrucksvolle Grafik im 80-Zeichen-Modus, die 
ses Programmes stehen alle bekannten Grafik-Befehle wie sich mit »Color-Pack 1« schnell erstellen läßt. 
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GRAFIK 


C128 


GRAPHIC, COLOR, CHAR, DRAW oder CIRCLE bereit, 
um solch eindrucksvolle Grafiken wie in Bild 1 auf den 
80-Zeichen-Monitor zu zaubern. Doch Color-Pack 1 ist 
nicht nur »irgendeine« Grafik-Erweiterung. Einige Befehle 
wurden in ihrer Funktion modifiziert und verwöhnen den 
Anwender mit noch größerer Leistungsfähigkeit. 

Die CHAR-Anweisung zur Darstellung von Text innerhalb 
einer Grafik dreht nun einen Text in jedem beliebigen Win¬ 
kel, während zwei neue Parameter die Ausdehnung der 
Schrift in Höhe und Breite bestimmen. Schmal- oder Klein¬ 
schrift in jeder nur erdenklichen Richtung ist damit pro¬ 
blemlos zu verwirklichen (Bild 2). 

Mit dem SCALE-Befehl läßt sich endlich der Koordinaten¬ 
bereich beliebig setzen, da das Color-Pack auch mit Gleit¬ 
kommazahlen arbeitet. So darf die X-Achse zum Beispiel 
von -2 *tt bis 3*7r skaliert werden. Wer mathematische 
Funktionen auf dem Bildschirm darstellen will, wird diese 
Verbesserung zu schätzen wissen. 

COI0R packt die Farben an 


Eine besonders starke Wandlung mit angenehmen Folgen 
erfuhr der COLOR-Befehl des C128. Mit seiner Hilfe lassen 
sich ähnlich dem Multicolor-Modus des 40-Zeichen- 
Bildschirms bis zu drei Farben für Vorder- und Hintergrund 
wählen, auf die die Grafikbefehle später schnell und ein¬ 
fach zugreifen können. Ein neuer COLOR-Modus gibt dem 
Anwender zusätzlich die Fähigkeit, Teile seiner Grafik 
nachträglich einzufärben, ohne dabei Gefahr zu laufen, ein 
bereits erstelltes Bild zu zerstören. 

Zwei weitere Befehle des Basic 7.0 erhielten vollkommen 
neue Funktionen. GSHAPE und SSHAPE dienen nun zur 
Sicherung der Grafik auf Diskette oder in einen der beiden 
Bildbereiche, die jeweils eine 80-Zeichen-Grafik aufneh¬ 
men können. Eine modifizerte Belegung der Funktionsta¬ 
sten (Tabelle 1) erlaubt das Umschalten beider Grafikberei¬ 
che auf Knopfdruck. 

Ungewöhnliches Foimat 


Darüber hinaus präsentiert sich der Bildschirm mit Color- 
Pack 1 in einer neuen und zunächst ungewöhnlichen Form. 
Statt der üblichen Auflösung von 640 mal 200 Punkten 
erhält der Computer-Grafiker eine Arbeitsfläche von 480 
mal 240 Grafikpunkten. Damit stehen anstelle von 128000 
Pixels nurmehr 115200 ansprechbare Punkte zur Verfü¬ 
gung. Dieser scheinbare Nachteil erweist sich jedoch bald 
als recht vorteilhaft, da sich hierbei ein fast quadratisches 
Bild ergibt, das eine ausreichende Auflösung in Y-Richtung 
bietet. Der enorme Auflösungsunterschied von 640 zu 200 
Punkten wird damit zum Großteil ausgeglichen. Daneben 
entspricht das neue Format in X-Richtung genau der 
erreichbaren Auflösung eines Epson- oder kompatiblen 
Druckers für DIN-A4-Formate, so daß ein Ausdruck ohne 
Verzerrungen erfolgen kann. 

Selbstverständlich besitzt das Color-Pack für diesen 
Zweck eine Hardcopy-Routine, die den Ausdruck der Grafik 
auf einem Epson-Drucker und Kompatiblen in verschiede¬ 
nen Größen gestattet. Bild 3 zeigt eine Hardcopy der Grafik 
in Bild 1. Der Druck erfolgt jedoch nur als Schwarzweiß- 
Bild. Unterschiedliche Farben werden dabei nicht (als 
Graustufen) berücksichtigt. 

Bevor jedoch das Color-Pack 1 seine Leistungsfähigkeit 
demonstrieren kann, sind zunächst die Programme »color- 
pack l.m« sowie »color-pack.key.m« mit dem MSE im 
C64-Modus einzugeben und zu speichern. Sie finden 
diese in Listing 1 und 2. Listing 3 stellt schließlich den Lader 


Ui 

CO 

N 


£8 
11 > i;j 

f'.J 


ffi ® 


c ai® 

3.C 
"-:ü „ 


las ist die Sctalscfrifi Bmte,Höhe: 52,255 

las ist die Siedrij- und Schielschrift Breite ,®e 95,224 

>as Ist die «ledrü- und Sctmalschrlft Breite,Kühe 33,13? 

ln itt di« Hi«Jr« q- und Schmtl$chrifi 95,176 


cMcoi % i..jeq.s +xei -ibsöi q 
I.U-P 

C--v 5-do:i 1-X3J »i3| euups ui 3 

$L* S* 


'0 




Bild 2. Eine nicht alltägliche Besonderheit: Schriften lassen 
sich in Größe und Lage beliebig verändern 


von Color-Pack 1 dar. Er sollte mit dem Checksummer 128, 
den Sie in dieser Ausgabe finden, eingetippt werden. Der 
Lader wird unter dem Namen »color-pack 1« auf der Dis¬ 
kette gespeichert und später mit RUN gestartet. Der Com¬ 
puter sollte sich dabei natürlich im 80-Zeichen-Modus 
befinden und Ihr RGB-Monitor eingeschaltet sein. Außer¬ 
dem müssen Sie vor dem Start des Laders die ASCII/DIN- 
Taste drücken, so daß der Computer auf den deutschen Zei¬ 
chensatz geschaltet wird. 

Color-Pack 1 installiert sich nun im Speicher des C128 
und steht dann mit erstaunlichen Grafikbefehlen bereit, die 
wir im folgenden Abschnitt näher betrachten wollen. Wir 
werden hier allerdings nur jene Anweisungen erläutern, die 
einer Funktionsänderung unterworfen sind. Die verblei¬ 
benden Befehle werden wie bei der Arbeit mit der 



Farbdenonstration... Farbdemonstration... Farbdemonstra+ion... 

- - - Circle... 


489*248 Pixel = 14480 Bytes 
Entsprechend 68 Zeichen in 38 Zeilen 


Bild 3. Diese Hardcopy von Bild 1 kann in zwei unterschied¬ 
lichen Formaten gedruckt werden. 
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C128 


GRAFIK 


40-Zeichen-Grafik verwendet. Die genaue Funktion kön¬ 
nen Sie dem Handbuch zum C128 entnehmen. 

Funktionsänderungen mit Folgen 


GR APHIC1 , cVordergrundfarbe >, < Hintergrundfarbe > 
schaltet in den 80-Zeichen-Grafikmodus. Dabei dürfen die 
Werte (0-15) der Zeichen- und die Hintergrundfarbe des 
gesamten Bildschirms angegeben werden. Fallen diese 
Angaben weg, werden die voreingestellten Farbwerte über¬ 
nommen. Die Grafik-Modi 2 bis 4 sind nicht mehr verwend¬ 
bar und erzeugen einen »ILLEGAL QUANTITY ERROR«. 

GRAPHIC 0 oder GRAPHIC 

desaktiviert den Grafikmodus. Der C128 kehrt in die Text¬ 
darstellung zurück. 

GRAPHIC Modus, Rand 

druckt eine Hardcopy der aktuellen Grafik auf einem 
Epson-Drucker und Kompatiblen. »Modus« bestimmt dabei 
die Größe des Druckbildes, während »Rand« die Wahl des 
Abstandes zum linken Papierrand erlaubt. Mögliche Kom¬ 
binationen sind: 


Befehl 

Wirkung 

Bereich von 
»Rand« 

GRAPHIC 10, Rand 

kleines Bild 

0 bis 68 

GRAPHIC 11,0 

doppelte Bildbreite (genaue 
Blattbreite DIN A4) 


GRAPHIC 12, Rand 

doppelte Bildhöhe 

0 bis 68 

GRAPHIC 13,0 

großes Bild mit doppelter 
Bildbreite und -höhe 



Beispiel: G46R oi 

GRAPHIC 10,34 

Es wird ein kleines Bild genau in der Blattmitte gedruckt. 

COLOR 1, Vordergrundfarbe, Hintergrundfarbe 
COLOR 2, Vordergrundfarbe, Hintergrundfarbe 
COLOR 3, Vordergrundfarbe, Hintergrundfarbe 

Mit COLOR lassen sich drei Farbquellen für Vordergrund 
und Hintergrund unabhängig setzen, die in den Zeichenbe¬ 
fehlen durch Angabe der Farbquell-Nummer (1 bis 3) ver¬ 
wendet werden können. 

Beispiele: 

BOX 2,10,10,100,100 

Es wird ein Rechteck mit der Vordergrund- und Hinter¬ 
grundfarbe aus Farbquelle 2 gezeichnet. 

CIRCLE 3,120,100,50,25 

Es wird ein Kreis mit den Farben aus Farbquelle 3 
gezeichnet. 

Die Angabe der Farbquelle darf auch weggelassen wer¬ 
den. In diesem Fall entspricht die Zeichen- und Hinter¬ 
grundfarbe den im Farb-RAM befindlichen Farbwerten. Die 
Ausführung eines Befehls wird dadurch erheblich 
beschleunigt: 

CIRCLE,120,100,50,25 

COLOR 7, Vordergrundfarbe, Hfntergrundfarbe, xl, yl, 
x2,y2 

färbt das durch (xl.yl) und (x2,y2) vorgegebene Rechteck 
in der angegebenen Vorder- und Hintergrundfarbe, ohne 
die Grafik zu zerstören. Dabei stehen die Koordinaten 
(x1,y1) für die linke obere (x2,y2) für die rechte untere Ecke 
des Rechtecks. 

Die Farben können nicht pixelweise, sondern nur in Gra¬ 
fikblöcken zu je 8 mal 8 Punkten gesetzt werden, woraus 
sich für xl, x2, yl und y2 folgende Bereichsgrenzen erge¬ 
ben: 

0 < = xl < = x2 < = 59 
0 < = yl <= y2 <= 29 


CHAR Farbquelle,x, y, Winkel, a$, x-Breite, x-Höhe 

schreibt einen beliebigen Text (a$) mit der Farbe der 
gewünschten Farbquelle in den Grafikbildschirm an Posi¬ 
tion (x,y), und dreht ihn im angegebenen Winkel (0 bis 360 
Grad). Auch hier führt ein Weglassen der Farbquelle zu 
einer deutlichen Beschleunigung der Ausführung. Da die 
»schrägen« Schriften aber nur schwer lesbar sind, emp¬ 
fiehlt es sich, nur die Winkel 0,90,180 und 270 Grad zu ver¬ 
wenden. 

Die letzten beiden Parameter bestimmen die Breite und 
Höhe der Buchstaben. Sie dürfen Werte von 0 bis 255 
annehmen und sind bei den Schreibrichtungen von 0 und 
180 Grad von Bedeutung. 

Bei Winkeln von 90 und 270 Grad, also bei senkrechter 
Schreibrichtung, sind zwei weitere Parameter wichtig: 

CHAR Farbquelle, x, y, Winkel, a$, y-Breite, y-Höhe 

»y-Breite« und »y-Höhe« geben nun die Breite und Höhe 
der Buchstaben an. »x-Breite« und »x-Höhe« sind hier ohne 
Wirkung und können mit leeren Kommata übergangen wer¬ 
den. Ein kleines Beispiel in Listing 4 demonstriert die sich 
daraus ergebende Schriftvielfalt (Bild 2). 


Beliebige Skalierung des Grafikbereichs 


SCALE 3, xf, xs, yf, ys 

ändert die Skalierung des Grafikbildschirms. Damit sind 
nun beliebige Definitionsbereiche in X- und Y-Richtung 
möglich. Die Parameter stellen jedoch nicht die jeweiligen 
Unter- und Obergrenzen für die X- und Y-Achse dar, son¬ 
dern bestimmen die Skalierungsfaktoren und -Summanden 
der Koordinatenachsen. Will man festgelegte Grenzen defi¬ 
nieren, sind deshalb einige Berechnungen nötig: 
xrain,xmax : Unter- und Obergrenze der X-Achse 

ymin,ymax : Unter- und Obergrenze der Y-Achse 

xf= (479-0)/(xmax-xmin) 
xs= 0-xf#xmin 
yf= (0-239)/(ymax-yrain) 
ys= 239-yf*ymin 
SCALE 3,xf,xs,yf,ys 

Ein Beispiel finden Sie in Listing 5, das mit veränderter 
Skalierung eine Sinuskurve erstellt. 

Die veränderte Skalierung wirkt nun auf die Befehle 
LOCATE und DRAW, wobei auch Fließkommawerte gestat¬ 
tet sind. Haben Sie beispielsweise die X- und Y-Achse 
jeweils von -10 bis 10 definiert, lassen sich nun mit DRAW 
Punkte oder Linien zeichnen, wie etwa: 

DRAW 1,-5,-5 

DRAW 2,-10,-5 T0 -3.45,4.76 

Die restlichen Grafik-Befehle beziehen sich jedoch nicht 
auf die veränderte Skalierung. Sie werden weiterhin im nor¬ 
malen Koordinatennetz gezeichnet. 

LOCATE x,y 

setzt den Grafikcursor im definierten Bereich an beliebige 
Koordinaten, wobei auf die Skalierung mit SCALE 3 Rück¬ 
sicht genommen wird. Ein Beispiel für die oben definierten 
Bereiche ist: 

LOCATE -2.65,4.72 

Von dem mit LOCATE angesteuerten Punkt aus kann 
dann normal gekennzeichnet werden. 

LOCATE x, y, Variable 

Mit dieser Variation von LOCATE kann getestet werden, 
ob an Koordinate (x,y) ein Punkt gesetzt ist oder nicht. Bei 
einem gesetzten Punkt erhält die angegebene Variable 
den Wert 1, andernfalls bekommt sie den Wert 0 zugewie¬ 
sen. 
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GRAFIK 


C128 


SSHAPE Bildbereich 

sichert das aktuelle Grafikbild in einem der beiden Bildbe¬ 
reiche (1 oder 2). So lassen sich zwei Grafikbilder gleichzei¬ 
tig im Speicher des C128 ablegen und bearbeiten. 

SSHAPE Bildbereich, "Bildname" 

speichert den angegebenen Bildbereich (1 oder 2) unter 
einem beliebigen Namen auf Diskette. 


Grafiken sichern 


GSHAPE Bildbereich 

kopiert, als Pendant zu SSHAPE, die im angegebenen Bild¬ 
bereich abgelegte Grafik zur weiteren Bearbeitung zurück 
in den aktuellen Grafikbildschirm. 

GSHAPE Bildbereich, "Bildname" 

lädt eine Grafik des 80-Zeichen-Bildschirms in einen der 
beiden Bildbereiche (1 oder 2). 


Taste 

Belegung 

Fl 

löscht Bildschirm unterhalb des Cursors 

F2 

DLOAD 

F3 

DIRECTORY 

F4 

DSAVE 

F5 

Umschalten der beiden Grafikbilder 

F6 

Listing auf Drucker ausgeben 

F7 

LIST 

F8 

MONITOR 


Tabelle 2. Color-Pack 1 belegt die Funktionstasten neu 


Damit wären alle Besonderheiten von Color-Pack 1 
erläutert. Die verbleibenden Grafik-Anweisungen CIRCLE, 
BOX und PAINT sind wie gewohnt verwendbar, arbeiten 
nun aber wie alle anderen Grafik-Befehle im 80-Zeichen- 
Grafikmodus. Wurde das Color-Pack gestartet, ist die 
40-Zeichen-Grafik nicht mehr aktivierbar. Man wird sie 
allerdings nicht vermissen. 

(Rainer Franzen/Michael Thomas) 
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e9 

5f 

2040 : 

00 

85 

lc 

a 2 

00 

86 

63 

86 

2d 

2048 : 

64 

ae 

33 

11 

dO 

03 

ce 

34 

bb 

2050 : 

11 

ce 

33 

11 

20 

cc 

23 
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c5 

lb 

90 

07 

4c 

6e 

20f0 : 

: 3a 

4d 

68 

a9 

00 

60 

bd 

31 

7c 

20f 8 

: 11 

8d 

04 

ff 

91 

24 

8d 

03 

47 

2100 : 

: ff 

e6 

24 
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c9 

a4 

fO 

01 

60 

48 

20 

a5 

2208 

80 

03 

a2 

04 

20 

70 

9e 

68 

04 

2210 

10 

06 

20 

eO 

22 

4c 

fa 

21 

fa 

2218 

20 

f 2 

9d 

20 

ab 

23 

4c 

fa 

18 

2220 

21 

20 

cf 

23 

a2 

lf 

20 

52 

f 2 

2228 

9e 

20 

06 

9e 

8c 

54 

11 

8d 

f6 

2230 

55 

11 

20 

06 

9e 

8c 

56 

11 

aO 

2238 

8d 

57 

11 

08 

a2 

23 

20 

4a 

Of 

2240 

9d 

28 

bO 

11 

ad 

54 

11 

8d 

lc 

2248 

56 

11 

ad 

55 

11 

24 

d8 

10 

f 3 

2250 

04 

Oe 

56 

11 

2a 

8d 

57 

11 

a2 

2258 

20 

06 

9e 

8c 

5c 

11 

8d 

5d 

f4 

2260 

11 

20 

06 

9e 

8c 

5e 

11 

8d 

f 2 

2268 

5f 

11 

20 

06 

9e 

85 

77 

98 

3e 

2270 

a4 

77 

20 

77 

9a 

a2 

2d 

aO 

7c 

2278 

2b 20 

7c 

9d 90 Oe c° 

< 8 

77 

2280 

aO 

01 

20 

70 

9d 

9d 

31 

11 

65 

2288 

98 

9d 

32 

11 

a2 

03 

bd 

54 

7f 

2290 

11 

9d 

58 

11 

ca 

10 

f7 

a9 

08 

2298 

90 

20 

f 3 

9a 

a2 

07 

bd 

54 

8a 

22a0 

11 

9d 

60 

11 

ca 

10 

f 7 

20 

07 

22a8 

50 

67 

20 

f 2 

9d 

a2 

02 

20 

49 

22b0 

le 

9e 

8a 

dO 

03 

4c 

28 

7d 

08 

22b8 

8e 

20 

12 

18 

ad 

20 

12 

6d 

dd 

22 c 0 

5c 

11 

8d 

5c 

11 

90 

03 

ee 

13 

22c8 

5d 

11 

a2 

2d 

aO 

2b 

20 

7c 

d9 

22d0 

9d 

bO 

08 

20 

50 

67 

20 

eO 

4e 

22d8 

22 

90 

el 

aO 

2d 

20 

52 

67 

bb 

22e0 

a2 

02 

aO 

06 

a9 

00 

9d 

3d 

f 8 

22e8 

11 

9d 

3e 

11 

20 

99 

9d 

10 

df 

22f0 

08 

de 

3d 

11 

de 

3e 

11 

dO 

9f 

22f 8 

Ob 

c9 

00 

dO 

04 

cO 

00 

fO 

2a 

2300 

03 

fe 

3d 

11 

9d 

39 

11 

Oa 

fO 

2308 

9d 

41 

11 

98 

9d 

3a 

11 

2a 

el 

2310 

Bd 

42 

11 

ca 

ca 

aO 

04 

eO 

ef 

2318 

00 

fO 

c9 

a2 

Oa 

aO 

08 

20 

5d 

2320 

7o 

8d 

a9 

00 

2a 

2a 

8d 

47 

8e 

2328 

11 

49 

02 

Bd 

48 

11 

18 

aB 

dl 

2330 

10 

6d 

47 

11 

a8 

48 

49 

02 

el 

2338 

aa 

20 

7c 

9d 

9d 

31 

11 

98 

9o 

2340 

9d 

32 

11 

68 

a8 

18 

a9 

08 

4a 

2348 

6d 

48 

11 

aa 

20 

7c 

Bd 

8d 

ea 

2350 

45 

11 

8c 

46 

11 

20 

ab 

23 

11 

2358 

ac 

48 

11 

38 

b9 

39 

11 

e9 

fl 

2360 

01 

99 

39 

11 

bO 

Ob 

b9 

3a 

6d 

2368 

11 

e9 

00 

99 

3a 

11 

bO 

01 

92 

2370 

60 

ae 

47 

11 

ad 

46 

11 

30 

cd 

2378 

06 

20 

9a 

23 

ae 

46 

11 

18 

3b 

2380 

ad 

45 

11 

7d 

41 

11 

8d 

45 

21 

2388 

11 

ad 

46 

11 

7d 

42 

11 

8d 

6d 

2390 

46 

11 

ae 

48 

11 

20 

9a 

23 

d6 

2398 

fO 

bb 

aO 

02 

18 

bd 

31 

11 

25 

23a0 

7d 

3d 

11 

Bd 

31 

11 

e8 

88 

04 

23a8 

dO 

f 3 

60 

ad 

6o 

11 

Od 

6b 

9a 

23b0 

11 

fO 

16 

ee 

31 

11 

dO 

03 

82 

2 3b 8 

ee 

32 

11 

20 

c9 

23 

ae 

31 

db 

23c0 

11 

dO 

03 

ce 

32 

11 

ce 

31 

ld 

23c8 

11 

4c 

b2 

26 

4c 

dO 

26 

4c 

ed 

23d0 

96 

26 

78 

a9 

47 

8d 

08 

03 

d4 

23d8 

a9 

24 

8d 

09 

03 

a9 

28 

8d 

51 

23e0 

02 

03 

a9 

24 

8d 

03 

03 

58 

00 

23e8 

20 

45 

a6 

aO 

00 

a2 

07 

8e 

37 

23f0 

06 

d5 

84 

2f 

84 

31 

84 

33 

32 

23f8 

a9 

85 

85 

30 

85 

32 

85 

34 

34 

2400 

a9 

ea 

85 

9e 

84 

bO 

a9 

2c 

20 

2408 

85 

9f 

a9 

44 

85 

bl 

8d 

02 

70 


2410 : 

ff 

bl 

9e 

Bl 

bO 

c8 

dO 

f 9 

4a 

2418 : 

8d 

03 

ff 

a9 

2d 

85 

84 

a9 

cO 

2420 : 

25 

85 

85 

a9 

09 

85 

86 

60 

36 

2428 : 

a2 

ff 

86 

3c 

20 

93 

4f 

86 

de 

2430 : 

3d 

84 

3e 

20 

80 

03 

aa 

fO 

fO 

2438 : 

ef 

bO 

03 

4c 

e2 

4d 

20 

Oa 

f7 

2440 : 

43 

20 

86 

03 

4c 

4a 

24 

20 

7d 

2448 : 

80 

03 

c9 

de 

90 

ld 

c9 

ea 

87 

2450 : 

bO 

19 

aa 

bd 

93 

23 

8d 

63 

3e 

2458 : 

24 

bd 

9f 

23 

8d 

64 

24 

20 

74 

2460 : 

80 

03 

20 

89 

24 

20 

86 

03 

fe 

2468 : 

4c 

f 6 

4a 

20 

86 

03 

4c 

f3 

60 

2470 : 

4a 

89 

00 

f 4 

Of 

21 

f 6 

f8 

e5 

2478 : 

43 

7d 

Of 

79 

dO 

24 

20 

26 

68 

2480 : 

21 

22 

29 

29 

29 

2a 

25 

6a 

6f 

2488 : 

28 

fO 

3e 

20 

f 4 

87 

eO 

01 

cd 

2490 : 

fO 

04 

90 

35 

bO 

76 

a2 

01 

98 

2498 : 

20 

21 

25 

a9 

eO 

aO 

24 

20 

ab 

24a0 : 

f 4 

24 

a9 

00 

a2 

12 

20 

cc 

e6 

24a8 : 

: cd 

e8 

20 

cc 

cd 

a2 

lf 

8e 

16 

24b0 : 

00 

d6 

a2 

40 

aO 

38 

20 

bf 

98 

24b8 : 

24 

a5 

84 

a2 

cO 

aO 

07 

20 

92 

24c0 : 

cf 

cd 

ca 

dO 

fa 

88 

10 

f 7 

67 

24c8 : 

60 

aB 

ea 

aO 

24 

20 

f 4 

24 

2b 

24dO : 

20 

Oc 

ce 

4c 

de 

6a 

01 

02 

7d 

24d8 : 

: 04 

06 

07 

14 

15 

19 

22 

23 

Od 

24e0 : 

3c 

5c 

28 

le 

24 

38 

40 

c7 

ad 

24e8 : 

: 74 

5a 

50 

66 

27 

19 

20 

08 

36 

24f0 : 

00 

4 7 

7d 

64 

20 

45 

a8 

8d 

6a 

24f8 : 

: 03 

25 

8c 

04 

25 

aO 

09 

be 

2a 

2500 : 

d6 

24 

b9 

ea 

24 

20 

cc 

cd 

c6 

2508 : 

: 88 

10 

f4 

60 

4c 

a5 

2a 

20 

bc 

2510 : 

f4 

87 

eO 

07 

fO 

2 e 

eO 

01 

e7 

2518 : 

: 90 

04 

eO 

04 

90 

03 

4c 

e5 

81 

2520 : 

: 69 

86 

83 

b5 

83 

29 

Of 

an 

77 

2528 : 

: 20 

d2 

25 

85 

9b 

a6 

83 

b5 

14 

2530 : 

83 

4a 

4a 

4a 

4 a 

aa 

20 

d2 

d4 

2538 : 

: 25 

Oa 

Oa 

Oa 

Oa 

05 

9b 

a6 

ab 

2540 : 

: 83 

95 

83 

60 

aB 

83 

b5 

83 

df 

2548 : 

85 

87 

8a 

48 

a2 

04 

20 

21 

4a 

2550 : 

: 25 

68 

85 

83 

20 

bb 

25 

85 

fb 

2558 : 

: bO 

20 

be 

25 

86 

bl 

20 

bb 

4a 

2560 : 

: 25 

ea 

ea 

38 

e5 

bO 

BO 

67 

bl 

2568 

: 85 

b4 

20 

be 

25 

ea 

ea 

38 

ed 

2570 : 

: o5 

bl 

90 

5b 

85 

b5 

a9 

40 

ea 

2578 

: 85 

9e 

a9 

38 

85 

9f 

a5 

bO 

Ob 

2580 i 

: 20 

bl 

25 

a9 

00 

85 

bd 

a5 

66 

2588 

: bd 

c5 

bl 

fO 

07 

20 

af 

25 

2d 

2590 : 

: e6 

bd 

dO 

f 3 

20 

45 

a8 

a5 

21 

2598 : 

: b4 

85 

b6 

20 

61 

26 

a5 

87 

ad 

25a0 : 

: 20 

ca 

cd 

c6 

b6 

10 

f 7 

20 

7d 

25a8 

: af 

25 

c6 

b5 

10 

e9 

60 

a9 

77 

25bO 

: 3c 

18 

65 

9e 

85 

Be 

90 

02 

b9 

25b8 

: 06 

9f 

60 

a9 

3c 

2c 

a9 

le 

c3 

25c0 : 

: Bd 

ca 

25 

20 

5c 

79 

20 

f4 

fc 

25c8 : 

: 87 

eO 

00 

bO 

02 

6a 

60 

20 

Oc 

25d0 : 

: 28 

7d 

20 

le 

9e 

bO 

02 

8a 

Of 


Llstfng 1. »color-pack l.m« enthält 
die wichtigen Grafik-Routinen. 
Bitte mit dem MSE (Seite 158) 
im C64-Modus eingeben 
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2c 

20 

b2 

2c 

ce 

e6 

2c 

dO 

85 

2ca8 

: f 5 

ae 

e3 

2c 

ac 

e4 

2c 

60 

d6 

2cb0 : 

: a9 

Od 

20 

d2 

ff 

24 

90 

dO 

47 

2cb8 

: 01 

60 

20 

42 

2c 

a2 

05 

4c 

be 

2cc0 

: 3c 

4d 

00 

03 

Oe 

Of 

30 

33 

64 

2cc8 

: 3c 

3f 

CO 

c3 

cc 

cf 

fO 

f 3 

43 

2cd0 : 

: fc 

ff 

00 

Of 

fO 

ff 

4c 

4c 

87 

2cd8 

: 4c 

4c 

01 

02 

81 

82 

00 

00 

f7 

2ce0 

: 00 

00 

00 

00 

00 

00 

00 

00 

el 

2ce8 

: 00 

00 

a9 

04 

8d 

06 

d5 

a9 

87 

2cf0 : 

: 00 

85 

a3 

a2 

12 

20 

cc 

cd 

el 

2cf 8 

: e8 

20 

cc 

cd 

a2 

lf 

8e 

00 

3a 

2d00 

: d6 

a9 

40 

85 

a6 

98 

10 

03 

el 

2d08 

: a2 

45 

2c 

a2 

04 

86 

a4 

98 

e4 

2dl0 : 

: aO 

00 

29 

01 

dO 

15 

bl 

a3 

df 

2dl8 

: 2c 

00 

d6 

10 

fb 

8d 

01 

d6 

da 

2d20 

: c8 

dO 

f 3 

e6 

a4 

c6 

a6 

dO 

e7 

2d28 

: ed 

fO 

Oe 

20 

dd 

cd 

91 

a3 

ef 

2d30 

: c8 

dO 

f 8 

e6 

a4 

c6 

a6 

dO 

38 

2d38 

: f 2 

a9 

07 

8d 

06 

d5 

60 

22 

47 


Listing 1. (Schluß) 


Name : color-pack.key.m 1000 lOff 


1000 

02 

Oc 

06 

11 

67 

26 

06 

06 

78 

1008 

05 

Ob 

lb 

40 

09 

09 

09 

lb 

95 

1010 

40 

lb 

4a 

44 

cc 

20 

20 

20 

88 

1018 

lb 

49 

44 

49 

d2 

Od 

09 

09 

de 

1020 

09 

lb 

40 

lb 

4a 

44 

d3 

20 

81 

1028 

3a 

22 

22 

9d 

40 

9d 

9d 

93 

3e 

1030 

49 

46 

50 

45 

c5 

28 

32 

29 

12 

1038 

3d 

31 

54 

c8 

3a 

47 

d3 

32 

ce 

1040 

3a 

50 

« 

cb 

32 

2c 

30 

3a 

a9 

1048 

45 

4a 

53 

45 

49 

48 

50 

45 

u3 

1050 

c5 

28 

32 

29 

3e 

31 

54 

c8 

2b 

1058 

50 

4f 

ob 

32 

2c 

31 

3a 

47 

4d 

1060 

d2 

31 

3a 

47 

d3 

31 

3a 

3f 

70 

1068 

43 

c8 

28 

32 

37 

29 

3b 

43 

90 

1070 

c8 

28 

38 

38 

29 

3b 

3a 

45 

41 

1078 

4c 

53 

45 

50 

4f 

cb 

32 

2c 

3e 

1080 

32 

3a 

47 

d2 

3a 

3f 

43 

c8 

38 

1088 

28 

32 

37 

29 

3b 

43 

c8 

28 

fe 

1090 

38 

38 

29 

3b 

3a 

Od 

43 

4c 

48 

1098 

cf 

34 

3a 

4f 

dO 

34 

2c 

34 

c2 

lOaO 

2c 

32 

3a 

43 

cd 

34 

3a 

4c 

de 

10a8 

49 

53 

54 

09 

09 

09 

3a 

50 

34 

lObO 

d2 

34 

3a 

43 

4c 

cf 

34 

lb 

de 

10b8 

4a 

09 

09 

09 

93 

4c 

49 

53 

52 

lOcO 

54 

Od 

lb 

49 

4d 

4f 

ce 

Od 

2f 

10c8 

93 

52 

55 

4e 

Od 

41 

d5 

31 

38 

lOdO 

30 

Od 

91 

91 

91 

lb 

40 

91 

33 

10d8 

lb 

40 

91 

4c 

49 

53 

54 

Od 

9c 

lOeO 

lb 

49 

4d 

4f 

ce 

Od 

93 

52 

25 

10o8 

55 

4e 

Od 

41 

d5 

31 

30 

Od 

92 

lOfO 

91 

91 

91 

lb 

40 

91 

00 

00 

a2 

lOf 8 

ff 

ff 

00 

00 

ff 

ff 

00 

63 

be 


Listing 2. In »color-pack.key.m« ist 
die neue Belegung der Funktions¬ 
tasten gespeichert. Die Eingabe 
erfolgt mit dem MSE (Seite 158) 
im C64-Modus. 
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C128 


GRAFIK 


10 SCNCLR 


<FTJ> 

190 : 

<6SR> 

20 PRINT "<YELLQW,CTRL+N 

COLOR-PA 


200 GRAPHIC 3,1 

<52N> 

CK 1 »-►*«-»-«-*-t-«-*-«-«-«-*-t-*-C2D0WN}" 


<L06> 

210 GRAPHIC 0 

<A7P> 

30 : 


< I OB > 

220 PRINT "<CTRL+N) 80-ZEICHEN-ÜONI TOR BENUTZEN ! 


40 PRINT CHRS (159) ; ".RAINER fRANZEN 


<060 


<P6H> 

50 PRINT "£DGAR- £07- STR. 19 


<AFQ> 

230 GRAPHIC 5 

< A3R> 

60 PRINT “2000 HAMBURG 20 


<TU4> 

240 : 

<3CD> 

70 PRINT "IELs 040/462008<GREEN,DOWN> 


<4BC> 

250 BLOAD "COLOR-PACK l.M",QN BO 

<425> 

SO : 


<NAT> 

260 BLOAD "COLOR-PACK.KEY.M",ON BO 

<9F7> 

100 IF RGR<0>«5 THEN 160 


<PHH> 

270 SYS DEC ( "23D2" ) 

<EPE> 

110 PRINT " DIE 00-ZEICHEN* TASTE DRUCKEN CCTRL+J >" 

< 2RE > 

280 CLR 

<GE3> 

120 PRINT CHR*(27)"X"; 

130 PRINT " CCTRL+N) DIE 80-ZEICHEN-IASTE 

DRUCKEN C 

< RQT > 

290 FAST 

<DLJ> 

CTRL+J ) 11 


<R86> 



140 SYS DEC < "FF3D" > 

150 : 


<9VN> 

< 0S3> 

Listing 3. Der Lader von Color-Pack 1. Er hat natürlich 

160 IF PEEK(211 ) AND 16 THEN 200 


<G2K> 

den Namen »color-pack 1«. Der Checksummer 128 
(Seite 158) ist als Eingabehilfe zu verwenden. 


170 PRINT "<CLR> DIE ASCII/DIN- TASTE DRUECKEN !" 

180 SYS DEC ( "FF3D" ) 

<KC6> 

<97K> 



1O0 PRINT CHAR-«SPACE»JEFE 

110 x 

120 TRAP 470 
130 GRAPHIC 1,8,7 
140 COLQR 1,0,7 
150 COLOR 2, 5,7 
160 COLOR 3,11,7 
170 : 

100 CHAR 1, 90, 4 , 0,"CRVSQN>SCHRIFTDEMONSTRATI 

ONTRVOFF>”,255,255 

190 CHAR 1, 91, 4 , 0,“<RVSQN)SCHRIFTDEMONSTRATI 

GN{RVOFF>" 

200 : 

210 CHAR 2, 40,20 , 0,*’ SfiS IST DIE ^OREINSTELLU 

NG " 

220 CHAR 2, 41,20 , 0," 2AS IST DIE yflREINSTELLU 

NG ** 

230 s 

240 CHAR 3,110,36 , O,"fiAS IST DIE NORMALE ZEICH 
ENGREW <2SPACE > " , 127,255 
250 s 

260 A*="Ä*S IST DIE 5£HMALSCHRIFT SREITE.ÜEHEi 92 
,255" 

270 CHAR 1,110,52 , 0, At, 92,255 

200 : 

290 A*="flAS IST DIE &IEDRIG- UND SCHMALSCHRIFT £R 
EITE,UWE 95,224" 

300 CHAR 1,110,72 , 0, A*, 95,224 

310 s 

320 A*="SAS IST DIE NIEDRIG- UND SCHMALSCHRIFT SR 
EITE.ÜEHE 95,192" 


<F3I> 

<2SB> 

< 1TF> 
<DFA> 

< V5U > 
<ULS' 
<L03> 

< 1S7> 

<VUP> 

<0O9> 

<1C5> 


330 CHAR 1,110,90 , O, A«, 95,192 
340 : 

350 A*="a*S IST DIE &IEDRIG- UND SCHMALSCHRIFT 3* 
EITE,UWE 95,176" 

360 CHAR 1,110,108 , 0, A*, 95,176 

370 : 

380 CHAR 1, 20,200, 90,"VOREINSTELLUNG: ",,,255,2 
39 

390 s 

400 CHAR 1, 36,200, 90, "Y J?REITE ficHE«SPACE>255, 
239" 

410 : 

420 CHAR 1, 52,200, 90,"Y SREITE ü£HEC2SPACE5200, 

220 ",,, 200,220 


<K 8 K> 
<0S3> 

<40K> 
<3SF.> 


430 : 

431 CHAR 1,420,140,180,"flIESER JEXT STEHT KOPF",2 
55,255 

432 CHAR 1,420,160,180,"£IN SCHMALER JEXT STEHT K 
OPF",150,255 

433 CHAR 1,110,170,340,"SCHRÄGE TEXTE GEHEN AUCH" 

450 KEY A* 


<VDT> 

<GS5> 

<5CL> 

<40B> 
< M9Q > 


460 s 

470 GRAPHIC 

480 IF ER<1 THEN 500 

490 PRINT ERR$(ER) " IN ZEILE "EL 

500 END 


<95K> 

<2C9> 

<540 

<9TQ> 

<3SF> 

<DV4> 

<4SJ> 

<LU9> 

<7SV> 

< JUG> 
<6SR> 

<BQU> 

<7CV/> 

<JOU> 

<5CL> 

<LSD> 

<4CH> 

< NBG > 
<3SQ> 
<7RK> 
<T7M> 


< 0S3> 

< J0L> 


Listing 4. Das Demoprogramm erzeugt Bild 2. 
dem Checksummer 128 (Seite 158) eingeben. 


Bitte mit 

v 


60 TRAP 10000 



< JL0> 

61 r 




<G20> 

100 

REM ••*-*-*-*-*-*-*-*.*-*- aEUE INTERNE 

flCHSENSCALIERUNG 






<2C9> 

110 

X 



<2SB> 

120 

XI—3«*s X2-3 »V 



<VA1> 

130 

x 



<3SF> 

140 

Yl—1.5« Y2-2.5 



<B9J > 

ISO 

x 



<0S3> 

160 

REM "«-*• 3ERECHNUNG DER 5CALIERUNGSFAKTOREN UN 



D -SUMMANDEN ff, 



< 1C5> 

170 

■ 



<1S7> 

180 

XF-<479-0)/(X2-X1) 

s REM 

" STEIGUNG 

<MG8> 

190 

XS.0-XF.X1 

x REM 

" flCHSENABS 



CHNITT 



< J96> 

200 

I 



<1C5> 

210 

YF-(0-239)/(Y2-Y1) 



<195> 

220 

YS-239-YF*Y1 



<V3G> 

230 

X 



<6S3> 

240 

SCALE 3, XF,XS ,YF,YS 

3 REM 

" flEUES ADO 



RDINATENSYSTEM 



<EDH> 

250 

3 



<3SF> 

266 

GRAPHIC 1,8,7 

x REM 

" GELB/BLAU 



INS GESAMTE .EARBRAM 



<5I8> 

270 

: 



<2SB> 

280 

XA=-2.1»Ws XB=+2.1*W 

x REM 

" START- UN 



D SNDWERT 



<VS3> 

290 

X 



<5SN> 

300 

DRAW ,XA-.5,0 TO XB+.5.0 

s REM 

" AOGRDINAT 



ENACHBEN ZEICHNEN 



<JOD> 

310 

DRAW ,0,-1.2 TO 6,1.2 



<SUT> 

320 

X 



< 1C3> 

336 

DRAW ,XA,SIN(XA) 



<FND> 

340 

FOR X=XA TO XB STEP 2/XF 

3 REM 

“ STEP: JED 



ES 2. £.1XEL IN X- SICHTUNG 



<B78> 


350 ! DRAM TO X,SIN(X> <9BP> 
360 NEXT X <9LC> 
370 ! <3SF> 
380 COLOR 2,5,4 i REM “ VIOLETT/ 

TSRKIS <BV7> 

390 CHAR 2,120,20,,"<RVSON> SINÜSKURVE “,253,255 <P 8 S> 

391 CHAR 2,121,20,,“(RVSON> 31NUSKURVE " <CFU> 
400 : <7CT> 
410 COLOR 3,11,1 ! REM “ ROT/SCHMA 

RZ <P 8 T> 
420 BOX 3, 3,3,475,235 <RJQ> 
430 : < 6 SR> 
1000 SCALE 2 l REM LOCATE - BN 

WENDUNG M-M-FF" < 1MD> 
1010 FOR X=10 TO 469 <5HN> 
1020 : LOCATE X,20O,C <5KU> 
1030 1 DRAM 1 <PI5> 
1040 I IF C THEN BE 6 IN <EDL> 
1050 ! DRAW 1,X-4,202 TO XF4.19B <H5B> 
1060 : DRAW 1,X-4,198 TO X+4,202 <MP1> 
1070 : BEND i ELSE BEGIN <ROH> 
1080 i DRAW 0 <905> 
1090 : BEND <3KU> 
1100 NEXT <A90> 
1110 GET KEY A* <78D> 
1120 : <103> 
10000 GRAPHIC <VJG> 
10010 IF ER<1 THEN 10030 <4AD> 
10020 PRINT ERR*(ER>“ IN ZEILE “EL <JBU> 
10030 LIST 100 - 280 <AAO> 


Listing 5. »SCALE« definiert jeden beliebigen Bereich. 
Bitte mit dem Checksummer 128 (Seite 158) eingeben. 
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C128 


GRAFIK 


Apfelbeige 

Fraktale Grafik ist unter Computerkünstlern 
bestens bekannt. Das folgende Programm 
erlaubt eine besondere Art der Apfelmännchen 
im Multicolor-Modus des C128 darzustellen. 

F raktale Grafiken, die man auch »Apfelmännchen« 
nennt, entstehen trotz ihrer komplexen Schönheit aus 
einer einfach scheinenden mathematischen Funktion. 
Lesen Sie dazu auch den neuen Fraktal-Kurs des 64’er- 
Magazins, der in Ausgabe 9/87 beginnt. 

In die Zweidimensionalität gezwungen, wirken fraktale 
Bilder wie kunstvolle Gemälde, deren Farben durch die 
Berechnungstiefe eines jeden Punktes bestimmt sind. Eine 
ebenso interessante Version sind jedoch dreidimensionale 
Apfelmännchen. Hier wird die Iterationstiefe eines Punktes 
nicht farbmäßig, sondern durch die dritte Dimension darge¬ 
stellt. Das Ergebnis sind eigenartige und mitunter zufällig 
scheinende Hügellandschaften, wie sie oftmals in Spielen 
wie »Koronis Rift« Verwendung finden. 

Das Basic-Programm »apfelberg.mod« in Listing 1 ist 
eine für den C128 aufbereitete Version des Programmes 
»apfelberge«, das bereits in Ausgabe 1/87 des 64’er- 
Magazins für den C64 veröffentlicht wurde. Verwenden Sie 
für die Eingabe bitte den Checksummer 128, den Sie in die¬ 
sem Sonderheft auf Seite 158 finden. 

Mit den komfortablen Befehlen des Basic 7.0 zaubert die¬ 
ses Programm herrliche Landschaften auf den 40-Zeichen- 
Bildschirm des C128, wie etwa die Grafik in Bild 1. Verschie¬ 
dene Parameter erlauben dabei die Wahl der verwendeten 
Farben sowie die Veränderung des Bildausschnittes und 
der Iterationstiefe. 



Bild 1. Die »Grundlandschaft« der Apfelberge 


Trotz des Befehles FAST ist die Berechnung eines sol¬ 
chen Bildes jedoch sehr zeitaufwendig. Je nach gewählter 
Iterationstiefe ergeben sich Rechenzeiten bis in den Stun¬ 
denbereich. Aus diesem Grund sollte das fertige Bild spä¬ 
ter auf Diskette gespeichert werden. Das Grafikbild ab 
Adresse 8192 bis 16383 und der dazugehörige Farbspei- 
cher von Adresse 7168 bis 8191 werden dabei getrennt in 
zwei Dateien abgelegt, um eine eventuelle Bearbeitung 
des Bildes mit einem Zeichenprogramm im C64-Modus zu 
erleichtern. Die Datei mit der Farbinformation ist durch das 
Kürzel »-F« gekennzeichnet. Soll die Grafik wieder im 
C128-Modus geladen werden, sind demnach folgende 
Anweisungen notwendig: 

BLOA!’ T lateiname) ", 0N BO 
BL0AD"( dateiname) -F", 0N BO 

Der Befehl »GRAPHIC 3« macht das Bild anschließend 
wieder sichtbar. (Rene Gagnaux/Michael Thomas) 


ICO REH APFELBERGE, NACH FLORIAN MUELLER,1986, 64 
'ER, HEFT 1/87, S.80 

HO REM URSPRUENGLICH FUER CI6/116/PLUS 4, ABGEAE 
NDERT FUER C 128 

120 REM ABAENDERUNG 14.12.1986, R.GAGNAUX 
130 REM TEXTAUSGABE AUF 80-ZEICHENBILDSCHIRM 
140 REM GRAFIKAUSGABE AUF 40-ZEICHENBILDSCHIRM, G 
RAPHIC-MODUS 3 
150 : 

160 : 

20O SCNCLR : GRAPHIC 0,1: GRAPHIC 1,1: GRAPHIC 3, 
1: GRAPHIC 5,1 

40O REM VOREINBTELLEN DER VARIABLEN 
491 XC-li YC=Or T*20: S=60: XL=-.15: XR=.26t YO*. 
47: YU«=. 9: XM=105: YM=105 

402 Fl=6: REM FARBE DER HORIZONTALEN FLAECHEN 

403 F2«4: REM FARBE DER VERTIKALEN SEITENFLAECHEN 

404 F3-11: REM FARBE DER VERTIKALEN VORDERFLAECHE 
N 

403 HG-7: REM HINTERGRUNDFARBE GRAPHIKBILDSCHIRM 

410 PRINT TAB(10)"HINTERGRUND."}HG 

420 PRINT TAB (IO) "FARBE 1."jFl 

430 PRINT TAB (IO) "FARBE 2."|F2 

440 PRINT TAB (10) "FARBE 3."jF3 

450 PRINT TAB (10) "X KOMPLEX."jXC 

460 PRINT TAB (1 0) "Y KOMPLEX." j YC 

470 PRINT TAB(IO)"RECHENTIEFE."|T 

480 PRINT TAB(IO)"MAXIMALE HOEHE.."*S 

490 PRINT TAB(10) "X LINKS.";XL 

50O PRINT TAB (10) " X RECHTS." t XR 

510 PRINT TAB (10) "Y OBEN."jYO 

520 PRINT TAB (1 0) " Y UNTEN." ; YU 

530 PRINT TAB (IO) "AUSMASS X.";XM 

540 PRINT TAB (10) "AUSMASS Y." | YM 

550 PRINT : PRINT "DIE VOREINGESTELLTEN WERTE KOE 
NNEN MIT <RETURN> - OHNE PARAMETEREINGABE -" 
560 PRINT "UEBERNOMMEN WERDEN !!" 

570 PRINT 
580 : 

590 REM BEGINN EINGABE 
6O0 INPUT "HINTERGRUND"!HG 
610 INPUT "FARBE 1T4SPACE)";Fl 
620 INPUT "FARBE 2C4SPACE)"}FZ 
630 INPUT "FARBE 3T4SPACE)";F3 
640 INPUT "X KOMPLEX C2SPACE>";XC 
650 INPUT "Y KOMPLEX<2SPACE)"jYC 
660 INPUT "MAX. TIEFE ";T 
670 INPUT "MAX. HOEHE ";S 
680 INPUT "X LINKS (4SPACE)":XL 


< 11 A> 

<IQB> 

< I28> 

< I A9> 

<JIE> 

<0S3> 

< 1G5> 

<GHR> 

<G2ö> 

<3KP> 

<3S3> 

<4CR> 

<LU2> 

<LQS> 

< PBV > 
<P70> 
<LRR> 

< IFL> 
<CFT> 
<CNU> 
<JQU> 
<L2K> 
<UN6> 
<GR7> 
<-MBL> 
<RB1> 
<474> 
<6VB> 

<0VT> 

<LS5> 

<5CU> 

<2C9> 

<IQB> 

<16S> 

<LL8> 

<DM9> 

< 5N9 > 
<S7A> 
<SEB> 
<FK.9> 
<GJQ> 
<4HD> 


690 INPUT "X RECHTSC3SPACE)"; XR 

7O0 INPUT "Y OBEN C5SPACE>";YO 

71© INPUT "Y UNTEN<4SPACE>";YU 

720 DO r INPUT "AUSMASS X"»XM: LOOP WHILE XM=0 

730 DQ : INPUT "AUSMASS Y"iYM: LOOP WHILE YM=0 

740 PRINT "ALLES RICHTIG (J/N) ?" 

750 DO : GET KEY A$: LOOP UNTIL A*="J" OR A*="N" 
760 : 

800 REM BEGEIN GRAFIK 

801 IF A*="N" THEN RUN : ELSE DX»(XR-XL)/XM: DY=( 
YU-YO)/YM 

810 GRAPHIC 1,1: GRAPHIC 5,1 

015 PRINT "DIE AUSGABE DER GRAFIK ERFOLGT AUF DEM 

40-ZEICHEN-BILDSCHIRM !!" 

820 GRAPHIC 3,1: COLOR 1,F1: COLOR 4,HG: COLOR 2, 
F2: COLOR 3,F3: COLOR 0,HG 
83© FOR N-O TO YM: Y1=Y0+N«DY: FOR M=0 TO XM: X«X 
L+M*DX: Y-Yl: K-0 

840 DO : X2«X*X: Y2-Y*Y: Y-2«X*Y-YC: X-X2-Y2-XC: 

K»K+1: LOOP WHILE((K<T) AND(X2+Y2<8)> 

850 U*M+53-N/2: UI-U+li V»N+80: V1-V-3*(K-1> 

855 IF V1<0 THEN Vl-0 

860 DRAW 3,U,V TO U,Vt« DRAW 2,U1,V TO Ul,VI: DRA 
W 1,U,V1 TO Ul,VI 
870 NEXT M 

875 PRINT "<HQME,5D0WN,WHITE)DIE GRAFIK IST ZU "j 
(INT ( (100» (N/ (YM+ 1) ) ) * 100) > /100; " */. <SHF. SPACE 
BEZEICHNET aOSPACE)" 

880 NEXT N 

90O REM BILD SPEICHERN 
910 GRAPHIC 5,1 

920 PRINT : PRINT "BILD ABSPEICHERN 7CSHF.SPACE)( 
J/N) " 

930 PRINT "(DIRECTORY MIT TASTE 'D')" 

940 GET KEY A4: IF A*-"D" THEN DIRECTORY : GOTO 9 
20 

950 IF A*«"J" THEN BEGIN 

960 INPUT "BILDNAME, MAX. 13 ZEICHEN"jB* 

965 IF LEN(BO >13 THEN GOTO 960 
970 BSAVE(B*),ON BO,P0192 TO P16383 
975 BSAVE(B*)+"-F",ON B0,P7168 TO P8191 
980 BEND 

990 END 



<EU2> 
<RBD> 
<FM0> 
<ES1 > 

< RCN > 
<9IS> 
<4GQ> 
<7CT> 
<M20> 

<4BQ> 

<VR4> 

<EKM> 

<11N> 

<OBV> 

<MFV> 

<TEO> 

<OHF> 

<DMG> 

< JM6> 


<4TH> 

<BL7> 

<MIQ> 

< H2R > 

<MEG> 

<B01> 

<3NE> 

<9D4> 

<7BE> 

<H1V> 

< JLH> 
<I9M> 
<IME> 

<V3U> 


Listing 1. Das modifizerte Programm »apfelberg.mod«, 
das die fraktalen Gebirge erzeugt. Bitte mit Checksum¬ 
mer 128 (Seite 158) eingeben. 
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GRAFIK 


C128 


»Edite« Windows 
im 80-Zekhen-Modus 


Damit Sie Ihre Programme professioneller und 
übersichtlicher gestalten können, stellen wir hier 
eine Erweiterung zum Abtippen vor, die zehn 
»echte« Windows bearbeiten kann. 

D as Programm »Window-Tech 80« ist eine Betriebssy¬ 
stem-Erweiterung für den 80-Zeichen-Modus des 
C128, die nicht nur 10 (!) Windows gleichzeitig bear¬ 
beitet, sondern es können auch noch die Bildschirminhalte 
gerettet werden. »Ganz nebenbei« wird der 80-Zeichen- 
Bildschirm um zwei weitere Bildschirmzeilen erweitert, von 
denen die zweite am unteren Bildschirmrand die aktuelle 
Uhrzeit (inklusive Alarm) und den aktuellen Programmzäh¬ 
lerinhalt der CPU 8502 laufend anzeigt (Bild 1); die erste 
Zusatz-Zeile bleibt leer und dient nur zur Verschönerung 
des Designs, damit die Statuszeile nicht an der untersten 
regulären Bildschirmzeile »klebt«. 

10 Windows gleichzeitig 


Das Programm, das die genannten Eigenschaften hat, fin¬ 
den Sie in Listing 1; es wird mit dem MSE im C64-Modus 
eingegeben, aber im C128-Modus mit BLOAD "WINDOW- 
TECH 80",ON BO geladen und mit SYS DEC("1BD6") 
gestartet. Danach ist diese Erweiterung aktiviert, was sich 
an der Einblendung der Statuszeile bemerkbar macht. 

Statuszeile als 27. Bildschirmzeile 


Die Anzeige des PC (Programmzähler des Prozessors) ist 
für Maschinenprogrammierer beim Debugging (Fehlersu¬ 
che) nützlich; bleibt der PC stehen, so durchläuft das 
Maschinenprogramm entweder eine Schleife, die immer 


wieder ihre eigene Adresse anspringt ($5000 jmp $5000), 
oder es liegt ein Prozessorabsturz vor. Beim Hängenblei¬ 
ben eines Programms in einer größeren Endlosschleife 
kann man die kritische Adresse zumindest erahnen. 



Bild 1. C: Demo für die Windows. Das rechte untere Win¬ 
dow ist momentan ‘aktiv. 

Rechts neben dem PC befindet sich eine Echtzeituhr und 
noch einmal rechts davon die Alarmzeit, die durch Einstel¬ 
len aktiviert wird. 

Nach dem Start des Programms befindet man sich im 
Fenster mit der Nummer »#1«. Alle zehn Fenster sind in 
ihrer Größe frei wählbar, sind aber nach dem Start schon 
voreingestellt. Neu einstellen lassen Sie sich auf die her¬ 
kömmliche Art und Weise mittels ESC-Funktionen, oder 
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C128 


GRAFIK 


mit eigens dafür eingerichteten ESC-Sequenzen. Beim 
Verlassen eines Fensters wird die Cursorposition zwi¬ 
schengespeichert; nach Einschalten dieses Fensters 
befindet sich der Cursor also wieder an der alten Position. 

Zusätzliche Basic-Befehle 
für den Direktmodus 


Um mit der Echtzeituhr möglichst bequem arbeiten zu kön¬ 
nen, wurden zwei zusätzliche Basic-Befehle - SET und 
ALARM - geschaffen, die nur im Direktmodus funktionie¬ 
ren. 

SET dient dem Einstellen der Uhrzeit und wird von einer 
sechsstelligen Angabe (ähnlich der Basic-Variablen Tl$) 
gefolgt. SET083410 setzt die Uhr beispielsweise auf 8 Uhr 
34 und 10 Sekunden. Um eine Zeit zwischen 12 und 24 Uhr 
einzustellen, muß zur ersten Ziffer 8 addiert werden (Bei¬ 
spiel: SET914507 setzt die Uhr auf 23 Uhr 45 und 7 Sekun¬ 
den, nicht jedoch SET234507!). 

SET- schaltet die Anzeige der Statuszeile ab, die Uhr 
läuft aber intern weiter. 

SET+ dient zur Rückgängigmachung von SET-, 

ALARM stellt die Alarmzeit gemäß einer vierstelligen 
Angabe (ALARM0834 für Alarm um 8 Uhr 34, ALARM2345 
für Alarm um 23 Uhr 45). Der Alarm dauert 1 Minute und 
wird mit < ESC H > abgestellt. 

Zusätzliche ESC-Sequenzen 


Außer den herkömmlichen ESC-Funktionen stellt das Pro¬ 
gramm »Window-Tech 80« auch noch einige weitere bereit, 
die zur Ausreizung seiner besonderen Möglichkeiten die¬ 
nen. 

<ESC ?> fragt nach einer Fensterauswahl; durch 
Drücken einer Zifferntaste (0 bis 9) wird dadurch das 
gewünschte Fenster aktiviert. Eine andere Taste verläßt 
den Auswahlmodus und behält das alte Fenster bei. 

<ESC> und nachfolgendes Drücken einer Zifferntaste 
(0 bis 9) wählt ein Fenster direkt an. 

Wird <ESC> vom Kleiner-als-Symbol (<) gefolgt, so 
definiert man damit die linke obere Ecke des Fensters, 
löscht dieses und stellt es umrandet dar. 


Dasselbe bewirkt das Auslösen von <ESC> und dem 
Größer-als-Symbol (>) für die rechte untere Ecke. 
Natürlich läßt sich die Fenstertechnik von »Window-Tech 
80« auch in Basic verwenden. Auf folgende Weise wird ein 
beliebiges Fenster aufgerufen: 

10 INPUT FENSTER:G0SUB 1000: REM FENSTER = 0 BIS 9 
20 END 

1000 PRINT CHR$(27);CHR$(48+FENSTER);:RETURN: 

REM FENSTER AUFRUFEN 

Ebenso ist es für Maschinenprogrammierer möglich, die 
ESC-Sequenzen für die Fensterbehandlung mittels 
BSOUT oder PRIMM zu verwenden. 

Eine weitere Möglichkeit besteht darin, die ESC- 
Sequenzen <ESC 0> bis <ESC 9> neu zu definieren, 
wobei <ESC?> weiterhin funktioniert (!). Die Adreßtabelle 
für die ESC-Routinen befindet sich im Speicher ab $16c4 
($16c4bis$16d3: Low-Bytes;$16d4bis$16e3: High-Bytes). 

Fensterparameter und -Inhalte 
lassen sich speichern 


ln Basic erlaubt folgender Befehl das Speichern aller Fen¬ 
sterdaten einschließlich der Cursor-Koordinaten: 
BSAVE"NAME",0N B0.P6011 T0 P6071 

Mit BLOAD" NAME" ,ON B0 werden diese wieder einge¬ 
lesen. 

Ein anderer Befehl speichert die Fensterinhalte: 

BSAVE ''NAME ",0N B1.P44800 T0 P65279 
BLOAD''NAME",ON Bl lädt diese Datei wieder. 

Die Lade- und Speicherbefehle sind für Maschinenpro¬ 
grammierer leicht in die Kernel-Aufrufe von SETBNK, 
LOAD 1 ld SAVE zu übertragen. 

Abschließend wünschen wir Ihnen viel Spaß mit dieser 
wirklich sinnvollen Erweiterung des C128. Im Literaturver¬ 
zeichnis finden Interessierte noch einige Hinweise auf wei¬ 
terführende Informationen zum Thema »Window-Program¬ 
mierung auf dem C128«. (Heino Cunze/F. Müller) 

Literaturhinweise: 

Windows - Fenster zum neuen Bedienungskomfort, 64’er-Sonderheft 7/86 (PEEKs & POKEs), 
S. 110-117. 

Dieser Artikel bezieht sich auch auf C16 und C64. 

VDC - 80 Zeichen ist nicht alles, Artikelserie in den 64’er-Stammheften 3/87, 5/87, 7/87 und 8/87. 
Dort erfahren Sie auch alles über die Programmierung zusätzlicher Bildschirmzeilen. 
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Listing 1. »Window-Tech 80« wird 
mit dem MSE im C64-Modus ein¬ 
gegeben 
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GRAFIK 


999 Grafikbilder im Speicher 


Kaum zu glauben, aber »MSG« macht’s möglich: 
Fantastische Grafikbilder auf komfortable Weise 
erstellen und bis zu 999 Bilder in eigene Pro¬ 
gramme einbinden. 

C omputerspiele werden durch ansprechende Grafik 
erst richtig interessant. Sowohl der C64 als auch der 
C128 sind hierfür sehr gut geeignet. Bei diesen Com¬ 
putern gibt es prinzipiell zwei Wege, Grafiken zu kreieren: 
Hires- oder Zeichensatzgrafik. Die erste Möglichkeit zeich¬ 
net sich durch große Flexiblität aus, belegt aber sehr viel 
Speicher im Computer, so daß bei einem Spiel nur wenig 
verschiedene Bilder verwendet werden können. Wenn man 
sich dagegen Spiele wie »Hexenküche« oder »Antiriad« 
anschaut, verfügen diese über eine große Anzahl von Bil¬ 
dern. Hier wurde die Zeichensatzgrafik verwendet. Doch 
dies allein reicht noch nicht aus. Betrachtet man sich die 
Bilder dieser Spiele genauer, so wird man feststellen, daß 
hier bestimmte Bildteile immer wieder auftauchen (Mauer¬ 
teile, Plattformen, etc.). Um weiteren Speicherplatz zu spa¬ 
ren, werden solche Bildelemente als aus mehreren Zei- 
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Bild 1. Solche fantastischen Bilder ermöglicht »MSG' 


chen bestehende Module gespeichert. Aus diesen setzt 
sich dann das endgültige Bild zusammen. 

Der »Modul-Screen-Generator« (kurz MSG) macht diese 
Technik dem Hobbyprogrammierer zugänglich. Ein kom¬ 
fortabler Editor hilft beim Erstellen von Modulen, die dann 
zu Bildern kombiniert werden können. Fertige Bilder sind 
leicht in eigene Programme zu übernehmen. Welche faszi¬ 
nierenden Bilder Sie mit MSG trotz minimalem Speicher¬ 
bedarf erzeugen können, sehen Sie in den Bildern 1 bis 3. 

Module zum Platzsparen 


Ein Modul des MSG besteht aus vier mal vier Zeichen, 
wobei jedes Zeichen eine eigene Farbe annehmen kann. In 
so einem Modul erstellt man kleine Grafikausschnitte, bei¬ 
spielsweise den Teil einer Mauer. Setzt man nun zweimal 
das gleiche Modul nebeneinander, wird die Mauer ein 
Stück größer. Wird dieser Vorgang nun beliebig oft wieder¬ 
holt, lassen sich umfangreiche Bilder erzeugen. Innerhalb 
des MSGs dürfen bis zu 256 Module entworfen werden, 
wobei diese wiederum aus 256 selbstdefinierten Zeichen 



Bild 2. Faszinierende Bilder bei minimalem Speicherplatz¬ 
bedarf können Sie in Ihre Programme einbinden 


zusammengesetzt sind. Für diese kann entweder Hires- 
oder Multicolor verwendet werden. Aus den so erzeugten 
Modulen kann man schließlich im Screen-Editor eigene Bil¬ 
der entwerfen. 

So arbeitet das Programm 


Durch diese Methode lassen sich grafisch anspre¬ 
chende Bilder erzielen. Aufgrund ihres geringen Platzbe¬ 
darfs faßt der Speicher des C128 bis zu 999 (!) Stück davon. 

Die erstellten Bilder und Module können problemlos in 
eigene Basic- oder Maschinenprogramme eingebaut wer¬ 
den, wobei bei Basic einige Abstriche gemacht werden 
müssen. Erstens funktionieren die Sprite- und Soundbe¬ 
fehle nicht mehr. Zweitens sollte man auf die Darstellung 
von hochauflösender Grafik verzichten - es sei denn, man 
legt den Zeichensatz an eine andere Speicherposition und 
schreibt den Bildschirmaufbau für seine Zwecke um. Drit¬ 
tens ist der Anzahl der Bilder bei der Programierung in 
Basic veringert. Alles in allem ermöglicht es MSG jedoch 
auch, Basic-Programme mit Hilfe der Grafiken anspre¬ 
chend zu gestalten und aufzuwerten. 
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Bild 3. Der komfortable Editor macht die Erstellung schöner 
Bilder leicht und viele Ideen lassen sich realisieren 
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GRAFIK 




Infos erleichtern das Arbeiten 


Da wäre an oberster Stelle die aktuelle Zeichennummer 
(»Z. NR.«), sie wird mit dem Cursor im Zeichensatzfeid 
rechts oben angewählt. Darunter steht die aktuelle Modul- 
nummer(»M. NR.«), das dazugehörige Modul befindet sich 
in der Mitte ganz oben. Als nächstes folgt die Nummer des 
Zeichens, das sich gerade unter dem Cursor im Moduledi¬ 
tierfeld befindet (»A. NR.«). Schließlich wird noch über den 
aktuellen Zeichensatz (»Z. SATZ 0« oder »Z. Satz 1«) und die 

momentane Art der Zeichendarstellung Auskunft gegeben 
(»MULTI« oder »NORMAL«), wobei »MULTI«, Multicolor und 
»NORMAL« Hires entspricht. Des weiteren stehen rechts 
neben diesen Daten noch Informationen zu den aktuellen 
Farbwerten. 


Bild 5. Mit dem Screeneditor können Sie grafisch 
anspruchsvolle Bilder aus Modulen zusammenstellen 


Der MSG besteht aus vier Teilen: dem Ladeprogramm, 
einigen Sprites, der Routine zum Bildschirmaufbau und 
dem eigentlichen Hauptprogramm. Es arbeitet im 40-Zei- 
chen-Modus des C128. Bitte geben Sie Listing 1 bis 3 mit 
dem MSE im C64-Modus und Listing 4 (der Basic-Lader) 
mit dem Checksummer 128 ein. Beachten Sie dazu die Ein¬ 
gabehinweise auf Seite 158. Mit »RUN"M.S.G- V01.128"« 
wird der Lader (Listing 4) geladen und gestartet. Das Nach¬ 
laden der anderen Programmteile erfolgt dann automa¬ 
tisch. 

Editieren leicht gemacht 


Beim Erstaufruf von MSG wird der Speicher von $3000 
bis $FEFF in Bank 1 und das Modul Nummer 32 mit dem 
Space-Code beschrieben. Ferner wird das Zeichen mit 
dem Code 32 gelöscht. Dadurch ergibt ein Druck auf die 
Leertaste auch wirklich ein Leerzeichen. 

Der MSG beinhaltet drei Editoren, die in zwei Gruppen 
aufgeteilt sind. Ein Programm dient dem Erstellen von Zei¬ 
chensätzen und bildet mit dem Editor für Module eine Ein¬ 
heit. Ein weiteres Programm kümmert sich um das Zusam¬ 
mensetzen der Module zu Bildern und stellt die zweite Ein¬ 
heit dar. 


Die Funktionen des Zeichensatzeditors: 

TASTE 

FUNKTION 

<W>,<A>, 

<s>,<z> 

bewegt den Cursor über das Raster 

<RETURN> 

setzt einen Punkt an der Cursorposition 

<SPACE> 

löscht einen Punkt an der Cursorposition 

<l> 

invertiert das Raster 

<HOME> 

löscht das Raster 

<t> 

scrollt den Inhalt des Zeichenrasters nach oben 

< —> 

scrollt den Inhalt des Zeichenrasters nach links 

<X> 

spiegelt Raster in X-Richtung 

<Y> 

spiegelt Raster in Y-Richtung 

<HOME> 

löscht Raster 

<R> 

holt das Zeichen unter dem Zeichensatzcursor 
ins Raster 

<F5> 

übernimmt das entworfene Zeichen in den 
aktuellen Zeichensatz. Der Zeichensatzcursor 
bestimmt dabei die Position. 


Tabelle 1. So bedienen Sie den Zeichensatzeditor 


Nach dem Start des Programms erscheint das erste Editor¬ 
feld vom MSG. welches Modul- und Zeichensatzeditor 
beinhaltet (Bild 4). In der linken unteren Ecke befindet sich 
ein acht mal acht Punkte großes Raster, das zum Entwerfen 
eigener Zeichen dient. Die Funktionen dieses Editors lie¬ 
gen in Tabelle 1 als Übersicht vor. Rechts von diesem 
Raster stehen einige Informationen, die das Arbeiten mit 
den Editoren erleichtern. 


Bild 4. Der Modul- und Zeichensatzeditor 

Doch nun zur Aufteilung des oberen Bildschirmbereichs. 
Hier findet ein Großteil des Moduleditors Platz, dessen 
Befehle Tabelle 2 als Übersicht zeigt. 

Oben rechts befindet sich das Zeichensatzfeld (Bild 4). 
Hier werden die 256 Zeichen des gerade eingeschalteten 
Zeichensatzes abgebildet. Links daneben sieht man oben 
das aktuelle Modul, darunter das Moduleditierfeld. Um ent¬ 
worfene Module testen zu können, ist hierfür ein freier Platz 
auf der linken Bildschirmseite vorgesehen. 

Soviel zum Aufbau des Modul- und Zeichensatzeditors. 
Um damit zu arbeiten, sollten Sie die Tabellen 1,2 und 3 zu 
Rate ziehen: Hier finden sich die Befehle dieser zwei Pro- 
grammbestandteile in einer Übersicht zusammengefaßt. 
Zur Beachtung: Wenn bei einzelnen Tasten in Klammern 
»10er Tast.« angegeben ist, so beziehen sich diese Anga¬ 
ben auf den abgesetzten Zehnerblock. Ebenso gilt bei 
»Cursortasten (Sonderblock)« der separate Cursorblock 
über dem normalen Tastenfeld. 

Screen-Generierung leicht gemacht 


Wir wollen uns nun dem zweiten Programmabschnitt 
zuwenden. Er wird mit einem Druck auf die Taste <F1 > 
aufgerufen und dient dem Erstellen der Bilder. Dies 
geschieht durch Einsatz der zuvor definierten Module. 
Bild 5 zeigt diesen Programmteil. 

Das Editorfeld teilt sich hier wie folgt auf: Die oberen 
20 Zeilen sind reserviert für das Erstellen der Screens. 
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MODULEDITOR 

Das Feld des Moduleditors sehen sie in der Mitte der oberen 
Bildschirmhälfte. Hier tritt ein zweiter Cursor auf. 

TASTE 

FUNKTION 

< CURSORTASTEN > 

bewegen des Cursors im Moduleditorleid 
(MEF) 

<ENTER> 

holt das Zeichen unter dem 

(10er Tast.) 

Zeichensatzfeld-Cursor an die Cursorposi¬ 
tion im MEF und setzt Zeichenfarbe 

<0> (10er Tast.) 

setzt ein Space an die Cursorposition im 

MEF 

<■> (10er Tast.) 

füllt das MEF mit Spaces 

<H> 

holt aktuelles Modul in das MEF 

<F7> 

übernimmt das Modul aus dem MEF als 
aktuelles Modul 

<SHIFT -> 

scrollt den Inhalt des MEF nach links 

<SHIFT I > 

scrollt den Inhalt des MEF nach oben 

<F> 

füllt das MEF mit dem Zeichen unter dem 
Zeichensatzfeldcursor 

< SHIFT F> 

füllt das MEF mit der aktuellen 

Zeichenfarbe 


Tabelle 2. Die Befehle des Moduleditors. MEF ist hier die 
Abkürzung für Moduleditorfeld 


Insgesamt finden hier 50 Module Platz, womit sich bei Gra¬ 
fiken ein sehr gutes Ergebnis erzielen läßt. In den unteren 
5 Zeilen sieht man zwei umrahmte Felder. Das linke von bei¬ 
den zeigt immer das aktuelle Modul aus dem sogenannten 
Modulspeicher an. Dieser Modulspeicher kann bis zu zehn 
Module aufnehmen. Er ist für öfter benötigte Module 


Weitere wichtige Funktionen im ersten Editorteil: 

TASTE 

FUNKTION 

CURSORTASTEN 

bewegen den Cursor über das Zeichensatz- 

(SONDERBLOCK) 

feld (Anzeige des Zeichencodes durch - 

< + > (10er Tast.) 

»Z.NR.«) 

schaltet Modulnummer um 1 weiter 

<SHIFT + > (10er 
Tast.) 

schaltet Modulnummer um 10 weiter 

<-> (10er Tast.) 

schaltet Modulnummer um 1 zurück 

<SHIFT-> (10er 
Tast.) 

schaltet Modulnummer um 10 zurück 

<1> 

erhöhen der Zeichenfarbe 

<SHIFT 1 > 

erniedrigen der Zeichenfarbe 

<2> 

erhöhen der Muticolorfarbe 1 

<SHIFT2> 

erniedrigen der Muticolorfarbe 1 

<3> 

erhöhen der Multicolorfarbe 2 

<SHIFT3> 

erniedrigen der Multicolorfarbe 2 

<4> 

erhöhen der Hinfergrundfarbe 

<SHIFT4> 

erniedrigen der Hintergrundfarbe 

<5> 

erhöhen der Rahmenfarbe 

<SHIFT5> 

erniedrigen der Rahmenfarbe 

<M> 

schaltet Multicolordarstellung ein 

<N> 

schaltet auf normale Zeichendarstellung 

<T> 

kopiert den Zeichensatz 0 nach 

< ESC> 

Zeichensatz 1 (dieser wird dabei gelöscht) 
wechselt den aktuellen Zeichensatz 

<1 > bis <9> 

(10er Tast.) 

setzt das aktuelle Modul an den Platz im 

< SHIFT 1 > bis 

Testfeld, der der Position der Taste ent¬ 
spricht. (Beispiel: Taste 7 setzt das Modul 
links oben ins Testfeld) 
setzt an die jeweilige Stelle im Testfeld ein 

<SHIFT 9> (10er 

Space-Modul 

Tast.) 

<C> 

füllt das Testfeld mit Space-Modulen 

<F3> 

springt ins Disk-Menü 

<F1 > 

springt zum Screen-Editor 


Tabelle 3. Weitere wichtige Funktionen im ersten Editorteil 
(für Zeichensätze und Module) 


gedacht. Damit erspart man sich das ständige Herumblät¬ 
tern in der Modulbibliothek. Das rechte Feld zeigt immer 
das aktuelle Modul mit dem gerade gearbeitet wird. Die 
Nummer des Moduls aus dem Modul-Speicher sehen Sie 
am unterem Rand hinter der Bezeichnung »S:«. Das 
aktuelle Modul aus der Bibliothek wird bei »M:« angezeigt. 

Zwei weitere Anzeigen (»A:« und »B:«) stehen für die 
Nummer des Moduls das sich gerade unter dem Cursor 
befindet, und für die aktuelle Bildnummer. Soviel zu den 
Anzeigen, die Befehle des Screeneditors sehen Sie in 
Tabelle 4. 

Diskettenfunktionen menügesteuert 


Die beschriebenen Editoren dienen dem Erstellen von Bil¬ 
dern. Doch MSG kann noch mehr. Durch einen Druck auf 
die Taste <F3>, gelangt man aus beiden Edtitierteilen in 
das Disk-Menü. Dieser Teil des Programms bietet die Mög¬ 
lichkeit, die Module, die Bilder und den Zeichensatz zu 
speichern und zu laden. Man kann sich außerdem das 
Inhaltsverzeichnis einer Diskette anzeigen lassen, Befehle 
an die Floppy senden oder den Fehlerkanal auslesen. Bei 
der Ausgabe des Directories ist darauf zu achten, daß nur 
gescrollt wird, wenn die CONTROL-Taste gedrückt ist. Die 
Kommandos im Disk-Menü sind aus Tabelle 5 ersichtlich. 

Zusammen mit den Editoren erhalten Sie die Möglich¬ 
keit, verschiedenste Bibliotheken aus Modulen anzulegen, 
zu speichern und wiederzuverwenden. So können Sie 
schöne Bilder sehr leicht erstellen. Die fertigen Produkte 
ihrer Kreativität können dann von eigenen Programmen 
aus aufgerufen werden. Darauf soll im folgenden einge- 
gangei. v arden. 

Bilder in eigenen Programmen 


Bei der Verwendung von fertigen Bildern sind diese im 
Speicher abzulegen und bei Bedarf aufzurufen. MSG- 
Bilder können sowohl von Maschinen- als auch von Basic- 
Programmen verwaltet werden, wobei mit einem Assem¬ 
blerprogramm wesentlich flexibler gearbeitet wird. Denn 
dabei kann man Bank 1 vollständig mit Daten für Module 
und Bilder belegen und den Speicher in Bank 0 für Steuer¬ 
programm und sonstige Routinen verwenden. 

Folgende Speicheraufteilung bietet sich besonders an: 
BANK 0: Programm und Zeichensätze 
(Aufteilung variabel) 

BANK 1: 

$1000-$2fff - Platz für 256 Module 
$3000-$3fff - Platz für 999 Screens 

Sollten Sie in Basic arbeiten, so hat dies einige Ein¬ 
schränkungen zur Folge. Listing 5 zeigt das Basic-Demo- 
Programm »DEMO .MSG«. Es muß mit dem Checksummer 
128 eingegeben werden. Es lädt zu Beginn Zeichensatz, 
Module und Bilder sowie Maschinenroutinen nach. Natür¬ 
lich müssen auf der Diskette ein vorher erstellter Zeichen¬ 
satz, entsprechende Module und Bilder vorhanden sein. 
Dazu müssen auch deren Namen entsprechend in den Zei¬ 
len 140 bis 160 von Listing 5 eingetragen werden. Dann 
wird der Variablenzeiger nach oben gesetzt, um ein Über¬ 
schreiben der Bild- und Moduldaten durch Variablen zu ver¬ 
hindern. Dies schränkt natürlich den zur Verfügung stehen¬ 
den Speicher ein. 

Im weiteren Verlauf initialisiert das Demo-Programm die 
Routine »BILDAUFBAU«, die sich um das Aufbauen der Bil¬ 
der kümmert (Listing 6) und weiter »IRQ« zur Interruptsteu¬ 
erung (Listing 7). Diese sind in Maschinensprache 
geschrieben und können gleichermaßen für Assembler- 
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C128 


SCREENEDITOR 

TASTE 

FUNKTION 

< CURSORTASTEN > 

steuern den Cursor 

<RETURN> 

setzt das aktuelle Modul an Cursorposition 

<SPACE> 

setzt Space-Modul an Cursorposition 

<R> 

holt aktuellen Screen auf Bildschirm 

<W> 

übernimmt entworfenes Bild als aktuellen 
Screen 

<HOME> 

setzt Cursor in die linke obere Ecke 

<CLR> 

füllt Bildschirm mit Space-Modulen und 
setzt Cursor in die linke obere Ecke 

< DEL> 

setzt links vom Cursor ein Space-Modul, die 
restlichen Module werden nachgezogen 

< INST > 

fügt Space-Modul ein und setzt die Module 
rechts vom Cursor um 1 weiter nach rechts 

<-> 

sichert den sichtbaren Screen in einem 

Puffer 

<SHIFT — > 

bringt den Screen aus Puffer auf den Bild¬ 
schirm 

<M> 

schaltet Multicolordarstellung ein 

<N> 

schaltet auf normale Zeichendarstellung 

<ESC> 

wechselt den aktuellen Zeichensatz 

< CURSORTASTEN > 

scrollt den Bildschirm um eine Modulreihe 

(SONDERBLOCK) 

<.>(10erTasl.) 

in die jeweilige Richtung 

übernimmt das aktuelle Modul im aktuellen 

Modulspeicherplatz 

<3> 

erhöht Multicolorfarbe 2 

<SHIFT 3> 

erniedrigt Multicolorfarbe 2 

<4> 

erhöht Hintergrundfarbe 

<SHIFT4> 

erniedrigt Hintergrundfarbe 

<5> 

erhöht Rahmenfarbe 

<SHIFT5> 

erniedrigt Rahmenfarbe 

<0> bis <9> 

schaltet Modul mit der Nummer der jeweili- 

(10er Tast.) 

gen Taste im Modulspeicher ein 

< + >(10er Tast.) 
<SHIFT +> 

erhöht Modulnummer um 1 

(10er Tast.) 

erhöht Modulnummer um 10 

<-> (10er Tast.) 
<SHIFT -> 

erniedrigt Modulnummer um 1 

(10er Tast.) 

erniedrigt Modulnummer um 10 

<+ > 

erhöht Bildnummer um 1 

<SHIFT +> 

erhöht Bildnummer um 10 

<CBM + > 

erhöht Bildnummer um 100 

<-> 

erniedrigt Bildnummer um 1 

<SHIFT -> 

erniedrigt Bildnummer um 10 

<CBM-> 

erniedrigt Bildnummer um 100 

< F3> 

Sprung zum Disk-Menü 

<F1 > 

zurück in den ersten Editorteil 


Tabelle 4. Die Funktionen des Screeneditors erlauben ein 
komfortables und schnelles Erstellen von Grafiken. 


und Basicprogramme verwendet werden. Uber die Spei¬ 
cherstellen 3222/3223 dezimal ($0C96/0C97) wird der Rou¬ 
tine für den Bildaufbau im Low/High-Byte-Format die Num¬ 
mer des darzustellenden Bildes mitgeteilt. 

Gestartet wird sie mit »SYS 2816«. Um also MSG-Bilder 
in eigenen Programmen unterzubringen, müssen die im 
Editor erstellten Komponenten (Zeichensatz, Module und 
Bilder) geladen und mit Hilfe der Routine in Listing 6 auf 
den Bildschirm gebracht werden. 

Sollen mehr als zwei Zeichensätze beziehungsweise 
mehr als 999 Bilder in einem Programm verwendet werden, 
so können diese bei Bedarf von Programm nachgeladen 
werden. 

Lassen Sie Ihrer Kreativität nun freien Lauf. Ihre schön¬ 
sten Bilder inklusive der Zeichensätze können Sie uns ja 
unter dem Stichwort »MSG-128-Grafik« schicken. 

(Arno Pichler/Axel Pretzsch) 


DISK-MENÜ: 


TASTE 

FUNKTION 

<1> 

Programmteile laden: 

Hier werden Zeichensätze, Module oder Bilder in 
den Speicher geholt. Der Zeichensatz läßt sich 
wahlweise an Position eins oder zwei laden. 

Module werden an einen beliebigen Platz in der 
Modulbibliothek geladen, wobei darauf zu achten 
ist, daß der Modulspeicher ausreicht. Das gilt auch 
für Bilder. 

<2> 

Programmteile speichern. 

ujna»» 

Arbeitet analog zur Ladefunktion. Bilder und 

Module speichert man durch Eingabe von 

Anfangs- und Endnummer auch in Paketen. Unsin¬ 
nige Eingaben führen zum Hauptmenü (beispiels¬ 
weise bei Modulnummer größer als 255). 

<3> 

Directory anzeigen. 

Gibt das Inhaltsverzeichis der aktuellen Disk auf 
dem Bildschirm aus. Beachten Sie bitte, daß nur 
bei Drücken von < CONTROL> gescrollt wird. 

<SPACE> 

sorgt für Rückkehr ins Hauptmenü. 

<4> 

Diskbefehl senden. 

<5> 

Fehlerkanal auslesen. 

<6> 

Diskmodus verlassen. 

Sprung in den vor Aufruf des Disk-Menü aktuellen 
Editorteil 


Tabelle 5. Die Kommandos im Disk-Menü. Das Disk-Menü 
können Sie aus beiden Editoren mit <F3> anwählen. 


Name 

man. 1 





3000 455b 

30b0 

30 

30 

20 

20 

95 

46 

41 

52 

3a 

3170 

07 

02 

09 

Oa 

Od 

Oc 

51 

4c 

Ob 











30b8 

42 

45 

20 

31 

20 

9e 

12 

cf 

aa 

3178 

3c 

01 

47 

44 

4f 

45 

42 

4d 

52 

3000 

a9 

05 

8d 

06 

d5 

ad 

46 

45 

be 

30c0 

cf 

92 

Od 

95 

20 

5a 

2e 

53 

03 

3180 

46 

41 

4o 

33 

52 

14 

17 

19 

b5 

3008 

fO 

06 

20 

85 

Od 

8d 

46 

45 

95 

30o8 

41 

54 

5 a 

20 

05 

30 

20 

20 

61 

3188 

39 

36 

49 

4a 

38 

3b 

08 

Ob 

Oc 

3010 

20 

3e 

38 

a9 

b2 

8d 

ed 

39 

54 

30d0 

95 

46 

41 

52 

42 

45 

20 

32 

56 

3190 

10 

21 

06 

03 

48 

11 

ld 

15 

bf 

3018 

20 

25 

3c 

20 

Id 

37 

20 

82 

ef 

30d8 

20 

05 

12 

cf 

cf 

92 

Od 

9 a 

f 4 

3198 

16 

24 

27 

27 

d2 

3f 

fd 

39 

01 

3020 

39 

20 

c4 

33 

aO 

04 

a9 

07 

eO 

30e0 

20 

4e 

4f 

52 

4d 

41 

4c 

20 

96 

31a0 

fd 

31 

2d 

32 

47 

32 

6e 

32 

ec 

3028 

99 

27 

dO 

88 

10 

f8 

a2 

38 

5e 

30c8 

20 

20 

20 

95 

46 

41 

52 

42 

Of 

31a8 

96 

32 

cc 

32 

01 

33 

30 

33 

a2 

3030 

8e 

f 8 

07 

Be 

f 9 

07 

08 

Be 

67 

30f 0 

45 

20 

33 

20 

lc 

12 

cf 

cf 

47 

31b0 

47 

33 

18 

33 

6f 

33 

6b 

33 

a2 

3038 

fa 

07 

8e 

fb 

07 

8e 

fc 

07 

cO 

30rB 

92 

00 

ad 

47 

Od 

c9 

18 

dO 

00 

31b8 

da 

33 

d7 

33 

d3 

36 

dB 

36 

3f 

3040 

a9 

03 

8d 

17 

dO 

8d 

ld 

dO 

41 

3100 

Od 

a9 

30 

8d 

5a 

07 

a9 

20 

64 

31c0 

d9 

36 

de 

36 

df 

36 

e2 

36 

5a 

3048 

a9 

00 

8d 

lc 

dO 

ad 

3a 

45 

c.6 

3108 

8d 

75 

39 

4c 

18 

31 

a9 

31 

3c 

31c8 

e5 

36 

«8 

36 

eb 

36 

9b 

33 

Oe 

3050 

8d 

10 

dO 

aO 

09 

b9 

b5 

37 

dl 

3110 

8d 

5a 

07 

a9 

28 

8d 

75 

39 

f 9 

31d0 

bd 

33 

50 

34 

if 

35 

3d 

35 

bc 

3058 

99 

00 

dO 

88 

10 

f 7 

a9 

12 

c2 

3118 

20 

e6 

34 

20 

13 

39 

20 

09 

4a 

31d8 

84 

35 

ac 

35 

fb 

33 

3a 

34 

73 

3060 

a2 

Oa 

85 

eb 

86 

ec 

20 

14 

5f 

3120 

34 

20 

lc 

32 

20 

c5 

37 

a2 

04 

31e0 

a7 

34 

aa 

34 

ad 

34 

bO 

34 

7a 

3068 

ca 

20 

42 

cl 

20 

7d 

ff 

95 

24 

3128 

04 

8e 

37 

45 

20 

bf 

34 

ae 

18 

31e8 

b3 

34 

76 

34 

16 

35 

5f 

33 

c8 

3070 

20 

5a 

2e 

4e 

52 

2e 

05 

30 

le 

3130 

37 

45 

ca 

10 

f 4 

20 

13 

38 

cb 

31f 0 

3f 

37 

36 

37 

8e 

37 

79 

36 

34 

3078 

30 

30 

20 

20 

95 

52 

41 

48 

4e 

3138 

a9 

lf 

8d 

15 

dO 

ee 

29 

dO 

42 

31f 8 

ab 

36 

f 9 

37 

fc 

37 

ad 

f 5 

50 

3080 

4d 

45 

4e 

20 

20 

90 

12 

cf 

76 

3140 

ee 

2a 

dO 

ee 

2b 

dO 

20 

2b 

65 

3200 

39 

c9 

10 

90 

11 

38 

e9 

10 

cf 

30ÖÖ 

Cf 

9Z 

Od 

9b 

20 

4d 

Ze 

4e 

58 

3148 

4b 

a5 

d4 

c9 

58 

fO 

ee 

aO 

d8 

3208 

8d 

f 5 

39 

ad 

07 

dO 

e9 

08 

43 

3090 

52 

2e 

05 

30 

30 

30 

20 

20 

86 

3150 

00 

d9 

6a 

31 

fO 

08 

c8 

cO 

f 2 

3210 

8d 

07 

dO 

8d 

bc 

37 

20 

lc 

45 

3098 

95 

48 

49 

4e 

54 

45 

52 

20 

66 

3158 

32 

dO 

f 6 

4c 

3d 

31 

98 

Oa 

Od 

3218 

32 

4c 

3d 

31 

ad 

f 5 

39 

8d 

70 

30a0 

20 

90 

12 

cf 

cf 

92 

Od 

95 

78 

3160 

a8 

b9 

9d 

31 

48 

b9 

9c 

31 

99 

3220 

fO 

39 

a9 

00 

8d 

fl 

39 

a2 

aa 

30a8 

20 

41 

2e 

4e 

52 

2e 

05 

30 

c9 

3168 

48 

60 

04 

05 

53 

54 

55 

56 

5c 

3228 

eO 

aO 

06 

4c 

e8 

37 

ad 

f 5 

4e 
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3230 

: 39 

c9 

ro 

bO 

el 

18 

69 

10 

45 

3238 

: 8d 

f 5 

39 

ad 

07 

dO 

69 

08 

71 

3240 

: 8d 

07 

dO 

6d 

bc 

37 

dO 

ce 

9d 

3248 

: ad 

ac 

37 

fO 

c9 

ce 

ac 

37 

6b 

3250 

: ad 

06 

dO 

38 

o9 

08 

8d 

06 

5d 

3258 

: dO 

8d 

bb 

37 

bO 

Ob 

ad 

10 

ff 

3260 

: dO 

49 

08 

Bd 

10 

dO 

8d 

3a 

bb 

3268 

: 45 

ce 

es 

39 

4c 

16 

32 

ad 

52 

3270 

: ac 

37 

c9 

Of 

fO 

f 6 

ee 

ae 

e8 

3278 

: 37 

18 

ad 

06 

dO 

69 

08 

8d 

7b 

3280 

: 06 

dO 

8d 

bb 

37 

90 

Ob 

ad 

49 

3288 

: 10 

dO 

49 

08 

8d 

10 

dO 

8d 

Ob 

3290 

: 3a 

45 

ee 

f 5 

39 

dO 

d5 

a5 

a4 

3298 

: d3 

29 

01 

dO 

19 

ad 

a8 

37 

6a 

32a0 

: c9 

03 

fO 

Of 

ee 

a8 

37 

ad 

75 

32a8 

: 09 

dO 

18 

69 

08 

8d 

be 

37 

a3 

32b0 

: 8d 

09 

dO 

4c 

bf 

37 

ad 

a8 

3d 

32b8 

: 37 

fO 

f8 

ce 

a8 

37 

ad 

09 

8c 

32c0 

: dO 

38 

e8 

OB 

Bd 

09 

dO 

8d 

a7 

32c8 

: be 

37 

4c 

bf 

37 

a5 

d3 

29 

6f 

32d0 

: 01 

dO 

18 

ad 

a9 

37 

c9 

03 

77 

32d8 

: fO 

d9 

ee 

a9 

37 

18 

ad 

08 

al 

32o0 

: dO 

69 

08 

8d 

08 

dO 

8d 

bd 

dl 

32e8 

: 37 

dO 

c8 

ad 

a9 

37 

fO 

c3 

Of 

32f0 

: ce 

a9 

37 

38 

ad 

08 

dO 

e9 

9a 

32f 8 

: 08 

8d 

08 

dO 

8d 

bd 

37 

4c 

lf 

3300 

: bf 

37 

ad 

aa 

37 

fO 

Of 

ce 

fO 

3308 

: aa 

37 

38 

ad 

05 

dO 

e9 

08 

aO 

3310 

: 8d 

05 

dO 

8d 

ba 

37 

4c 

3d 

17 

3318 

: 31 

ad 

aa 

37 

c9 

07 

fO 

f 6 

38 

3320 

: ee 

aa 

37 

18 

ad 

05 

dO 

69 

4d 

3328 

: 08 

8d 

05 

dO 

8d 

ba 

37 

dO 

7f 

3330 

: e5 

ad 

ab 

37 

fO 

eO 

ce 

ab 

66 

3338 

: 37 

38 

ad 

04 

dO 

e9 

08 

8d 

Of 

3340 

: 04 

dO 

8d 

b9 

37 

4c 

3d 

31 

74 

3348 

: ad 

ab 

37 

c9 

07 

fO 

c7 

ee 

c7 

3350 

: ab 

37 

18 

ad 

04 

dO 

69 

08 

cf 

3358 

: 8d 

04 

dO 

8d 

b9 

37 

dO 

b6 

d3 

3360 

: 20 

ae 

Oc 

20 

5f 

37 

20 

09 

21 

3368 

: 34 

4c 

3d 

31 

ad 

f 5 

39 

2c 

00 

3370 

: a9 

20 

85 

fa 

ad 

a8 

37 

Oa 

fb 

3378 

: aa 

bd 

ad 

37 

85 

fb 

85 

fd 

9d 

3380 

: bd 

ae 

37 

85 

fc 

18 

69 

d4 

f 3 

3388 

: 85 

fe 

ac 

a9 

37 

a5 

fa 

91 

9c 

3390 

: fb 

ad 

42 

Od 

91 

fd 

20 

d4 

c7 

3398 

: 37 

4c 

3d 

31 

aO 

07 

a9 

09 

66 

33a0 

: 99 

a8 

da 

99 

dO 

da 

99 

f 8 

b3 

33a8 

: da 

99 

20 

db 

99 

48 

db 

99 

51 

33b0 

: 70 

db 

99 

98 

db 

99 

cO 

db 

cc 

33b8 

: 88 

10 

e5 

4c 

3d 

31 

20 

c4 

b3 

33cO 

: 33 

4c 

bf 

37 

aO 

03 

a9 

20 

f 9 

33c8 

: 99 

4e 

05 

99 

76 

05 

99 

9e 

30 

33d0 
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4270 

8d 

f 9 

40 

a9 

30 

8d 

01 

dO 

54 

4430 

20 

91 

fb 

20 

f 5 

44 

4c 

44 

57 

40b8 

42 

d5 

41 

04 

41 

3b 

41 

12 

cd 

4278 

8d 

fa 

40 

4c 

44 

40 

a9 

20 

49 

4438 

40 

20 

6f 

44 

aO 

09 

bl 

fb 

fe 

40c0 

30 

35 

43 

2f 

43 

60 

43 

c6 

13 

4280 

aO 

31 

99 

Od 

Od 

88 

10 

fa 

Oc 

4440 

c9 

20 

dO 

28 

ac 

38 

45 

cO 

76 

40c8 

43 

88 

42 

c5 

42 

00 

43 

19 

fc 

4288 

60 

a5 

d3 

c9 

01 

fO 

07 

c9 

30 

4448 

09 

ro 

21 

bl 

fb 

99 

47 

45 

7c 

40d0 

43 

cf 

43 

eO 

43 

55 

42 

15 

fa 

4290 

02 

fO 

06 

a2 

00 

2c 

a2 

09 

de 

4450 

cB 

cO 

09 

dO 

re 

ac 

38 

45 

15 

40d8 

44 

f 2 

43 

35 

42 

4c 

42 

04 

a4 

4298 

2c 

a2 

63 

20 

a7 

42 

ca 

10 

ca 

4458 

b9 

47 

45 

cB 

91 

fb 

cO 

09 

2d 

40e0 

3a 

Ob 

45 

Oo 

45 

ii 

45 

14 

ad 

42aO 

fa 

20 

d5 

44 

4c 

47 

40 

ee 

86 

4460 

dO 

f 6 

ac 

38 

45 

a9 

20 

91 

23 

40e8 

45 

22 

4 6 

lf 

45 

38 

38 

38 

db 

42a8 

24 

Oc 

dO 

03 

ee 

25 

Oc 

ad 

Oa 

4468 

fb 

20 

f 5 

44 

4c 

44 

40 

ad 

bc 

40f0 

3a 

3b 

3c 

07 

07 

07 

01 

09 

77 

42b0 

25 

Oc 

c9 

03 

90 

Of 

ad 

24 

2f 

4470 

39 

45 

Oa 

aa 

bd 

3c 

45 

85 

02 

40f 8 

09 

16 

30 

le 

dl 

4e 

dl 

90 

d4 

42b8 

Oc 

c9 

e7 

90 

08 

a9 

00 

8d 

9e 

4478 

fb 

bd 

3d 

45 

85 

fc 

60 

ad 

67 

4100 

da 

ae 

da 

c6 

da 

a5 

d3 

dO 

8c 

42cO 

24 

Oc 

8d 

25 

Oc 

60 

a5 

d3 

f 4 

4480 

ad 

Oc 

8d 

fO 

39 

a9 

00 

8d 

bl 

4108 

lc 

ad 

39 

45 

c9 

04 

bO 

Of 

8f 

42c8 

c9 

01 

fO 

07 

c9 

02 

fO 

06 

ab 

4488 

fi 

39 

a2 

d2 

aO 

07 

20 

e8 

ad 

4110 

ad 

01 

dO 

18 

69 

20 

8d 

01 

45 

42d0 

a2 

00 

2c 

a2 

09 

2c 

a2 

63 

15 

4490 

37 

a9 

27 

a2 

07 

85 

fb 

86 

54 

4118 

dO 

8d 

fa 

40 

ee 

39 

45 

20 

83 

42d8 

20 

o4 

42 

ca 

10 

fa 

20 

d5 

59 

4498 

fc 

a9 

27 

o2 

db 

85 

8e 

86 

b8 

4120 

f 5 

44 

4c 

55 

40 

ad 

39 

45 

d6 

42e0 

44 

4c 

47 

40 

ad 

24 

Oc 

dO 

f 2 

44aO 

8f 

20 

8a 

Oc 

60 

ad 

ad 

Oc 

a6 

4128 

fO 

f 5 

ad 

01 

dO 

38 

e9 

20 

55 

42o8 

03 

CO 

25 

Oc 

ce 

24 

Oc 

ad 

b7 

44a8 

8d 

37 

45 

ae 

36 

45 

bd 

51 

lf 

4130 

8d 

01 

dO 

8d 

fa 

40 

ce 

39 

83 

42f 0 

25 

Oc 

c9 

ff 

90 

Oa 

a9 

03 

94 

44bO 

45 

8d 

ad 

Oc 

18 

8a 

69 

30 

85 

4138 

45 

4c 

lf 

41 

ab 

d3 

dO 

21 

12 

42f 8 

8d 

25 

Oc 

a9 

e6 

8d 

24 

Oc 

d4 

44b8 

8d 

ce 

07 

a9 

21 

a2 

07 

85 

f 2 

4140 

ad 

38 

45 

c9 

09 

bO 

d8 

18 

3e 

4300 

60 

a5 

d3 

dO 

09 

ee 

ad 

Oc 

19 

44c0 

fb 

86 

fc. 

a9 

21 

a2 

db 

85 

14 

4148 

ad 

00 

dO 

69 

20 

8d 

00 

dO 

67 

4308 

20 

7f 

44 

4c 

55 

40 

ad 

ad 

ec 

44c8 

8e 

86 

8f 

20 

8a 

Oc 

ad 

37 

af 

4150 

8d 

f 9 

40 

90 

06 

ee 

10 

dO 

b6 

4310 

Oc 

18 

69 

Oa 

8d 

ad 

Oc 

4c 

d3 

44d0 

45 

8d 

ad 

Oc 

60 

ad 

24 

Oc 

e5 

4158 

ee 

3b 

45 

ee 

38 

45 

4c 

lf 

30 

4318 

08 

43 

a5 

d3 

dO 

06 

ce 

ad 

79 

44d8 

8d 

fO 

39 

ad 

25 

Oc 

8d 

fl 

ae 

4160 

41 

ad 

38 

45 

fO 

b9 

38 

ad 

48 

4320 

Oc 

4c 

08 

43 

ad 

ad 

Oc 

38 

a6 

44e0 

39 

a2 

de 

aO 

07 

20 

e8 

37 

b9 

4168 

00 

dO 

«9 

20 

8d 

00 

dO 

8d 

86 

4328 

e9 

Oa 

8d 

ad 

Oc 

4c 

08 

43 

f 9 

44e8 

20 

7e 

Ob 

ad 

40 

Od 

29 

80 

d2 

4170 

f 9 

40 

bO 

06 

ce 

10 

dO 

ce 

c4 

4330 

ae 

ad 

Oc 

4c 

38 

43 

a2 

20 

aa 

44fO 

dO 

03 

20 

6a 

43 

20 

47 

43 

70 

4178 

3b 

45 

ce 

38 

45 

4c 

lf 

41 

c6 

4338 

20 

47 

43 

a4 

fb 

8a 

99 

Od 

f 6 

44f 8 

a6 

fb 

bd 

Od 

Od 

8d 

fO 

39 

20 

4180 

a2 

09 

bd 

Od 

Od 

48 

bd 

17 

fO 

4340 

Od 

20 

f 5 

44 

4c 

44 

40 

ad 

a6 

4500 

a9 

00 

8d 

fl 

39 

a2 

d8 

aO 

98 

4188 

Od 

9d 

Od 

Od 

bd 

21 

Od 

9d 

9d 

4348 

38 

45 

85 

fb 

ad 

39 

45 

85 

c8 

4508 

07 

4c 

e8 

37 

a2 

01 

2c 

a2 

7e 

4190 

17 

Od 

bd 

2b 

Od 

9d 

21 

Od 

5f 

4350 

fc 

a5 

fc 

fO 

Ob 

c6 

fc 

18 

87 

4510 

02 

2c 

a2 

03 

2c 

a2 

04 

20 

5a 

4198 

bd 

35 

Od 

9d 

2b 

Od 

68 

9d 

df 

4358 

a9 

Oa 

65 

fb 

85 

fb 

dO 

fl 

3e 

4518 

d9 

34 

20 

2b 

45 

4c 

44 

40 

cl 

41a0 

35 

Od 

ca 

10 

dd 

20 

f 5 

44 

50 

4360 

60 20 d5 

44 20 5f r/ lc 

41 

4520 

a9 

c8 

2c 

a9 

d8 

Bd 

48 

Od 

a3 

41a8 

4c 

44 

40 

a2 

09 

bd 

35 

Od 

e8 

4368 

47 

40 

ad 

43 

Od 

29 

Of 

Oa 

Oe 

4528 

4c 

44 

40 

aO 

38 

a2 

00 

ca 

e9 

41b0 

48 

bd 

2b 

Od 

9d 

35 

Od 

bd 

77 

4370 

Oa 

Oa 

Oa 

8d 

41 

Od 

ad 

44 

6f 

4530 

dO 

fd 

88 

dO 

fa 

60 

00 

00 

ee 

41b8 

21 

Od 

9d 

2b 

Od 

bd 

17 

Od 

62 

4378 

Od 

29 

Of 

Od 

41 

Od 

8d 

41 

b5 

4538 

00 

00 

00 

00 

Od 

Od 

17 

Od 

e.8 

41c0 

9d 

21 

Od 

bd 

Od 

Od 

9d 

17 

c7 

4380 

Od 

ad 

45 

Od 

29 

Of 

Oa 

Oa 

9e 

4540 

21 

Od 

2b 

Od 

35 

Od 

ff 

00 

10 

41c8 

Od 

68 

9d 

Od 

Od 

ca 

10 

dd 

35 

4388 

Oa 

Oa 

8d 

3f 

Od 

ad 

46 

Od 

54 

4548 

00 

00 

00 

00 

00 

00 

00 

00 

49 

41d0 

20 

f 5 

44 

4c 

44 

40 

a9 

Od 

8c 

4390 

29 

Of 

Od 

3f 

Od 

8d 

3f 

Od 

cO 

4550 

00 

00 

00 

00 

00 

00 

00 

00 

51 

41d8 

a2 

Od 

85 

fb 

86 

fc 

a2 

05 

c6 

4398 

ad 

47 

Od 

c9 

18 

fO 

07 

ad 

e6 

4558 

00 

00 

00 

00 

ff 

00 

ff 

10 

79 

41e0 

aO 

09 

bl 

fb 

48 

88 

bl 

fb 

78 

43a0 

40 

Od 

09 

01 

dO 

05 

ad 

40 

36 











41e8 

c8 

91 

fb 

88 

dO 

f 7 

68 

91 

la 

43a8 

Od 

29 

fe 

8d 

40 

Od 

ad 

48 

6f 











41f0 

fb 

a9 

Oa 

18 

65 

fb 

85 

fb 

8a 

43b0 

Od 

c9 

d8 

dO 

07 

ad 

40 

Od 

eb 









41f 8 

90 

02 

e6 

fc 

ca 

dO 

el 

20 

dd 

43b8 

09 

02 

dO 

05 

ad 

40 

Od 

29 

fa 

Listing 1. 

(Schluß) 




Name 

maß. 2 





ObOO OdbG 

0be8 

69 

10 

85 

88 

ab 

87 

69 

10 

28 

OoeO 

04 

dO 

eb 

20 

91 

Ob 

ca 

10 

86 











ObfO 

85 

89 

a5 

88 

69 

00 

85 

8a 

76 

Oce8 

dd 

60 

48 

a9 


8d 

00 

ff 

91 











7e 

ObOO 

ad 

ad 

Uc 

8b 

fd 

a9 

00 

8d 

80 

Obf 8 

60 

85 

85 

a2 

00 

86 

86 

86 

2c 

OcfO 

68 

60 

48 

a9 

Oe 

8d 

00 

ff 

ld 

0b08 

fO 

39 

ae 

fO 

39 

bd 

Od 

Od 

2e 

OcOO 

8b 

86 

6c 

aO 

10 

dO 

Od 

18 

fl 

Ocf 8 

68 

60 

8d 

02 

ff 

20 

b7 

Ob 

2a 

OblO 

8d 

ad 

Oc 

8a 

Oa 

aa 

bd 

26 

01 

0c08 

ab 

8b 

65 

85 

85 

8b 

a5 

8c 

el 

OdOO 

aO 

34 

b9 

Od 

Od 

91 

fd 

88 

31 

0bl8 

Oc 

85 

fb 

85 

8e 

bd 

27 

Oc 

22 

OclO 

65 

86 

85 

8c 

4 6 

8c 

66 

8h 

25 

0d08 

10 

f 8 

4c 

f 2 

Oc 

00 

00 

00 

c7 

0b20 

85 

fc 

18 

69 

d4 

85 

8f 

20 

4f 

Ocl8 

66 

84 

66 

83 

88 

30 

04 

90 

06 

OdlO 

00 

00 

00 

00 

00 

00 

00 

00 

11 

0b28 

8a 

Oc 

oo 

fO 

39 

ad 

fO 

39 

c9 

0c20 

f3 

bO 

e4 

60 

00 

00 

00 

04 

b9 

Odl 8 

00 

00 

00 

00 

00 

00 

00 

00 

19 

0b30 

c9 

32 

dO 

d6 

ad 

3f 

Od 

48 

bb 

0o28 

04 

04 

08 

04 

Oc 

04 

10 

04 

da 

0d20 

00 

00 

00 

00 

00 

00 

00 

00 

21 

0b38 

29 

Of 

Bd 

46 

Od 

68 

6a 

6a 

a8 

0c30 

14 

04 

18 

04 

lc 

04 

20 

04 

37 

Od28 

00 

00 

00 

00 

00 

00 

00 

00 

29 

0b40 

6a 

6a 

29 

Of 

8d 

45 

Od 

ad 

9e 

0c38 

24 

04 

aO 

04 

a4 

04 

a8 

04 

lc 

0d30 

00 

00 

00 

00 

00 

00 

00 

00 

31 

0b48 

40 

Od 

29 

01 

dO 

03 

a9 

18 

75 

0c40 

ac 

04 

bO 

04 

b4 

04 

l>8 

04 

fl 

0d38 

00 

00 

00 

00 

00 

00 

00 

00 

39 

0b50 

2c 

a9 

la 

8d 

47 

Od 

ad 

40 

9d 

0c48 

bc 

04 

cO 

04 

c4 

04 

40 

05 

2e 

0d40 

00 

00 

07 

02 

06 

00 

00 

18 

d3 

0b58 

Od 

29 

02 

dO 

03 

a9 

c8 

2c 

8d 

0c50 

44 

05 

48 

05 

4c 

05 

50 

05 

02 

Od48 

c8 

07 

02 

06 

00 

00 

18 

c8 

c7 

0b60 

a9 

d8 

8d 

48 

Od 

ad 

41 

Od 

3f 

0c58 

54 

05 

58 

05 

5c 

05 

60 

05 

5f 

0d50 

00 

00 

oo 

00 

00 

00 

00 

00 

51 

0b68 

48 

29 

Of 

8d 

44 

Od 

68 

6a 

dd 

0c60 

64 

05 

eO 

05 

e4 

05 

e8 

05 

44 

0d58 

00 

00 

00 

00 

00 

00 

00 

00 

59 

0b70 

6a 

6a 

6a 

29 

Of 

8d 

43 

Od 

54 

0c68 

ec 

05 

fO 

05 

f 4 

05 

f 8 

05 

19 

0d60 

00 

00 

00 

00 

00 

00 

00 

00 

61 

0b78 

o5 

fd 

8d 

ad 

Oc 

60 

8d 

02 

33 

0c70 

f c 

05 

00 

06 

04 

06 

80 

06 

2e 

0d68 

00 

00 

00 

00 

00 

00 

00 

00 

69 

ObflO 

ff 

20 

b7 

Ob 

aO 

34 

bl 

fd 

4d 

0c78 

84 

06 

88 

06 

8c 

06 

90 

06 

29 

0d70 

00 

00 

00 

00 

00 

00 

00 

00 

71 

0b88 

99 

Od 

Od 

88 

10 

fB 

4c 

f 2 

de 

0c80 

94 

06 

98 

06 

9c 

06 

aO 

06 

87 

Od78 

00 

00 

00 

00 

00 

00 

00 

00 

79 

0b90 

Oc 

a9 

04 

18 

65 

87 

85 

87 

2d 

0c88 

a4 

06 

20 

ea 

Oc 

ad 

ad 

Oc 

92 

0d80 

00 

00 

00 

00 

00 

8d 

02 

ff 

f 5 

0b98 

90 

02 

e6 

88 

a9 

04 

18 

65 

da 

0c90 

20 

d4 

Ob 

a2 

03 

aO 

00 

bl 

ca 

Od88 

a9 

00 

a2 

30 

85 

fb 

86 

fc 

2c 

ObaO 

89 

85 

89 

90 

02 

06 

8a 

18 

12 

0c98 

87 

91 

fb 

bl 

89 

91 

8e 

c8 

Oe 

0d90 

a2 

cf 

aO 

00 

a9 

20 

91 

fb 

lc 

0ba8 

a5 

fb 

69 

28 

85 

fb 

85 

8e 

16 

OcaO 

cO 

04 

dO 

f 3 

20 

91 

Ob 

ca 

65 

0d98 

c8 

dO 

fb 

o6 

fc 

ca 

dO 

f 4 

f 7 

ObbO 

90 

04 

e6 

fc 

e6 

8f 

60 

ad 

63 

0ca8 

10 

eb 

4c 

f 2 

Oc 

00 

ad 

ad 

f 2 

OdaO 

aO 

lf 

99 

00 

14 

88 

10 

fa 

f 2 

0bb8 

24 

Oc 

85 

83 

ad 

25 

Oc 

85 

f 3 

OcbO 

Oc 

20 

d4 

Ob 

a9 

4e 

a2 

05 

04 

0da8 

20 

f 2 

Oc 

a9 

00 

aO 

07 

99 

ce 

ObcO 

84 

a9 

35 

20 

f 9 

Ob 

18 

a5 

Oe 

0cb8 

85 

fb 

86 

fc 

a9 

4e 

a2 

d9 

c7 

OdbO 

00 

21 

88 

10 

fa 

60 

85 

20 

6e 

0bc6 

83 

63 

00 

85 

fd 

ab 

84 

69 

a2 

OccO 

85 

8e 

86 

8f 

a2 

03 

aO 

00 

e5 











ObdO 

0bd8 

30 

85 

85 

84 

fe 

a9 

60 

20 

86 

20 

83 
f 9 

a9 

Ob 

00 

18 

aa 

3c 

0cc8 

OcdO 

bl 
f 2 

fb 

Oc 

20 

bl 

ea 

8e 

Oc 

29 

91 

Of 

87 

20 

20 

ea 

88 

68 

Listing 2. 

Der MSG 

, Teil 2 (bitte 


ObeO 

a5 

83 

69 

00 

85 

87 

a5 

84 

d5 

0cd8 

Oc 

91 

89 

20 

f 2 

Oc 

c8 

cO 

47 

mit dem MSE (Seite 158) eingeben) 



32 


SONDERHEFT 22 











C128 


GRAFIK 


Name 

maß. 3 





OeOO Of40 

0e68 

00 

00 

00 

00 











ue I u 

uu 

00 

UU 

u u 

OeOO 

ff 

ff 

cO 

80 

00 

40 

80 

00 

43 

0e78 

00 

00 

00 

00 

0e08 

40 

80 

00 

40 

80 

00 

40 

80 

9b 

0e80 

fe 

30 

00 

cO 

OelO 

00 

40 

80 

00 

40 

80 

00 

40 

d9 

0e88 

fc 

fO 

30 

00 

OelB 

BO 

00 

40 

80 

00 

40 

80 

00 

bd 

0e90 

30 

00 

cO 

fc 

0e20 

0e28 

40 

00 

80 

40 

00 

80 

40 

00 

80 

40 

00 

80 

40 

00 

80 

40 

b3 

fl 

0e98 

OaaO 

00 

00 

00 

00 

00 

00 

00 

00 

0e30 

BO 

00 

40 

ff 

ff 

cO 

00 

00 

c6 

0oa8 

00 

00 

00 

00 

0o38 

00 

00 

00 

oo 

00 

00 

00 

00 

39 

OebO 

00 

00 

00 

00 

0e40 

ff 

cO 

00 

80 

40 

00 

80 

40 

36 

0eb8 

00 

00 

00 

00 

Oe48 

00 

BO 

40 

00 

80 

40 

00 

80 

a4 

OecO 

fc 

CC 

f 8 

Oc 

Oebü 

40 

00 

80 

40 

00 

80 

40 

00 

be 

0ec8 

GC 

30 

CC 

f 8 

Qc58 

BO 

40 

00 

ff 

cO 

00 

00 

00 

04 

OedO 

CC 

dB 

fc 

78 

OeGO 

00 

00 

00 

00 

00 

00 

00 

00 

61 

0ed8 

00 

00 

00 

00 


00 

00 

00 

00 

69 

OeeO 

00 

00 

00 

00 

00 

00 

00 

00 

el 

00 

00 

00 

00 

71 

0ee8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

00 

00 

00 

00 

79 

OefO 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

30 

00 

cO 

70 

93 

0ef8 

00 

00 

00 

00 

00 

00 

00 

00 

f 9 

CO 

30 

fc 

cO 

Ob 

OfOO 

CC 

78 

CC 

00 

CC 

d8 

CC 

cO 

84 

00 

00 

00 

00 

90 

0f08 

fO 

CC 

cO 

eO 

CC 

cO 

fO 

CC 

db 

00 

00 

00 

00 

99 

OflO 

CC 

d8 

78 

78 

CC 

00 

00 

00 

42 

00 

00 

00 

00 

al 

Of 18 

00 

00 

00 

00 

00 

00 

00 

00 

19 

00 

00 

00 

00 

u9 

Of 20 

00 

00 

00 

00 

00 

00 

00 

00 

21 

00 

00 

00 

00 

bl 

Of 28 

00 

00 

00 

00 

00 

00 

00 

00 

29 

00 

00 

00 

00 

b9 

Of 30 

00 

00 

00 

00 

00 

00 

00 

00 

31 

oc 

CC 

18 

CC 

Of 

Of 38 

00 

00 

00 

00 

00 

00 

00 

00 

39 

60 

CC 

CC 

00 

fO 

00 

cO 

00 

bO 

23 

Listing 3. 

Der MSG, Teil 3 

t/ 

00 

00 

00 

00 

d9 

(bitte mit 

dem MSE eingeben) 



1» POKE 332EJ_0,«i POKE 53281,0 <R01> 

20 SCNCLR <VRJ> 

30 CHAR ,3,7,ü(LIS.DLUE)fl£7£<73PACE,YELLOW >Ü7<7SP 

ACE1"i PRINT CHR*<139lj" H7" <URL> 

40 CHAR ,3,8,"(LIG.BLUE)R(2SPACE(WHITE) ODUL-IY 
ELLQWJ Vf. (WHITE) CREEN-"! PRINT CHR*(159)|" B£ 

(WHITE) ENERATOR" <&GG> 

50 CHAR ,13,9,"(YELLOW>777(6SPACE>“I PRINT CHR*(1 

59)|"(2SPACE >77" < EOQ> 

00 CHAR ,13,11,”(YELLOW,2SPACE)1987 BY“ <3UA> 

70 CHAR ,13,13,"ARNO PICHLER" <JUN> 

B0 CHAR ,9,14,"FRITZ-BCHAEFFER-STR.8" <9BP> 

90 CHAR ,10,15,"8201 OSTERHUENCHEN” <V9V> 

100 BLOAD "HSS.2" <BVE> 

110 BLOAD “MSB.3“ <CNF> 

120 BANK 12! BOOT "MBB.l" <G9I> 

Listing 4. »M.S.G.-V01.128«, der Lader des MSG. 
bitte mit dem Checksummer 128 eingeben. 


10 REM ********************************** <A99> 
20 REM * * <AHA> 
30 REM * M.S.G.- DEMO—PROGRAMM * <APB> 
40 REM * * <B1C> 
50 REM * (C) 1987 BY * 

60 REM * * <BHE> 
70 REM * ARNO PICHLER * <BPF> 
80 REM # * <810> 
90 REM ********************************** <891> 
100 : <2C9> 
110 i <2SB> 
120 GRAPHIC 1: GRAPHIC 0: REM BASIC-ANFANG NACH * 

4000 <M1S> 
130 BANK 1 s REM BANK 12 EINSCHALTEN <VVA> 


140 BLOAD "ZEICHEN3ATZ ",ON B0 s REM ZEICHENSATZ N 
ACH *2000 IN BANK 0 LADEN 
150 BLOAD "MODULE",DN Bl : REM MODULE NACH *1000 
IN BANK l LADEN 

160 BLOAD "BILDER",ON Bl s REM BILDDATEN NACH *30 
00 IN BANK 1 LADEN 

170 BLOAD "IRQ",0N BO i REM IRQ-RQUTINE NACH *130 
0 IN BANK 0 

180 BLOAD "BILDAUFBAU",0N BO s REM PRG.ZUM BILDAU 
FBAU NACH *OBO0 IN BANK O 
190 POKE 47,152* POKE 48,58* CLR : REM VARIABLEN¬ 
ANFANG NACH OBEN SETZEN 
200 BI=0 : REM BILDNUMMER AUF NULL SETZEN 
210 BN=3222 * REM ADRESSE FUER BILDNUMMER 
220 10=4998 s REM PROGRAMMEINSPRUNG IRO-ALT 
230 IR=4B64 : REM PROGRAMMEINSPRUNG IRQ-NEU 
240 BA=2816 s REM PROGRAMMEINSPRUNG BILDSCHIRM AU 
FBAUEN 

250 SCNCLR s REM BILDSCHIRM LOESCHEN 
260 SYS IR s REM NEUER IRQ EIN 
270 CHAR ,9,21,"{LIG.BLUEJM.S.G.-DEMO-SCREENS" 

280 CHAR ,8,22,"-" 

290 CHAR ,6,23,"<GREEN»CURSOR DOWN - SCREEN PLUS" 
300 CHAR ,6,24,"CURSOR UP<3SPACE>- SCREEN MINUS<H 
OME»" 

310 POKE BN,B1-256*1NT(BI/256) s REM LOW-BYTE BIL 
DNUMMER BEKANNT GEBEN 

320 POKE BN+1,INT(BI/256) * REM HIGH-BYTE BILDNUM 
MER 

330 BA : REM BILDSCHIRM AUFBAUEN 
340 GET KEY A* : REM AUF TASTENDRUCK WARTEN 
350 IF A*=“CDOWN>" AND BI<14 THEN BI=BI+1: GOTO 3 
10s REM BILDNUMMER ERHOEHEN 
360 IF A*="<UP>" AND BI>0 THEN BI=BI-lt GOTO 31 s 
REM BILDNUMMER ERNIEDRIGEN 
370 IF A*< >" " THEN 34 s REM AUSGANG BEI SPACE, S 
ONST WEITER 

380 SYS IQ * REM ALTEN IRQ WIEDER EINSCHALTEN 
390 SCNCLR t REM UND BILDSCHIRM LOESCHEN 


<7L0> 

<VP6> 

<HRU> 

<9VQ> 

<JM2> 

<K6P> 

<QF3> 

<NCB> 

<TT3> 

<06L> 

<6Q9> 

<KJR> 

<VF9> 

<EPV> 

<OKT> 

<E89> 

<OJH> 

<EKV> 

<RSN> 

<E9C> 

<B47> 

<NKH> 

< 115> 

<0K9> 

< VFA> 
<LBR> 


Listing 5. Mit diesem Demo-Programm (»DEMO .MSG«) werden MSG-Bilder per Basic verwaltet. Bitte mit dem 
Checksummer 128 eingeben. 


Name : blldaufbau ObOO Ocff 


ObOO : 

20 

81 

Ob 

ad 

98 

Oc 

85 

fd 

55 

0b08 : 

a9 

00 

8d 

99 

Oc 

aa 

99 

Oc 

fd 

OblO : 

bd 

5a 

Oc 

8d 

98 

Oc 

8a 

Oa 

d7 

0bl8 : 

: aa 

bd 

9b 

Oc 

85 

fb 

6g 

8e 

75 

0b20 : 

bd 

9c 

Oc 

85 

fc 

18 

69 

d4 

bf 

0b28 : 

85 

8f 

20 

27 

Oc 

es 

99 

Oc 

19 

Ob 30 i 

; ad 

99 

Oc 

c9 

32 

dO 

d6 

ad 

46 

0b38 : 

8c 

Oc 

48 

29 

Of 

8d 

93 

Oc 

c5 

0b40 : 

68 

6a 

6a 

6h 

6a 

29 

Of 

8d 

Oc 

0b48 : 

92 

Oc 

ad 

8d 

Oc 

29 

01 

dO 

ad 

0b50 : 

; 03 

a9 

18 

2c 

a9 

la 

8d 

94 

7e 

0b58 

: Oc 

ad 

8d 

Oc 

29 

02 

dO 

03 

Oc 

0b60 : 

: a9 

c8 

2c 

a9 

dB 

Bd 

95 

Oc 

16 

0b68 

: ad 

8e 

Oc 

48 

29 

Of 

8d 

91 

cd 

0b70 

: Oc 

68 

6a 

6a 

6a 

6a 

29 

Of 

55 

0b78 

: 8d 

90 

Oc 

a5 

fd 

8d 

98 

Oo 

cc 

0b80 

: 60 

8d 

02 

ff 

20 

ba 

Ob 

aO 

6d 

0b88 

: 34 

bl 

fd 

99 

5a 

Oc 

88 

10 

90 

0b90 

: f 8 

4c 

52 

Oc 

a9 

04 

18 

65 

aa 

0b98 

: 87 

85 

87 

90 

02 

e6 

88 

a9 

a3 

ObaO : 

: 04 

18 

65 

89 

85 

89 

90 

02 

26 

0ba8 

: 06 

8a 

18 

a5 

fb 

69 

28 

85 

45 


ObbO : 

fb 

85 

8e 

90 

04 

eß 

fc 

e6 

5d 

Obb8 : 

8f 

60 

ad 

96 

Oc 

85 

83 

ad 

Oc 

ObcO : 

97 

Oc 

85 

84 

a9 

35 

20 

fc 

Oe 

0bc8 : 

Ob 

18 

a6 

83 

(i'.i 

00 

85 

fd 

82 

ObdO : 

a5 

84 

69 

30 

85 

fe 

60 

85 

f 5 

0bd8 : 

83 

a9 

00 

85 

84 

a9 

20 

20 

37 

ObeO : 

fc 

Ob 

18 

a5 

83 

69 

00 

85 

ab 

0be8 : 

87 

a5 

84 

69 

10 

85 

88 

a5 

2b 

ObfO : 

87 

69 

10 

85 

89 

a5 

88 

69 

9b 

Obf8 : 

00 

85 

8a 

60 

85 

85 

a2 

00 

79 

OeOO : 

86 

86 

86 

8b 

86 

Bo 

aO 

10 

4c 

0c08 : 

dO 

Od 

18 

a5 

8b 

65 

85 

85 

lf 

OclO : 

8b 

ab 

8c 

65 

86 

85 

8c 

46 

91 

0cl8 : 

8c 

66 

8b 

66 

84 

66 

83 

88 

22 

0c20 : 

30 

04 

90 

f 3 

bO 

e4 

60 

20 

e9 

0c28 : 

: 4a 

Oc 

ad 

98 

Oo 

20 

d7 

Ob 

2e 

0c30 : 

a2 

03 

aO 

00 

bl 

87 

91 

fb 

12 

0c38 : 

: bl 

89 

91 

8e 

c8 

cO 

04 

dO 

28 

0c40 : 

f 3 

20 

94 

Ob 

ca 

10 

eb 

4c 

3f 

0c48 : 

52 

Oc 

48 

a9 

7g 

8d 

00 

ff 

3c 

0c50 : 

: 68 

60 

48 

a9 

Oe 

8d 

00 

ff 

7d 

0c58 : 

68 

60 

00 

00 

00 

00 

00 

00 

fl 

0c60 : 

00 

00 

00 

00 

00 

00 

00 

00 

61 

0c68 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

69 


0c70 

00 

00 

00 

00 

00 

00 

00 

00 

71 

0c78 

00 

00 

00 

00 

00 

00 

00 

00 

79 

0c80 

00 

00 

00 

00 

00 

00 

00 

00 

81 

0c88 

00 

00 

00 

00 

00 

00 

00 

07 

37 

0c90 

02 

06 

00 

00 

18 

c8 

00 

00 

5d 

0c98 

00 

00 

d2 

00 

04 

04 

04 

08 

ce 

OcaO 

04 

Oc 

04 

10 

04 

14 

04 

18 

cf 

0ca8 

04 

lc 

04 

20 

04 

24 

04 

aO 

72 

OcbO 

04 

a4 

04 

a8 

04 

ac 

04 

bO 

34 

0cb8 

04 

b4 

04 

b8 

04 

bc 

04 

cO 

e6 

OccO 

04 

c4 

04 

40 

05 

44 

05 

48 

47 

0cc8 

05 

4c 

05 

50 

05 

54 

05 

58 

f 6 

OcdO 

05 

5c 

05 

60 

05 

64 

OS 

eO 

9a 

0cd8 

05 

o4 

05 

e8 

05 

ec 

05 

fO 

5b 

OceO 

05 

f 4 

05 

f 8 

05 

fc 

05 

00 

Oc 

0ce8 

06 

04 

06 

80 

06 

84 

06 

88 

30 

Ocf 0 

06 

8c 

06 

90 

06 

94 

06 

98 

le 

öcf 8 

06 

9c 

06 

aO 

06 

a4 

06 

Ob 

96 


Listing 6. Die Routine für den Bild¬ 
aufbau in eigenen Programmen, 
Bitte mit dem MSE eingeben. / 


Name 

irq 





1300 1393 

1338 

01 

dO 

01 

60 

ad 

12 

dO 

cd 

38 

1380 : a9 01 8d 12 dO 60 78 a9 

95 











1340 

9a 

Oc 

bO 

2a 

ad 

93 

Oc 

8d 

14 

1388 : 65 8d 14 03 a9 fa Bd 15 

ec 

1300 

78 

a9 

24 

Bd 

14 

03 

a9 

13 

2e 

1348 

20 

dO 

ad 

92 

Oc 

8d 

21 

dO 

el 

1390 : 03 58 60 Ob 38 e9 27 aa 

fe 

1308 

8d 

15 

03 

aO 

01 

8d 

12 

dO 

7c 

1350 

ad 

95 

OC 

öd 

16 

dO 

ad 

90 

3c 



1310 

ad 

ii 

dO 

29 

7f 

8d 

11 

dO 

e9 

1358 

Oc 

8d 

22 

dO 

ad 

91 

Oc 

8d 

80 



1318 

a9 

81 

Bd 

la 

dO 

ad 

05 

8d 

b2 

1360 

23 

dO 

ad 

94 

Oc 

8d 

18 

dO 

18 

Listing 7. Die IRQ-Routine zum 


1320 

06 

d5 

58 

60 

d8 

20 

31 

13 

ac 

1368 

ad 

9a 

Oc 

4c 

82 

13 

a9 

15 

81 

, / 

1328 

20 

87 

fc 

20 

e7 

c6 

4c 

33 

9b 

1370 

Bd 

18 

dO 

a9 

00 

8d 

20 

dO 

01 

Einbau in eigene Programme. 

1 / 

1330 

ff 

ad 

19 

dO 

8d 

19 

dO 

29 

9d 

1378 

8d 

21 

dO 

a9 

c8 

8d 

16 

dO 

f2 

Bitte mit dem MSE eingeben. 

1 / 
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C128 


Neue Zeidiensätze für den 
80-Zeidten-Modus 


»Charedit« ermöglicht Ihnen das komfortable 
Editieren der Zeichensätze im 80-Zeichen-Modus. 
Eine grafische Benutzeroberfläche hilft bei der 
Bedienung. Zusätzlich bekommen Sie noch zwei 
neue Zeichensätze mitgeliefert. 

O bwohl der DIN-Zeichensatz des C128 für den deut¬ 
schen Anwender äußerst hilfreich ist, liefert er auf vie¬ 
len Monitoren im 80-Zeichen-Modus ein eher mage¬ 
res Bild. Unser Programm »Charedit« beseitigt dieses 
Manko, indem es gut lesbare Zeichensätze liefert, die vom 
Benutzer zudem komfortabel verändert und somit ange¬ 
paßt werden können. Dies wird durch die freundliche 
Benutzerführung mit Windows und Pull-Down-Menüs sehr 
einfach gemacht. Des weiteren hat Charedit einige nützli¬ 
che Routinen zu bieten, die auch einzeln verwendbar sind 
und auf diese Weise dem Hobbyprogrammierer ein indivi¬ 
duelles Gestalten des Zeichensatzes ermöglichen. Zahl¬ 
reiche Funktionen wie kopieren, spiegeln und rotieren von 
Zeichen sind dabei eine große Hilfe. Außerdem können 
gleichzeitig zwei Zeichensätze im Speicher sein, zwischen 
denen bei Bedarf hin- und hergeschaltet werden kann. Die 
Zeichensätze können als Dateien verwaltet und in eigene 
Programme eingebunden werden. Des weiteren bringt 
Charedit seine Ergebnisse schwarz auf weiß zu Papier. 

Komfortable Pull-Down-Menüs 


Das Programm selbst ist in Basic geschrieben. Bitte geben 
Sie Listing 1 mit dem Checksummer 128 ein. Beachten Sie 
dazu die Eingabehinweise auf Seite 159. Vor dem Starten 
mit RUN muß auf dem DIN-Zeichensatz umgeschaltet wer¬ 
den. Listing 2 bis 7 sind Maschinenroutinen, die mit dem 
MSE im C64-Modus eingegeben und vom Hauptpro¬ 
gramm automatisch nachgeladen werden. Dasselbe gilt 
für Listing 8 und 9 (die neuen Zeichensätze). 

Wir wollen uns nun dem Editor zuwenden. Erarbeitet mit 
einer Benutzeroberfläche, die jener bekannter 16-Bit- 
Computer wie Atari ST oder Amiga ähnelt (Bild 1). Mittels 
Joystick erreicht man die verschiedenen Pull-Down- 
Menüs, aus denen per Knopfdruck der gewünschte Punkt 
ausgewählt wird. Zur direkten Eingabe von Daten werden 
Windows benützt, dadurch bleibt der Bildschirmaufbau 
übersichtlich. 

Benutzeroberfläche wie beim Amiga 


Auch bei der direkten Manipulation von Zeichen kann der 
Joystick hilfreich eingesetzt werden. 

Nach dem Start mit »RUN« erscheint der »Mauszeiger« 
- ein weißer Pfeil - auf dem Bildschirm. Dieser wird mit 
einem Joystick in Port 2 gesteuert, kann aber auch mit einer 
(joysticksimulierenden) Maus bewegt werden. Sobald Sie 
mit diesem in ein Auswahlfeld gelangen und den Knopf am 
Joystick drücken, führt Charedit die gewählte Funktion aus. 
Zu Beginn kommen Sie durch Anklicken des »START«- 
Feldes in das Editorfeld. Mit »ENDE« können Sie Charedit 
verlassen. 


Im Editor selbst werden die einzelnen Funktionen aus 
Pull-Down-Menüs aufgerufen. Durch Anklicken des ent¬ 
sprechenden Punktes in der Kopfleiste am Bildschirm 
erreichen Sie das dazugehörige Menü. In diesem erfolgt 



Bild 1. Die Benutzeroberfläche verleiht »Charedit« einen 
großen Bedienkomfort beim Editieren 


die Auswahl der einzelnen Funktionen analog. Wollen Sie 
ein Menü verlassen, weil Sie es versehentlich angewählt 
haben, müssen sie den Zeiger außerhalb des Menüs posi¬ 
tionieren und den Feuerknopf am Joystick betätigen. 

Auf die vielseitigen Möglichkeiten die Ihnen Charedit bie¬ 
tet, soll nun im einzelnen eingegangen werden. 

INFO 

Gibt Auskunft über die aktuelle Programmversion und 
den Autor. 

EDIT 

In diesem Modus kann das angezeigte Zeichen punkt¬ 
weise verändert werden. Dazu positioniern Sie den Zeiger 
auf eines der Matrixfelder im Editor und klicken dieses an. 
Befand sich in dem Feld kein Punkt, wird dort einer gesetzt. 
War in diesem Feld bereits ein Punkt, so wird dieser 
gelöscht. 

Diese Operation darf sich auch auf Gruppen von Punk¬ 
ten beziehen. Dazu dient die das Matrixfeld umgebende 
Zeilen- und Spaltennumerierung. Durch Anklicken einer 
dieser Zahlen wird die betreffende Spalte beziehungsweise 
Zeile invertiert, das heißt, gesetzte Punkte werden gelöscht 
und umgekehrt. Durch nochmaliges Anwählen dieser 
Funktion kann der ursprüngliche Zustand wiederherge¬ 
stellt werden. 

DATEI 

Über diesen Menüpunkt werden die Diskettenfunktionen 
ausgeführt. Hier wird Ihr Zeichensatz gespeichert, wieder 
in den Speicher geladen und auf Wunsch gelöscht. Des 
weiteren erhalten Sie hier eine Liste aller auf der Diskette 
befindlichen Zeichensätze. 

Die einzelnen Punkte wählen Sie durch Anklicken an. 
Versehentlich angewählte Funktionen werden durch Knopf¬ 
druck außerhalb des Menüfeldes wieder verlassen. 
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C128 


GRAFIK 


KATALOG 

Durchsucht die im Laufwerk befindliche Diskette nach 
Zeichensatzdateien. Ein Window in Bildschirmmitte zeigt 
die Dateien an. Durch Anklicken der Felder »HOCH« und 
»RUNTER« blättern Sie die Liste durch. Wollen Sie den 
angezeigten Namen für eine im folgenden beschriebene 
Operation übernehmen, so klicken sie das »OK«-Feld an. 

LADEN 

Bei »LADEN«, »SPEICHERN« und »LÖSCHEN« erfolgt 
die Bedienung zweckmäßigerweise über die Tastatur. Um 
eine Funktion auszuführen, drücken Sie < RETURN >, um 
abzubrechen <ESC>. 

Wenn Sie einen Zeichensatz laden wird der aktuelle im 
Speicher befindliche gelöscht. Der Name wird entweder 


a) globale Variablen: 

a$ 

= allgemeine Stringvariable 

1 

= allgemeiner Zähler 

KA$ 

= String für Directory (Katalog) 

BL$ 

= String aus Leerzeichen 

BGS 

= String aus CHR$(221); Hintergrund 

wos 

= Window-Off-String 

DNS 

= Dateiname 

VD 

= Basisadresse des VDC 

PO 

= Position des Pfeils 

Adressen der Subroutinen: 

VP 

= Startadresse von VDC-POKE 

MC 

= Startadresse von MODICHAR 

TS 

= Startadresse von TRANSSET 

SS 

= Startadresse von SWAPSCRN 

AM 

= Startadresse von CHARMOVE 

SA 

= Startadresse von SCNTOASC 

X 

= Zeiger auf das Programmende 

AZ 

= Aktuelles Zeichen 

Z 

= Hilfszeiger für AZ 

AT 

= Attributwert des Zeichens 

C 

= Zeichencode für SCNTOASC 

CS 

= ASCII-Zeichen von SCNTOASC 

M 

= Zeiger für den Modus 

b) lokale Variablen der einzelnen Menüpunkte: 

INFO: 

keine neuen Variablen 

EDIT: 


L 

= Zeiger für Zeile im Matrixfeld 

C 

= Zeiger für Spalte im Matrixfeld 

ZF 

= Array mit Matrix des Zeichens 

DATEI: 


NS 

= Nächster Sektor 

TN 

= Tracknummer 

SK 

= Sektornummer 

Z 

= Zählvariable 

LZ 

= Verringerte Zählvariable 

NS 

= Hilfsstring für Dateiname 

L 

- Länge der Eingabe 

S 

= Spaltenzeiger für Eingaben 

AD 

= Startadresse des Zeichensatzes in der Bitmap 

AS 

- Aktuelle Zeichensatznummer 

FF 

■» Zeiger für Diskettenfehler 

WAHL: 


Z 

= Position des Zeichens im Satz 

H 

= Hilfsvariable für Z 

AI 

= Attributwert des neuen Zeichens 

A2 

= Attributwert des alten Zeichens 

KOPIE: 

keine neuen Variablen 

ZEICHEN: 

keine neuen Variablen 

ALT: 

keine neuen Variablen 

DRUCK: 


0 

= Offset für Zeichensatz 

SP 

= Zeiger für Spaces (Tabellierung) 

J 

= ASCII-Code des Zeichens 

P 

= Potenzierter Wert 

ENDE: 

keine neuen Variablen 


Tabelle 1. Die Variablen von Charedit und deren Bedeutung 


über die Tastatur eingeben oder durch Druck auf 
< RETURN > direkt aus dem Window übernommen. Bei 
der Eingabe des Namens treten einige Besonderheiten 
auf: < DEL> löscht die komplette Zeile, es kann also nur 
durch die Cursortasten ein einzelnes Zeichen entfernt wer¬ 
den. 

SPEICHERN 

Schreibt den Zeichensatz im Speicher auf Diskette. Die 
Auswahl des Dateinamens erfolgt analog zu Laden. 

LÖSCHEN 

Entfernt bestimmte Zeichensätze von der Diskette. Diese 
Operation muß dem etwaigen Überschreiben von Dateien 
vorangehen, da der Speichervorgang bereits existierende 
Dateien nicht überschreibt. So sind Sie vor folgenschweren 
Fehlbedienungen geschützt. 

Kommt es bei einer »DATEI«-Funktion zu Fehlern seitens 
des Floppylaufwerks, werden diese in einem Fenster ange¬ 
zeigt. Üm die Arbeit mit Charedit fortführen zu können, 
müssen Sie in diesem Fall das Feld »BEHEBEN & BESTÄTI¬ 
GEN« anklicken. 

WAHL 

Diese Funktion ermöglicht die Wahl des Zeichens aus 
dem aktuellen Zeichensatz, das bei »EDIT« verändert wer¬ 
den soll. Außerdem wird hier zwischen den beiden im Spei¬ 
cher befindlichen Zeichensätzen selektiert. Alle Funktio¬ 
nen beziehen sich stets auf den angezeigten Zeichensatz. 
ZEICHEN WÄHLEN 

Hier erscheint ein weiteres Menü, mit dessen Hilfe Sie 
das helle (also das aktuelle zu bearbeitende) Zeichen im 
aktuellen Zeichensatz bewegen. Es wird per Druck auf das 
»OK«-Feld in das Matrixfeld übernommen. 

ZEIG I EN SATZ 0 

Wählt Satz 0 als aktuellen Zeichensatz und zeigt diesen 
an. 

ZEICHENSATZ 1 

Macht das gleiche mit Zeichensatz 1. 

KOPIE 

Diese Funktion kopiert das Bitmuster des aktuellen Zei¬ 
chens in ein beliebiges anderes Zeichen. Dadurch erspa¬ 
ren Sie sich das wiederholte Erstellen mehrmals vorkom¬ 
mender Grundelemente, die sich nur wenig voneinander 
unterscheiden. 

Drehen, rotieren, invertieren - 

alles kein Problem 


ln einem Untermemü legen Sie fest, wohin Sie das weiß 
dargestellte Zeichen kopieren wollen. Durch Anklicken des 
Feldes »KOPIEREN« wird die Operation ausgeführt. Um 
das Menü wieder zu verlassen, klicken Sie das »OK«-Feld 
an. 

ZEICHEN 

Dieser Menüpunkt erhöht die Flexibilität von Charedit 
enorm. Hier kann das aktulle Zeichen auf verschiedenste 
Weise modifiziert werden. 

LÖSCHEN 

Löscht das aktuelle Zeichen. 

INVERS 

Kehrt das aktuelle Bitmuster um, das heißt, gesetzte 
Punkte werden gelöscht und umgekehrt. 
SENKR.SPIEGELN 

Spiegelt das Zeichen um seine senkrechte Mittelachse. 
WAAGR.SPIEGELN 

Spiegelt das Zeichen um seine waagrechte Mittelachse. 
ROTIEREN (HOCH, LINKS, RECHTS, RUNTER) 
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Schiebt das Zeichen in die gewünschte Richtung. Dabei 
werden die herausfallenden Zeilen und Spalten am ande¬ 
ren Ende der Matrix wieder angefügt. 

DREHEN (LINKS, RECHTS) 

Dreht das Zeichen in die entsprechende Richtung um 90 
Grad. 

ALT 

Versehentlich vorgenommene Änderungen an Zeichen 
werden hier rückgängig gemacht. Dies kann aber nur bis zu 
einem bestimmten Zeitpunkt erfolgen. Haben sie zwi¬ 
schenzeitlich den Zeichensatz abgespeichert oder auch 
nur gewechselt, so sind alle bis dahin erfolgten Manipula¬ 
tionen nicht mehr rückgängig zu machen. 

ALTES ZEICHEN 

Das aktuelle Zeichen wird auf seinen ursprünglichen 
Stand gebracht (soweit dies eben noch möglich ist). 
ALTER Z-SATZ 

Bringt den kompletten angezeigten Zeichensatz in seine 
ursprüngliche Form. 

DRUCK 

Bringt die Zeichensätze zu Papier. Die abgedruckte Ver¬ 
sion von Charedit arbeitet nur mit dem MPS 802 zusam¬ 
men. Ein Anpassung ist allerdings leicht möglich, wir wer¬ 
den darauf noch zurückkommen. 

ALTES=NEUES ZEICHEN 

Druckt eine Gegenüberstellung der alten und neuen Zei¬ 
chen. 

HARDCOPY Z-SATZ 

Gibt den Zeichensatz bildschirmgetreu auf den Drucker 
aus. 

ENDE 

Dient zum Verlassen von Charedit. Sicherheitshalber 
muß dies durch Anklicken des »OK«-Feldes bestätigt wer¬ 
den, da alle Daten beim Verlassen verlorengehen. 

Zeichensätze als Beigabe 


Mit Charedit lassen sich Zeichensätze aller Art eigenstän¬ 
dig gestalten. Doch warum sollte man das Rad noch einmal 
erfinden? Wir haben Ihnen deshalb zwei Zeichensätze bei¬ 
gelegt, welche die Vielfältigkeit von Charedit demonstrie¬ 
ren. Listing 8 verleiht dem mageren DIN-Zeichensatz leser¬ 
liche Buchstaben, und Listing 9 läßt den Bildschirm durch 
umrandete Zeichen lebendig erscheinen (siehe Bild 2). Auf 
der Programmservice-Diskette finden Sie noch weitere Zei¬ 
chensätze. Mit Hilfe von speziellen Zeichensätzen lassen 
sich mit Charedit auch schöne Grafiken erstellen (Bild 3). 
Wir wünschen Ihnen viel Spaß bei der Arbeit mit Charedit! 

Der Aufbau des Programms 


Charedit wurde, so programmiert, daß der erfahrene 
Anwender leicht Änderungen vornehmen kann. Betrachten 
Sie zu diesem Zweck die Verwendung der Variablen 
(Tabelle 1). Im Folgenden soll nun die Ansteuerung des 
Druckers erläutert werden, um die Anpassung der Ausga¬ 
befunktion an den eigenen Drucker zu ermöglichen. 

Drucker einfach angepaßt 


Die Druckroutine befindet sich am Ende des Programms 
aus Listing 1, dem Basic-Teil. Der Druck der gegenüberge¬ 
stellten Zeichen läuft in den Zeilen 12640 bis 12980 ab, die 
Hardcopy des Zeichensatzes erfolgt in den Zeilen 12990 


HARDCOPY ZEICHENSATZ 



Bild 2. Der Outline-Zeichensatz (Listing 9) als Ausdruck 



Bild 3. Mit Hilfe von speziellen Zeichensätzen lassen sich 
mit »Charedit« auch solche Grafiken erstellen 


bis 13300. Hier einige Erläuterungen, die ihnen beim 
Anpassen helfen sollen: 

Zeile 12670: Öffnet den Druckkanal sowie den Kanal für 
die Sonderzeichen. 

Zeile 12680: O = Offset für untere (Zeichen 0 bis 127) 
oder obere (Zeichen 128 bis 255) Hälfte des Zeichensatzes. 
SP = Zwischenraum der Zeichen (wird verändert, um 
Tabelle zu erzeugen). 

Zeile 12730: Umrechnung Bildschirmcode in ASCII- 
Code. 

Zeile 12740: Bitmuster des Zeichens holen. 

Zeile 12890: Umgeformten Zeichenstring an Drucker 
senden; führt zum Ausdruck des Zeichens. 

Zeile 12960: Druckerkanäle schließen. 

Die übrigen Funktionen des Druckertreibers werden 
beim Durchsehen des Listings klar. 

Routinen zum Übernehmen 

Da Charedit den VDC-Zeichensatz manipuliert, verfügt 
das Programm über Routinen in Maschinensprache, die 
auch für sich betrachtet sehr interessant sind. Zur Über¬ 
nahme von definierten Zeichensätzen in eigene Pro¬ 
gramme sind sie sogar obligatorisch. Wir werden die 
Listings 2 bis 7 im folgenden erläutern: 

VDC-POKE - Listing 2: 

Ändert den Inhalt einer Adresse im VDC-RAM, das 16 
KByte umfaßt. 

Programmbereich: $0C90 bis $0CBD 
Syntax: SYS DEC("0C90"),L,H,W 
Parameter: 

L = Low-Byte 
Low-Byte der Adresse 
H = High-Byte 
High-Byte der Adresse 
W = Wert 

Gewünschter Wert, mit dem die Adresse beschrieben 
werden soll. 

MODICHAR - Listing 3: 

Mit Modichar wird das Bitmuster eines bestimmten Zei¬ 
chens im VDC ausgelesen oder nach Veränderung in den 
VDC geschrieben. Das Bitmuster muß acht Datenbytes 
umfassen und liegt im Bereich von $0C80 bis $0C87. 
Programmbereich: $0C00 bis $0C88 
Syntax: SYS DEC ("0C00"),Z,B,M 
Parameter: 
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Z = Zeichensatznummer 
Bei Z=1: Standardzeichensatz 

Bei Z=2: Zweiter Zeichensatz (über <SH!FT CBM> 
erreichbar) 

B = Bildschirmcode 

Nummer des ausgesuchten Zeichens im BikJschirm- 
code 

M = Modus 

Bei M=0: holt das Zeichen aus dem VDC 
Bei M=1: schreibt das Zeichen in den VDC 

TRANSSET - Listing 4: 

Mit Transset wird ein VDC-Zeichensatz ausgelesen oder 
überschrieben. Beim Auslesen holt das Programm das 
Muster aus der Bitmap. Beim Überschreiben legt es dieses 
dort hin. Hier kann der Zeichensatz problemlos auf Diskette 
geschrieben, beziehungsweise von dort geholt werden. Da 
der VDC über zwei Zeichensätze verfügt, werden diese an 
zwei verschiedenen Stellen in der Bitmap abgelegt (bei 
$2000 beziehungsweise $3000). Transset überträgt die Zei¬ 
chen optimierend. Dazu werden die acht überflüssigen 
Nullbytes, die der VDC jedem Zeichen anhängt, beim 
Lesen gelöscht und beim Schreiben wieder angehängt. 
Programmbereich: $0B00 bis $0BA6 
Syntax: SYS DEC ("0B00"),Z,B,M 
Parameter: 

Z = Zeichensatznummer 
Bei Z=1: Standardzeichensatz 
Bei Z=2: Zweiter Zeichensatz 
B = Bitmapposition 

Bestimmt die Position des Zeichensatzes 


ADRESSE 

BEDEUTUNG 

$14BF 

Position des Zeichens: Zeile (0 bis 24) 

$14C0 

Spalte (0 bis79) 

$14C1 

Bildschirmcode des Zeichens (0 bis 255) 

$14C2 

Attribute des Zeichens 

Bit 7: 0; Zeichensatz 0 1; Zeichensatz 1 

Bit 6: 0; Zeichen normal 1; Zeichen revers 

Bit 5: 0; Unterstreichen aus 1; Unterstreichen ein 

Bit 4: 0; Blinken aus 1; Blinken ein 

Bit 3: Farbe des Zeichens (0 bis 15) 
bis 

BitO 

S14C3 

Tempo der Zeichenbewegung: vertikal (0 bis 255) 

$14C4 

horizontal (0 bis 255) 


und problemlos zu ermöglichen, befinden sich diese in fol¬ 
genden Speicherzellen: 

Nach Drücken des Joystickknopfes kann die aktuelle 
Position des Zeichens gelesen werden. 

SCNTOASC - Listing 7: 

Wandelt Bildschirmcode in ASCII-Code. Der Bildschirm¬ 
code wird als Parameter übergeben, der ASCII-Code kann 
mit »PEEK (DEC("FA''))« oder »RREG« gelesen werden. 
Programmbereich: $0CC0 bis $0CE4 
Syntax: SYS DEC("0CC0"),B 
Parameter: 

B = Bildschirmcode des gewünschten Zeichens 

(Gerhard Zinner/Axel Pretzsch) 


Bei B=0: Zeichensatz ab $2000 

Bei B=1: Zeichensatz ab $3000 64eR Oi 

M = Modus 

Bei M=0: Schreibt Zeichensatz aus der Bitmap in den VDC. 
Bei M=1: Liest VDC-Zeichensatz und schreibt ihn in die Bit¬ 
map. 

Transset eignet sich besonders zum Laden von Zeichen- 
saätzen, die mit Charedit erstellt wurden. 

Beispiel: 

10 BL0AD "TRANSSET.OBJ" 

20 BL0AD "[Name des Zeichensatzes]*", P 8192 
30 SYS DEC ("0B00"),[Zeichensatznummer],0,0 

SWAPSCRN - Listing 5: 

Diese Routine ermöglicht ein Zwischenspeichern des 
Bildschirminhalts im 80-Zeichen-Modus. Dazu wird der 
Inhalt des 80-Zeichen-Bildschirms mitsamt seiner Attribute 
in den freien Bereich des VDC-RAMs ab $1000 verscho¬ 
ben. Oder der sichtbare Bildschirm wird durch den Inhalt 
dieses RAMs ersetzt. So können sie den sichtbaren Bild¬ 
schirm nach vorher erfolgter Sicherung beliebig »verun¬ 
stalten«, denn der alte ursprüngliche Zustand ist problem¬ 
los wiederherzustellen. 

Programmbereich: $0D00 bis $0D90 
Syntax: SYS DEC("0D00"),M 
Parameter: 

M = Modus 

Bei M=0: Holt den gespeicherten Bildschirminhalt wieder 
auf den sichtbaren Bildschirm 
Bei M=1: Speichert den sichtbaren Bildschirm 
CHARMOVE - Listing 6: 

Bewegt ein beliebiges Zeichen des VDC-Zeichensatzes 
über den 80-Zeichen-Bildschirm. Das Zeichen wird mit 
dem Joystick in Port 2 gesteuert. 

Programmbereich: $1300 bis $14C5 
Syntax: SYS DEC ("1300") 

Parameter: 

Um eine Übergabe der zahlreichen Parameter schnell 


AcUu-g! 

Bitte beachten Sie bei der Eingabe der Zeichensätze (Listing 8 und 
9) mit dem MSE (im C64-Modusl), daß der Name des jeweiligen Zei¬ 
chensatzes vollständig eingegeben wird, also auch alle Spaces und 
das Grafikzeichen <CBM> an der 16ten Position. Bei Listing 8 
muß also »fett (g/k) <5mal SPACE > <CBM B>«, bei Listing 9 
“Outline (g/k) <2mal SPACE> <CBM B>« eingegeben werden. 

Dies ist deshalb notwendig, da Charedit die Zeichensätze als sol¬ 
che nur erkennt, wenn am Ende des Namens das über < CBM B > 
zu erreichende Grafikzeichen steht. 

Wenn der Zeichensatz hingegen von Charedit aus geladen wird, 
reicht es, den Namen des jeweiligen Zeichensatzes anzugeben. 

Bei der Eingabe von Listing 1 mit dem Checksummer darf der 
DIN-Zeichensatz nicht aktiviert sein. Eine Code-Umwandlung (wie 
im Kopf von Listing 1 angegeben) braucht dann nicht beachtet zu 
werden. 


lOOO 

REM 


<340 

1010 

REM 





<3CD> 

1020 

REM 


CHAREDIT 

VI.0 

<3KE> 

1030 

REM 





<3SF> 

1040 

REM 

EIN 

ZEICHENSATZEDITOR FUER DEN 

<248> 

1O50 

REM 

80-ZEICHEN- 

MODUS 

DES CI28 UND 

<2C9> 

1060 

REM 

DRUCKER VC 

1526 / 

MRS 802. 

<2KA> 

1O70 

REM 





<2SB> 

10G0 

REM 

01. B7 


G. ZINNER 

<144> 

1O90 

REM 





< 1C5> 

1 100 

REM 

DAS 

PRß WURDE IM 

DIN-MODUS ER- 

<3KE> 

1110 

REM 

STELLT. DARUM SIND BEI FÖLSEN- 

<3SF> 

1120 

REM 

DEN 

GRAFIKZEICHEN DIESE TASTEN 

<340 

1130 

REM 

ZU 

BETAETIGENCHEN : 

< 1G7 > 

1140 

REM 





<2KA> 

1150 

REM 

"7" 

= CBM ♦ 

A / " 

TT" = CBM S 

<2SB> 

1 160 

REM 

"T" 

- CBM + 

Y / " 

0“ - CBM + X 

<24B> 

1170 

REM 

"TT" 

» CBM + 

B / " 

'7“ = CBM -f . 

<2C9> 

1 ISO 

REM 

"ff" 

= CBM + 

0 / " 

H" - CBM * W 

< 1 K.6 > 

1190 

REM 


= CBM 4 

W / " 

l0" = CBM > ? 

<1S7> 

1200 

REM 





<24B> 

1220 

X 





<2C9> 

<209> 

1230 

FAST 





<MIJ> 

1240 

X 





<105> 

1259 

: REM - 

SCHALTET 

AUF 80 ZEICHEN 

< 1G7> 


Listing 1. Das Basic-Programm »CHAREDIT«. Es lädt die 
Unterprogramme aus Listing 2 bis 8 selbständig nach. 
Bitte mit dem Checksummer 128 eingeben. 
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1260 x 

1270 IF PEEK(DEC <"D7")> =0 THEN PRINT CHR*<27>+ "X" 

1280 x 

1290 x REM - PRUEFT AUF ASCII-Z-SATZ 
1300 s 

1310 IF PEEK(DEC("CC”)>-128 THEN BEGIN 
1320 x SCNCLR 

1330 x A*="="x FÜR 1=0 TO 79x A#=A*+"#"x NEXT I 
1340 o PRINT : PRINT x PRINT 

1358 s PRINT USING A#j"SCHALTEN SIE AUF DEN DIN-Z 
EICHENSATZ UM" 

1360 x PRINT USING A*»"UND STARTEN SIE DAS PROGRA 
MM" 

1370 x PRINT USING A4-, "MIT 'RUN' - <RETURN> NEU ! 

1380 x END 
1390 BEND 
1400 x 

1410 x REM - 80-Z CHARACTERRAM INIT 
1420 x 

1430 SYS DEC <"CE0C"> 

1440 x 

1450 x REM - GRAPHICBEREICH FREIMACHEN 
1460 x 

1470 GRAPHIC 1,1l GRAPHIC ©i GRAPHIC 5 
14BO x 

1490 x REM - VARIABLEN VORBESETZEN 

1500 x 

1510 DIM KA*(144) 

1520 FÜR 1=0 TO 79 
1530 : BL*=BL*+CHR*(32> 

1540 x BG*=BG*+CHR*(221> 

1550 NEXT I 

1560 W0*=CHR*<19)+CHR*(19> 

1570 DN*=LEFT*(BL*,15) 

1500 VD=DEC("D6O0") 

1590 DEF FN PO(P> =PEEK(DEC("14BF")> »80+PEEK(DEC(" 
14C0">) 

1600 s 

1610 : REM - ML-PROGS NACHLADEN 

1620 s 

1630 BLOAD "CHARMOVE.OBJ" 

164© BLOAD "MODICHAR.OBJ" 

1650 BLOAD "TRANSSET.OBJ" 

1660 BLOAD "SWAPSCRN.OBJ" 

1670 BLOAD "SCNTOASC.OBJ" 

1680 BLOAD "VDC-POKE.OBJ" 

169© : 

170© s REM - ML-VARIABLEN 
1710 s 

1720 AM=DEC <"1300"> s REM 
1730 TS=DEC("0B00") : REM 
1740 MC=DEC("0C00”> x REM 
1750 SS=DEC("0D00"> : REM 
176© SA=DEC("0CC0"> r REM 
1770 VP=DEC("0C90"> : REM 
178© s 

1790 : REM - ZEICHENSAETZE VERSCHIEBEN 
1800 x 

1810 SYS TS,0,0,1 
1820 SYS TS,1,1,1 
1830 SYS TS,1,0,0 
1840 s 

1850 a REM - AUS @ WIRD DER PFEIL 

1860 x 

187© SYS MC,0,0,1 

1880 x 

1890 x 

1900 X REM mmmmmmmmmmmmmm 
1910 i REM TITELBILD 

1930 x 
1940 : 

1950 COLOR 6,3x COLOR 5,1 
I960 PRINT CHR*(27)+ "M" 

1970 SCNCLR 
1980 x 

1990 PRINT CHR#(2);BL* 

2000 COLOR 5,13 

2010 FOR 1-0 TO 23x PRINT BG#r NEXT I 
2020 COLOR 5,1 
2030 x 

2040 WINDOW 14,3,64,13,1 
2050 ; PRINT " 

2060 : PRINT "‘fr<49SPACE)T" 

2070 x PRINT "TC2SPACE) ------ -<3SPACE>- ----- sss, 

= ----- ------- C2SPACE >------ ------ C2SPACE )T" 

2080 : PRINT "7<2SPACE) z. C5SPACE>c. C3SPACE) z. ~C3SPA 
CE>- -C3SPACE)- -C5SPACE> = <3SPACE>^<2SPACE>- 
<4SPACE>-C4SPACE> TT 

2090 : PRINT "TC2SPACE>-C5SPACE) ----- ------- ------- 

^T3SPACE) - I2SPACE >-(4SPACE > - f4SPACE >TT 

2100 r PRINT ,, 'K , <2SPACE> = C5SPACE) = <3SPACE)i -C3SPA 

CE>- = <2SPACE)^<2SPACE C5SPACE>^C3SPACE} ^<2 
SPACE >i<4SPACE)^C4SPACE>Tf" 

2110 x PRINT "Y(2SPACE> ------ -<3SPACE>- ^C3SPACE> 

= ^T3SPACE>- ------ ------- <2SPACE> --.-.<3 SPACE? - < 

4SPACE>ir" 

2120 t PRINT "?C49SPACE>'Sr" 

2130 : PRINT "T<3SPACE>E I N<5SPACE>Z EICHEN 
SATZEDITO RC3SPACE>Tf" 

2140 x PRINT "f(49SPACE)Tf" 


VORBESETZEN 

CHARMOVE 
TRANSSET 
MODICHAR 
SWAPSCRN 
SCNTOASC 
VDC-POKE 


< 001 ? 

<87K> 

<70T> 

<7GV> 

<209> 
<U21> 
<TLJ > 
<F96> 
<QLF> 

< I8T> 

<CV8> 

<7D9> 

<9HE> 

<LUU> 

<50L> 

<5GN> 

<40H> 

<7SF> 

<7©T> 

<7QV> 

<60P> 

<DPR> 

<105> 

< 1G7> 
<40H> 
<BNB> 
<U0N> 
<E9C> 
<22F> 
<LQ4> 
<874> 
<374> 
<KC2> 

<8M7> 

<70T> 

<7BV> 

<60P> 

<6HD> 

<2I5> 

<7FD> 

<S5L> 

< J6D> 
<36L> 
<3GF> 


'<6 
<DBC> 

<GEV> 

<S2E> 
<GHS> 
<2AK> 
<0S5> 
<209 > 
<2GB> 
<915> 
<OM0> 
<S6A> 
<UI8> 
<B1D> 
<BHF> 

< A19> 
<5K0> 
<D1L> 
<DHN> 
<811 > 
<8H3> 
<915> 
<9H7> 
<A19> 
<505> 
<VEE> 
<4TJ > 
<C1H> 

< IEG> 
<E45> 
<USE> 
<4KE> 
<6GR> 
<L08> 

<EK3> 

< 06 V > 

<HCR> 


<REE> 

<NPE> 

< CEC > 


<GGR> 

<C6V> 


<007> 

<06V> 


2150 x PRINT 

2160 PRINT WO* 

2170 i 

218© WINDOW 14,16,47,22,1 
2190 x PRINT 

2200 x PRINT "TT SCHLIESSEN SIE AN PORT 2 EINEN TT 
2210 x PRINT "TT JOYSTICK ODER EINE MOUSE AN,<3SPA 
CEJTT 

2220 x PRINT '"IT UND BEWEGEN SIE DEN PFEIL ( > <2SP 
ACE>T" 

2230 x PRINT "TT AUF EINES DER FELDER UND KLIK- TT" 
2240 x PRINT "T KEN SIE DIESES AN. <13SPACE>TT 
2250 x PRINT " 

2260 PRINT WO# 

2270 x 

2280 WINDOW 56,16,64,18,1 
2290 r PRINT 'T-fTTTT^V" 

2300 x PRINT "T ENDE<2SPACE)T" 

2310 x PRINT T+TWTOT' 

2320 PRINT WO* 

2330 x 

2340 WINDOW 56,20,64,22,1 
2350 x PRINT "TTTTTTTTH’" 

2360 x PRINT "TT START TT 
2370 x PRINT "FÄTWr 
23B0 PRINT WO* 

2390 x 

2400 x REM - SYSTEMSTART ODER -ENDE 
2410 x 
2420 X=0 
2430 DO 

2440 x SYS AMx PO=FN PO(0> 

2450 s IF (PO>1416 AND P0<1425> OR (P0M496 AND P 
G<1505) THEN BEGIN 

2460 x SCNCLR x PRINT CHR*(27)+"L"x END 
2470 x BEND 

2480 x IF (PO>1736 AND P0<1745> OR (P0>1816 AND P 
0<1825) THEN X=1 
2490 LOOP WHILE X=0 
25O0 x 
2510 x 

2520 : REM =========================== 

2530 x REM ARBEITSSCREEN AUFBAUEN 

255© x 
2560 x 

2570 PRINT CHR*(19);CHR*(2); 

"T2SPACE) INFOC2SPACE3 EDIT T2SPACE > DATEI 
?2tn . .CE > WAHL C2SPACE>KOPIE C2SPACE)ZEICHEN <2SP 
ACE5ALT C2SPACE 3 DRUCK<2SPACE>ENDE" 

2590 COLOR 5,13 

260O FOR I=0 TO 23: PRINT LEFT#(BG*,79): NEXT I 
261© COLOR 5,1 

2620 x 

2630 WINDOW 10,4,23,8,1 

PRINT "irZEICHEN’jfin'IR. TT" 

2670 i PRINT "Tf^SPACEiTfiTCSSPACEnr" 

268© x PRINT " irpv+VV+Wl'+V+'B" 

2690 PRINT WO# 

2700 x 

2710 WINDOW 10,11,43,22,1 
2720 x PRINT »/IWWAWf 


2650 

2660 


"+"+'♦’+V+'F+>1" 

PRINT " TZEI CHENS ATZ <21 SPACE >1T" 

PRINT 

FOR I=0 TO 7 

PRINT "TT"; LEFT# (BL#,32) f "'R’" 

NEXT I 
PRINT " 

2790 PRINT WO* 

2800 SYS VP,234,3,4B+AS 
2810 x 

2820 WINDOW 11,14,42,21,1 
2830 x PRINT CHR#(14); 

FOR 1=0 TO 31x PRINT CHR*(I+64>sx NEXT Ix 
PRINT 

PRINT CHR*(32)*CHR*(33)iCHR*(34);CHR*(20) ; 
CHR#(34); 

x FOR 1=35 TO 63x PRINT CHR#(I)|i NEXT Ix PR 
INT 

2870 x FOR 1=64 TO 95s PRINT CHR*(I-f32>ji NEXT Ix 
PRINT 

x FOR 1=96 TO 127x PRINT CHR*(1+64)|x NEXT I 
x PRINT 

x PRINT CHR#(18){: FOR 1=0 TO 31l PRINT CHR* 
(1+64)|X NEXT I 

2900 x PRINT CHR*(18);CHR*(32);CHR*(33)*CHR*(34)» 
CHR#(20)|CHR#(34)j 

2910 x FOR 1=35 TO 63x PRINT CHR*(I)»x NEXT I 
2920 s PRINT CHR#(18)|x FOR 1=64 TO 95x PRINT CHR 
# <1+32);s NEXT I 

2930 x PRINT CHR*(18);s FOR 1=96 TO 127x PRINT CH 
R#(1+64);x NEXT I 
294© x PRINT CHR*(142) 

2950 PRINT WO# 

296© : 

2970 WINDOW 51,2,69,22,1 

2980 s PRINT "TTTTTSTTTTT'TTTTTTTIZ" 

2990 s PRINT "'REDITOR<11 SPACE)TT" 

3000 s PRINT " 

3010 x PRINT 

3020 s PRINT 


2730 

2740 

2750 

2760 

2770 

27BO 


2840 


2850 


2B60 


288© 


2890 


<355> 

< 7K3 > 
<5GN> 
<DC4> 
<9C1 > 
<NQG> 

<A3L> 

<6TD> 

<96B> 

<1EQ> 

< 5SR > 

<643> 

< 6GR > 

< HES> 
<7J 1 > 

< 2KB > 
<3JR> 
<7K3> 
<5GN> 
<BDK> 
<0JT> 
<UB4 > 
<0JN> 
<543> 

< 0G3> 
<30D> 

< 3GF > 
<GE5> 
<JEF> 

< MHK > 

<988? 

<30C> 

<JUU> 

< IUQ > 
<UHO> 
<209 > 
<2GB> 
<30D> 
<3GF> 
<0O1> 
<0G3> 

< 105> 

< J 1M> 


<PE7> 

<FK5> 

<DN5> 

<7CE> 

<001> 

< JJ5> 
<SOG> 
<R50> 

< B J C > 
<P01> 
<NJV> 
<7S3> 

< 001 > 
<JJC> 
<EC1 > 
<RA2> 
<DKM> 
<R06> 
<GC4 > 
<PM4> 
<2SR> 
<7C3> 

< VMC > 
<FHV> 
<DGI> 
<5BB> 

<1D8> 

<EM4> 

<SIG> 

<LQ3> 

<JOI> 

<411 > 

<51U> 

<DKE> 

<PT5> 

<FJ7> 

< 1K0> 
<3C3> 
<D1L> 
<L0I > 
<GG3> 
<9EI > 
<2TQ> 
<BJE> 
<6LR> 
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3030 : FÜR 1-1 TQ 7 

3040 : PRINT "TT" »RIGHT* (STR* (I >, 1 >; "TT IT IT IT 'S* TT TT 
TT T 

3060 : NEXT I 

3070 : PRINT "YBY TfCSHF. SPACE>Y<SHF. SPACE>7CSHF.S 
PACE 5TCSHF.SPACE > TT CSHF.SPACE > Y CSHF.SPACE >TCS 
HF.SPACE>Y" 

3090 PRINT WO* 

3100 i 

3110 * REM - VORBESETZUNGEN 
3120 x 

3130 AZ“0: Z-AZx AT»143i GOSUB 12210: GOSUB 11830 
3140 CHAR ,7 f O t " EDIT ",1 
3130 X-0 

3160 : 

3170 : 

3180 : REM ———— 

3190 : REM GROSSE SCHLEIFE 
3200 : REM ——— 

3210 s 
3220 : 

3230 DO 
3240 : 


< MQ2 > 

<CP3> 
<BCU> 
<904 > 


<M43> 

<L53> 

<5S3> 

<40H> 

<4GJ> 

<50L> 

<6MB> 

<J3D> 

<2CD> 

<70T> 

<7GV> 

< 001 > 

<0G3> 

<70T> 

<7GV> 

<60P> 

<RFF> 

<30L> 


3250 

X 

REM - ANZEIGEN AKTUALISIEREN 

<5GN> 

3260 

8 


<40H) 

3270 

i 

C“AZ: GOSUB 11750 

<4AE> 

37B0 

: 

WINDOW 14,7,14,7,1 

<6TN> 

3290 

s 

PRINT CHR*(14>;C*;CHR* C142) 

<FPA> 

3300 

i 

PRINT WO* 

<0G2> 

3310 

X 

CHAR ,20,7: PRINT USING ">«Mr;AZ 

<6G6> 

3320 

: 


<70T> 

3330 

X 

REM - PFEILSTEUERROUT ANSPRINGEN 

<7GV> 

3340 

X 


< 4 OH > 

3350 

: 

SYS AMx PO=FN P0<0) 

< J 12> 

3360 

: 


<50L> 

3370 

- 


<5GN> 

3380 

: 

REM ===================== 

<209> 

3390 


REM PFEIL IM EDITORFELD ? 

<2GB> 

3400 

: 

REM ===================== 

< 105> 

3410 



<1G7> 

3420 

IF PO>80 THEN BEGIN 

<G1N> 

3430 

: 


<0G3> 

3440 

s 

REM ===^=—==================== 

<30D> 

3450 

: 

REM EDIT 

< 3GF > 

3460 

x 

REM ============================ 

<209> 

3470 

: 


<2GB> 

34B0 

X 

L=255 

.'NW>. 

3490 

: 


<5GN> 

3500 

• 

IF PO>453 AND P0<470 THEN P0=P0-454x L=-l 

< NNU > 

3510 

- 

IF PO>533 AND P0<550 THEN P0=P0-534: L=-l 

<RJE> 

3520 

x 

IF PO>611 AND PQ<630 THEN P0=P0-612: L=0 

<2CT> 

3530 

: 

IF PO>691 AND P0<710 THEN P0=P0-692: L=0 

<88L> 

3540 

: 

IF PO>771 AND P0<790 THEN P0=P0-772x L=1 

<UBT> 

3550 

: 

IF PO>851 AND P0<870 THEN P0=P0-852x L=1 

<04L> 

3560 


IF P0>931 AND PQ<950 THEN P0*P0-932: L=2 

vAAC > 

3570 

X 

IF POM Oll AND P0<1030 THEN PO=PD-1012: L= 



2 


< AUE > 

3580 

: 

IF P0>1091 AND PO<1110 THEN PO=PO-1092: L= 



3 


<04E> 

3590 

X 

IF POM 171 AND P0<1190 THEN PQ=P0-1172: L= 



3 


<25E> 

3600 


IF PO>1251 AND P0<1270 THEN P0=P0-1252: L= 



4 


<Q4D> 

3610 


IF POM331 AND P0<1350 THEN P0=PQ-1332: L= 



4 


<A4D> 

3620 

X 

IF P0>1411 AND P0<1430 THEN P0-P0-1412I L= 



5 


< I5D> 

3630 

X 

IF PO>1491 AND PQ<1510 THEN PO=PO-1492s L= 



5 


' 27D> 

3640 

X 

IF PO>1571 AND PQ<1590 THEN P0=P0-1572s L= 



6 


<060 

3650 

X 

IF POM 651 AND P0<167@ THEN P0=P0-16S2: L= 



6 


<270 

3660 

X 

IF PO>1731 AND PQ<1750 THEN PO-PO-1732: L- 



7 


<170 

3670 


IF PO>1011 AND P0<1830 THEN P0=P0-1812i L- 



7 


<04D> 

36B0 

s 


<70T> 

3690 

x 

REM - AENDERUNGEN AUSFUEHREN 

<7GV> 

3700 

X 


<2@9> 

3710 

X 

IF L<>255 THEN BEGIN 

<7KC> 

3720 



<30D> 

3730 

X 

REM - SPALTE UND IEREN 

<3GF> 

3740 

X 


<001 > 

3750 


IF L— 1 THEN BEGIN 

<GHA> 

3760 

X 

M=1: C a INT(P0/2) 

<MMD> 

3770 

: 

FOR L=0 TO 7s GOSUB 3910: NEXT L 

<7AH> 

3780 

X 

P0=-1 

<SQJ> 

3790 


BEND 

<JIU> 

3800 

X 


<D1L> 

3810 

3 

REM - ZEILE UND1EREN 

<DHN> 

3820 

1 


<C1H> 

3830 

: 

IF P0>-1 AND P0<2 THEN BEGIN 

<6CF> 

3840 

X 

M=ls FOR C=0 TO 7s GOSUB 3910! NEXT C 

<901 > 

3850 

t 

BEND 

<3©U> 

3860 

X 


<E1P> 

3870 

X 

REM - PUNKTE SETZEN/LOESCHEN 

<EHR> 

38B0 

1 


<915> 

3890 

I 

IF POM THEN BEGIN 

<FPP> 

3900 

: 

M=0: C=INT(P0/2)-I 

<5NB> 

3910 

x 

ZF(L,C)=XOR (ZF (L,C> , 1) 

<NNF > 

3920 

X 

CHAR ,54-MC*2> ,7+<L*2) ",ZF<L,C) 

<20N> 


3930 : D^PEEK(DEC("OCBO")+L) 

3940 : IF ZF (L,0=0 THEN D=D AND <255-2t (7-C) ): 

ELSE D=D OR 2T(7-C) 

3950 : POKE DEC("OCBO")+L,D 

SYS MC,1,AZ,1 
IF M=1 THEN RETURN 
BEND 


REM - ENDE AUSFUEHREN 


BEND 

P0=80 


REM - ENDE PO>80 


3960 i 
3970 : 

3980 : 

3990 : 

4000 : 

4010 : 

4020 : 

4030 : 

4040 : 

4050 : 

4060 : 

4070 BEND 
4080 : 

4090 i 

4100 : REM —————— 

4110 i REM PFEIL IN MENUELEISTE 7 
4120 : REM ———————— 

4130 : 

4140 IF PQ<80 THEN BEGIN 
4150 : 

4160 : REM - EDIT AUSSCHALTEN 
4170 : 

4180 i CHAR ,7,0,CHR*<2>+" 


EDIT "+CHR*(13) 


4190 t 

4200 : REM - BILDSCHIRM RETTEN 
4210 : 

4220 : SYS SS,1 
4230 x 
4240 : REM 
4250 : REM INFO 

4270 : 

4280 IF POM AND P0<6 THEN BEGIN 
4290 : 

4300 : CHAR ,1,0," INFO ",1 
4310 : 

4320 
4330 
4340 : 

4350 : 

4360 : 

4370 : 

TT 

4380 : 


WINDOW 26,8,52,15,1 
PRINT 

PRINT "Y NAME C4SPACE>: CHAREDIT C6SPACE}TT" 
PRINT "Tf VERSION : V 1.0C9SPACEJTT" 

PRINT "Y DATUMC3SPACE>; IO.86<9SPACE>Y" 
PRINT "? AUTOR<3SPACE>: G. ZINNERCSSPACE} 

PRINT "YCllSPACE>SCHMALE STR.3 Y“ 


"Y< 11SPACE>4300 ESSEN 11 Y" 


4400 : PRINT 
4410 : PRINT WO* 

4420 : 

4430 : SYS AM 
4440 x SYS SS,0 
4450 : 

4460 BEND 
4470 x 
4480 : REM 
4490 : REM 
45O0 x REM 
4510 : 

4520 IF P0>13 AND P0<19 THEN BEGIN 
4530 s 
4540 : M=0 

4550 i CHAR ,13,0," DATEI ",1 
4560 s 

4570 x WINDOW 13,1,25,9,1 
4580 x PRINT "YU1SPACE1Y" 

4590 x PRINT " Y KAT ALOGC3SPACE>Y" 

4610 i PRINT "Y LADENCSSPACEJY" 

4620 x PRINT " 

4630 i PRINT "Y SPEICHERN Y" 

4650 x PRINT "Y L“ESCHENC3SPACE)Y" 

4670 x PRINT WO* 

4680 x 

4690 x SYS AM x PO-FN P0<0) 

4700 x 
4710 
4720 
4730 


+'+»'+"♦+++++*-+G" 


REM - KATALOG 


x IF (PO>173 AND P0<186) OR (PG>253 AND P0<2 
66) THEN BEGIN 
4740 x 

4750 x WINDOW 27,8,57,17,1 

4760 x print 

4770 : PRINT "Y KATALOGC21SPACE>Y" 

4780 x PRINT 1 ''' 

4790 x PRINT "YC29SPACE>Y" 

4800 x PRINT "YC29SPACE>Y" 

4B10 x PRINT "YC29SPACE>Y" 

Ttnr 

4B30 : PRINT "«Tt2SPACE)H0CH (2SPÖCE)TIT RUNTER ff 

<3SPACE>T OK TR*" 

4840 i PRINT '■TI - ra-TV-T*t , TTfIVVV>V < V4Wf3SPACE>T5TT 

TffR*" 

4850 i PRINT "*tVtV*VKW++++++++++■*• V*'**'+ -f****T1" 
4060 • PRINT WO* 


Listing 1. (Fortsetzung) 


<PGP> 

<JUA> 
<82V> 
<QT6> 
<HSN> 
<RFU> 
<8H3> 
<BID> 
<BHF> 
<RBU> 
<846> 
<9155 
<9H7> 
<811 > 
<5GU> 
<FIT> 
<FHV> 
<A19> 

< AHB > 
<B1D> 
<BHF> 
<M17> 
<BH3> 
<915> 

< 9H7 > 
<S60> 
<EHR> 
<915> 
<9H7> 

< AHM> 
<8H3> 
<B1D> 
<BHF> 
<A19> 
<AHB> 
<HB2> 

< DHN> 
<KOT> 
<8H3> 
<L00> 
<UG6> 
<SL4> 
<KRH> 
<6HJ> 

<00N> 

<KV7> 

<IBD> 

<D30> 

<902> 

<E1P> 

<UET> 

<B5M> 

< DHN > 

< 1 KE > 
<CHJ> 
<BID> 
<BHF> 
<E1P> 
<EHR> 
<829> 
<FHV> 
<FHN> 
<45V> 
<D1L> 
<JB7> 

< J7G> 
<HU1 > 
<KDJ> 
<40H> 
<4FJ > 
<E39> 
<K9J> 

< DUG > 
<93M> 
<802> 
<915> 
<UOM> 
<C1H> 
<CHJ> 
<D1L> 

<9LE> 

<E1P> 

<U9C> 

<AFO> 

<A69> 

<07E> 

<00D> 

<24D> 

<20D> 

<VU1> 

< VES> 

<AVC> 

<AVC> 

<602> 
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4870 



< 0G3> 

5840 

PRINT ,, TTC29SPACE}?" 

<24D> 

4800 

s 

REM - DIRECTORY IN KA* (> LADEN 

<70T> 

5850 

PRINT "TT DATEINAME: C 10SPACE >*"’ 

< SR9 > 

4890 

3 


<7GV> 

5860 

PRINT "Tf<29SPACE > TT" 

<2CD> 

4900 

l 

CHAR f29, 12, "(2SPACE1LESE DATEI NR. “ 

<KTT> 

5870 

PRINT "F ESC = ENDEI9SPACE>RET = OK F" 

<00L> 

4910 

3 

OPEN 1,8,15: OPEN 8,8,B,"#0'' 

<IPS> 

5880 

PRINT ' iVF+V *" Ff” + J «W * J f 1 1"F+“fVF V f»VF-f +' FtJ" 

<BRC> 

4920 

: 

PRINT#l, -UU ";B; O; 18; 0 

< 0KB > 

5890 

PRINT WO» 

<302> 

4930 

: 

QOSUB 11960 

< 4UK > 

5900 


<001 > 

4940 

i 


<001 > 

5910 

Nt=LEFTt(DN»,15) 

< JP7> 

4950 

X 

IF FF-0 THEN BEGIN 

<FLB> 

5920 

CHAR ,39,12,N» 

<4A7 > 

4960 

x 

NS-1 : 7-0 

< NM0> 

5930 


<1G7> 

4970 

X 


<1G7> 

5940 

REM - DATEINAME EINGEBEN 

<209> 

4900 


DO 

< 087 > 

5950 


< 2GB > 

4990 

X 

TR=18x SIONS 

<TI 1 > 

5960 

WINDOW 39,12,53,12,0 

<IOG> 

5000 

1 

PRINT#1, "Ul :";8 ;0;TR;SK 

<LAG> 

5970 

L-14: S-0 

CORO 

5010 

{ 

QET HB,A*,A*: NS-ASC(A41 

<BRE> 

5980 

POKE VD,10r POKE VD+ 1,PEEK ( VD+1 > AND 159 

<H1S> 

5020 

X 

DATA 2,34,66,90,130,162,194,226,-1 

< 059 > 

5990 


<4GJ > 

5030 

: 

RESTORE 5020 

<D3V> 

6000 

REM - EINGABESCHLEIFE 

<F1T> 

5040 

X 


< B1D > 

6010 


■C FHV > 

5050 

x 

DO 

<MOV> 

6020 

DO 

< 007 > 

5060 

X 

READ D 

<PI0> 

6030 

GFT KEY A*r A-^ASC(At) 

C0M8> 

5070 

i 


< AHB > 

604O 


<D1L> 

5080 

X 

IF D>0 THEN BEGIN 

<PBE> 

6050 

REM - DELETE 

<DHN> 

5090 

X 

PRINT#1,"B-Px " ,0,D 

<H44 > 

6060 


<C1H> 

5100 

X 

GET 48,AS 

<RMI> 

6O70 

IF A-20 THEN BEGIN 

<R9I > 

5110 

B 


< 8H3 > 

6080 

PRINT : N*=LEFT* ( Bl * .151 : PRINT N*: S- 


5120 

X 

IF ASC(A*><>0 BND BSC(AS) <> 128 THEN B 


0 

<5BD> 


EGIN 

< 650> 

6090 

BEND 

<38U> 

5130 

x 

GET #0,A*,A* 

<J0G> 

6100 


<E1P> 

5140 

x 

N*=" " 

< BK9 > 

6110 

REM - CURSOR RECHTS 

<EHR> 

5150 

X 

FOR J=0 TO 15 

< 8 NH> 

6120 


<F1T> 

5160 

B 

GET #8,A*x N*=N**A* 

<UUK> 

6130 

IF A=29 THEN BEGIN 

<OHK> 

5170 

1 

NEXT J 

< 005 > 

6140 

IF S<L THEN PRINT A»; 

<RSM> 

5180 

E 

IF A5C(MID*INS, 16,1))—191 THEN BEGIN 


6150 

S=S*1: IP S>L THEN S-L 

<81U> 




<FI4> 

6160 

BEND 

<B5U> 

5190 

1 

CHAR ,30,12,STR* (Z+l> 

<UKG> 

6170 


< DHN > 

5200 

: 

KAt ( Z )="": KA*(Z)=Ntr Z=Z+1 

<S3U> 

6180 

IF A=34 OR A=64 THEN A=0 

<V02> 

5210 

x 

BEND 

<38U> 

6190 


< AHB> 

5220 

: 

BEND 

vRBU> 

6200 

REM - CURSOR LINKS 

<D1L> 

5230 

X 


< AHB> 

6210 


<DHN> 

5240 

: 

BEND 

< BDU 

6220 

IF A=157 THEN BEGIN 

<N8A> 

5250 

t 


<9H7> 

6230 

PRINT A*;: S=S-ls IF S<0 THEN S=0 

<URD> 

5260 

: 

LOOP WH ILE DO-1 

< J66> 

6240 

BEND 

<B1U> 

5270 

X 


< 8H3 > 

6250 


<FHV> 

5280 

: 

LOOP WH ILE NS02S5 

• RA3> 

6260 

REM - ZEICHEN UEBERNEHMEN 

<E1P> 

5290 

X 


<FHV> 

6270 


<EHR> 

5300 

: 

CLOSE 8s CLOSE 1 

<63H> 

6280 

IF A>31 AND A<128 THEN BEGIN 

< FVT > 

5310 



< AHB> 

6290 

PRINT A»;: MIDt(N»,S+1,1)=A* 

< 10B> 

5320 

: 

REM - DIRECTORY AUFLISTEN 

< B1D > 

6300 

S=S+l: IF S>L THEN S=L 

<A1M> 

5330 



<BHF> 

6310 

BEND 

< J6U> 

5350 


CHAR , 29,12, "DATEINAME: " +LEFT* (BL*, 17) 


23 

-TOP WHILE A< >13 BND A<>27 

<D1L> 

<3N7> 

5360 

: 

IF 7=0 THEN CHAR ,29,12,'' KEINE DATEI VO 


6340 


<E1P> 


RHANDEN !! " 

< 0JH> 

6350 

POKE VD,10: POKE VD+1,PEEK(VD+1) OR 32 

<MC7> 

5370 

: 


<9H7> 

6360 

PRINT WOt 

<9G2> 

5380 

: 

Z=0S A=0 

<IIV> 

6370 


<FHV> 

5390 

: 

DO 

<20F> 

6380 

REM - EINGABEENDE 

<811 > 

5400 

: 

M=0 

<7GN> 

6390 


<BH3> 

5410 

: 

CHAR ,40,12,LEFT*(KA*(Z>,15) 

<FPP> 

6400 

BEND 

<B9U> 

5420 

s 


<C1H> 

6410 


<BHF> 

5430 

X 

SYS AM: PO-FN PO<0) 

<R02> 

6420 

REM - DISKETTENBEFEHL AUSFUEHREN 

<A19> 

5440 

3 


<F1T> 

643© 


<AHB> 

5450 

X 

REM - EINTRAG HOCH 

<FHV> 

6440 

IF B-13 AND N*< >LEFT*(BL*,15) THEN BEGIN 

<0A3> 

5460 

: 


<E1P> 

6450 


<9H7> 

5470 

X 

IF (PO>1229 AND P0<1239) OR <PO>1309 AN 


6460 

DN»=N»+CHR»(191) 

<07B> 


D 

PQ<1319) THEN BEGIN 

<T35> 

6470 

AD=8192+AS*4096 

<8GE> 

5480 

X 

M“1x Z“Z+1x IF Z>LZ THEN Z=LZ 

<NP3> 

6480 


<F1T> 

5490 

: 

BEND 

<3CU> 

6490 

REM - ZEICHENSATZ LADEN 

<FHV> 

5500 

X 


<C1H> 

6500 


<A19> 

5510 

B 

REM - EINTRAG RUNTER 

< CH J > 

6510 

IF M=1 THEN BEGIN 

<GF9> 

5520 

X 


<D1L> 

6520 

OPEN 8,B,8,DNf+",P,R" t GOSUB 11960: CLOS 


5530 

X 

IF (P0>1239 AND P0C1249) OR (P0M319 AN 



0 

<LT6> 


D 

rO<1329) THEN DEGIN 

<2CM> 

6530 

IF FF-0 THEN BLDAD ( DN» ), D0,UB,ON BO,P(A 


3540 

X 

M-l: 7-7-1: IF Z<0 THEN Z-0 

<MST> 

D): GOSUB 11960 

<LT3> 

5550 

X 

BEND 

<J2U> 

6540 

SYS TS,1,AS,O 

<C1L> 

5560 

3 


<F1T> 

6550 

BEND 

< JEU> 

5570 

X 

REM - EINTRAG OK 

<FHV> 

6560 


<915> 

5580 

1 


<811 > 

6570 

REM - ZEICHENBATZ SPEICHERN 

<9H7> 

5590 

X 

IF (PO>1251 AND PD<1237) OR (P0M331 AN 


6580 


<E1P> 


D 

P0C1337) THEN BEGIN 

<LIL> 

6590 

IF M-2 THEN BEGIN 

<HND> 

5600 

i 

DN*»KA*(Z> 

<3CI> 

6600 

SYS TS,1,AS,1 

<S5L> 

3610 

X 

BEND 

<30U> 

6610 

BSAYE (DN*) , D0.UG,QN B0,P(AD) T0PIAD+20 


5620 

X 


<E1P> 

40) 

<5DR> 

5630 

X 

LOOP WHILE M-l 

<Q09> 

6620 

GOSUB 11960 

< AQK> 

5640 

X 


<D1L> 

6630 

BEND 

< JEU> 

5650 

X 

BEND 

< 34U> 

6640 


< B1 D> 

5660 

X 

CLOSE 8x CLOSE 1 

<6R I > 

6650 

REM - ZEICHENSATZ LOESCHEN 

< BHF > 

5670 

X 


< CH J > 

6660 


<A19> 

5680 

X 

REM - KATALOG-ENDE 

<B1D> 

6670 

IF M-3 THEN BEGIN 

<BV9> 

5690 

X 


<BHF> 

6600 

SCRATCH (DN»),D0,U8 

<3LD> 

5700 

X 

BEND 

<R3U> 

6690 

GOSUB 11960 

< SQK > 

5710 

X 


<EHR> 

670O 

BEND 

<RFU> 

5720 

X 

REM - LADEN/SPEICHERN/LOESCHEN 

< F1T > 

6710 


<8H3> 

5730 

X 


<FHV> 

6720 

REM - ENDE L/S/L 

<915> 

5740 

1 

M=0 

<FHN> 

6730 


<9H7 > 

5750 

X 

IF (PO>333 AND PO<346> OR (PO>413 AND PO 4 


6740 

BEND 

<RBU> 


26) TUEN M=1 : A*="LADENC4SPACEJ " 

<M0T> 

6750 

SYS SS,0 

<BTM> 

5760 

X 

IF (PO>493 AND POC506) OR (P0>573 AND P0<5 


6760 

IF M-l AND A-13 BND FF-0 THEN GOSUB 11B50 

<2HM> 


86 ) THEN M=2x At="SPEICHERN" 

<8JN> 

6770 


<BHF> 

5770 

x 

IF (PO>653 AND PO-1666) OR (PO>733 AND P0<7 


6780 

REM - ENDE DATEIMENUE 

<C1H> 


46) THEN M-3: A*="LOSCHEN(2SPACE)" 

<LC9> 

6790 


<CHJ > 

5780 

s 


< A19> 

6900 BEND 

<PVE> 

5790 

X 

IF M>0 THEN BEGIN 

<HN9> 

6 B10 

s*r~ 

<7GV> 

5800 

E 

WINDOW 26,8,56,15,1 

<5U0> 

6820 

REM = ====================as=o==== 

<60P> 

5810 

X 

PRINT 

<9R0> 

6830 

REM WAHL 

<6GR> 

5820 

E 

PRINT ''F " | A*; LEFT* (BL* ,19)j"F" 

<H6I > 

6B40 

REM --~ 

<50L> 







<5BN> 


40 


SONDERHEFT 22 














G128 


GRAFIK 


6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6900 

6990 

7000 

7010 

7020 

7030 

704O 

7O50 

7060 

7O70 

7080 

7090 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7320 

7530 

7540 

7550 

7560 

7570 

7580 

7390 

760O 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7700 

7790 

7800 

7810 

7820 


F PO>20 AND PCX25 THEN BEBIN 
M=0 

CHAR ,20,0,“ WAHL ",1 


WINDOW 20,1,41,7,1 
PRINT "7{20SPACE>7" 

PRINT "7 ZEICHEN WFHLEN<5SPACE)7" 

PRINT "7 ZEICHENSATZ NR. <2SPACE>0 TT" 

PRINT "TT-TT 

PRINT "TT ZEICHENSATZ NR.<2SPACE>1 7" 
PRINT "TTTTTTTVrn^V-TrfTTTWB" 

PRINT WO* 

SYS AM i PO-FN PO(0) 


REM - ZEICHEN WAEHLEN 

IF (PO>180 AND PO<201> OR (PO>260 AND P0<2 
81) THEN BEGIN 
Z-AZ: A2=143 
WINDOW 22,1,39,11,1 
PRINT "7<16SPACE>7" 

PRINT "TT ZEICHEN H0CH<3SPACE>7" 

PRINT "7-7" 

PRINT "T ZEICHEN LINKS<2SPACE>7" 

PRINT "7-7" 

PRINT "7 ZEICHEN RECHTS 7" 

PRINT "7-7” 

PRINT "7 ZEICHEN RUNTER 7" 

PRINT "7 OK<13SPACE>7" 

PRINT 
PRINT WO* 


DO 

X=0 

SYS AM: PO=FN PO<0> 

IF Z=AZ THEN Al-143: ELSE Al=128 

REM - ZEICHEN HOCH 

IF (P0>1B2 AND PO<200) OR (P0>262 AND PO 
280) THEN BEGIN 

AT=A1: GOSUB 12210 
X=1: Z=Z-32: IF Z<© THEN Z=Z+256 
AT=A2x GOSUB 12210 
BEND 


REM - ZEICHEN LINKS 

IF (P0>342 AND P0<360) OR <P0>422 AND PO 
440) THEN BEGIN 

AT=A1: GOSUB 12210 
X-l: Z=Z-1: IF Z<0 THEN Z=255 
AT=A2: GOSUB 12210 
BEND 

REM - ZEICHEN RECHTS 

IF (PO>502 AND POC520) OR (P0>582 AND PO 
600) THEN BEGIN 

AT=A1: GOSUB 12210 
X=li Z-Z+l: IF Z>255 THEN Z=0 
AT-A2: GOSUB 12210 
BEND 

REM - ZEICHEN RUNTER 

IF (PO>662 AND PO<680> OR (P0>742 AND PO 
760) THEN BEGIN 

AT“A1: GOSUB 12210 
X-li Z-Z+32: IF Z>255 THEN Z-Z-256 
AT-A2: GOSUB 12210 
BEND 

REM - ZEICHEN OK 

IF (PO>822 AND POC840) OR (PO>902 AND PO 
920) THEN M»lx X*0 

LOOP WHILE X-l 
PO-0 
BEND 

REM - ZEICHENSATZ AENDERN 

IF (PO>340 AND P0<361) OR (PO>420 AND P0<4 
1) THEN M»2x Z«=0 

IF (PO>500 AND PQ<521) OR (PO>580 AND P0<6 
01) THEN M-2x Z-l 

SYS SS,0 

REM - NEUES ZEICHEN DARSTELLEN 

IF M=1 AND ZOAZ THEN BEGIN 
H=Zi Z-AZ: AT=128: GOSUB 12210 
Z»H: AZ=Z: AT=143: GOSUB 1221O 
GOSUB 11830 

BEND 

REM - NEUER Z-SATZ DARSTELLEN 


<EAC> 
<4GJ > 
<NUN> 
<UVR> 
<60P> 

< J33> 
<B8F> 
<9IR> 
<ETL> 

<L6U> 
<PN7> 
<K20> 
<NEJ > 
<402> 
<D1L> 
<Q06> 
<C1H> 
<CHJ > 
<F1T> 

<4KV> 
<1VI> 
<MS0> 
<077> 
<57A> 
<I40> 
<DB2> 
<G40> 
<L86> 
<M40> 
<9FA> 
<K40> 
<EEA> 
<QSR> 
<E02> 
<FIT> 
<60V> 
<L2T> 
<P0A> 
<9N4> 
<DHN> 
<C1H> 
<CHJ> 

<GEU> 
<ARP> 
<3KC> 
<CRD> 
<B1U>C 
<FHV> 
<C1H> 
<CHJ > 

<301 > 
<CR1 > 

< 4CS > 
<8RT > 
<BDU> 
<9H7> 
<811> 
<8H3> 

<G2V> 

< ARP> 
<LJH> 

< 8RT > 
<B5U> 
<DHN> 
<811 > 
<8H3> 

<5CQ> 

< 8RH > 
<LFK> 
<8RT> 
<B9U> 
<BHF> 
<C1H> 
<CHJ > 

<HF4> 

< BHF > 
< 012 > 
<M2B> 
<BDU> 
<9H7 > 
<811 > 
<BH3> 

< 13 J > 

<GFJ > 
<A19> 
<BTM> 
<B1D> 

< BHF > 
<811 > 
<704 > 

< ONR > 
<603 > 

<J2J> 

< J2U> 
<50L> 
<5GN> 
<40H> 


7830 : 

7840 : 

7850 : 

786© : 

7870 : 

7880 : 

7890 x 

7900 : REM - ENDE WAHLMENUE 
7910 : 

7920 BEND 
7930 » 


IF M=2 AND ASOZ THEN BEGIN 
SYS TS,1,AS,1 
SYS TS,1,Z,O 
SYS VP,234,3,48+Z 
AS=Z: GOSUB 11830 
BEND 


REM ------ 

REM KOPIE 

REM ------ 


7940 
7950 
7960 
7970 

7980 IF PO>26 AND P0<32 THEN BEGIN 
7990 l 

M-0 

CHAR ,26,0," KOPIE ",1 


8OO0 
0010 
8020 
8030 
8040 
8050 

BO60 : WINDOW 26,1,43,13,1 


Z-KZx AT-159: 
A2-AT 


GOSUB 12210 


8070 
8080 : 
8090 : 
8100 : 
8110 : 
8120 : 
8130 : 
8140 : 
8150 : 
8160 : 
8170 : 
8180 : 
8190 : 
8200 « 
8210 : 
8220 : 
8230 : 
8240 : 
8250 : 
B260 : 
8270 : 
8280 : 
B290 : 


PRINT "7U6SPACE>7" 

PRINT "7 ZEICHEN HOCH<3SPACE>7" 

PRINT "7-7" 

PRINT "7 ZEICHEN LINKSC2SPACE)7" 

PRINT "7-7" 

PRINT "7 ZEICHEN RECHTS 7" 

PRINT "7-7" 

PRINT "7 ZEICHEN RUNTER 7" 

PRINT "7 KOPIERENC7SPACET7" 
PRINT 
PRINT 
PRINT 
PRINT WO* 

DO 
X=0 

SYS AM: PO=FN PO(0) 

IF Z=AZ THEN Ai=143: 


REM - ZEICHEN HOCH 


ELSE A1=128 


331 

8320 

8330 

8340 

8350 

8360 

8370 

8380 

8390 

8400 

8410 

B420 

8430 

8440 

8450 


8460 : 
8470 : 
8480 i 
8490 : 
8500 i 
8510 « 
8520 r 
8530 : 


: IF (P0>186 AND PO<204) OR (P0>266 AND P0< 

284) THEN BEGIN 

AT=A1: GOSUB 12210 
X-l: Z=Z-32: IF Z<0 THEN Z=Z+256 
: AT=A2: GOSUB 12210 

: BEND 
: 

: REM - ZEICHEN LINKS 

: IF (PO>346 AND P0<364) OR (PO>426 AND P0< 
444) THEN BEGIN 
x AT=A1: GOSUB 12210 
: X-l: Z—Z-l: IF Z<© THEN Z=255 

x AT=A2x GOSUB 12210 
: BEND 
x 

x REM - ZEICHEN RECHTS 

: IF (PO>506 AND P0<524) OR (PO>586 AND P0< 

604) THEN BEGIN 
x AT-Alx GOSUB 12210 
x X-l: Z-Z+lx IF Z>255 THEN 
x AT=A2x GOSUB 12210 
: BEND 


Z=0 


REM - ZEICHEN RUNTER 


8540 x 
8550 x 
8560 x 
8570 : 
8580 x 
8590 : 

8600 i 
8610 i 


s IF (PO>666 AND P0<684) OR <P0>746 AND P0< 
764) THEN BEGIN 
x AT-Alx GOSUB 12210 
x X-li Z-Z+32: IF Z>255 THEN Z-Z-256 
x AT=A2x GOSUB 12210 
x BEND 


REM - MUSTER KOPIEREN 


I IF (PO>826 AND P0<844) OR (PO>906 AND P0< 
924) THEN BEGIN 

x X-lx KZ-Zx SYS MC,1,AZ,0x SYS MC,1,KZ,1 
x BEND 


REM - KOPIEREN OK 


8620 
8630 
8640 
8650 
8660 

8670 : IF (PO>986 AND PO<1004) 
O<1084) THEN X-0 
8680 t 

8690 x LOOP WHILE X=1 
8700 : SYS SS.O 
8710 x 

8720 : REM - ENDE KQPIERMENUE 
8730 x 
8740 BEND 
8750 x 
8760 x REM 

8770 s REM ZEICHEN 
8780 : REM 
8790 x 

Listing 1. (Fortsetzung) 


OR (POM066 AND P 


<BQ5> 

<SPM> 

<8KG> 

(BNM> 

< I2N> 
<BTU> 

< 1G7> 
<40H> 
<4GJ > 
<9TE> 
<5GN> 
<60P> 
<6GR> 
<70T> 
<7GV> 
<CIA> 
<0G3> 
<NEN> 

< MOV > 

< I29> 
<SUN> 
<MRH> 
<HI7> 
<VHC> 
<B37> 
<03A> 
<50O> 
<GF2> 
<F00> 
<BC6> 
<D0O> 
<KBA> 
<B0O> 
<463> 
<900> 
<TAA> 
<70R> 
<NG2> 
<HI7> 
<0N7> 
<1SD> 
<4JS> 
<TB7> 

< I29> 

< I IB> 
<L2L> 

<93J> 

<H8N> 

<N8F> 

< J8J > 
<2SU> 
<I29> 

< I IB> 
<J2D> 

<QLV> 

<L87> 

<OSS> 

<LBB> 

<2GU> 

<M2P> 

<MIR> 

<L2L> 

<9FI > 
<LB7> 
<B3H> 
<H8R> 
<20U> 
<M2P> 
<MIR> 
<N2T> 

<S1N> 

<L87> 

<6NR> 

<N83> 

<2KU> 

< I29> 

< I IB> 
<L2L> 

<K7H> 

<L1L> 

< IMU> 
<N2T> 
<NIV> 
<M2P> 

<EQA> 

<H25> 

< 1L4> 
<4LM> 
<KIJ> 
<L2L> 
<LIN> 
<HEE> 
<MIR> 
<N2T> 
<NIV> 
<G2l> 
<GI3> 
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C128 


8800 

8810 

8820 

B830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

B970 

8980 

8990 

9000 

9010 

902O 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

94U0 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9500 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9600 

9690 

97O0 

9710 

9720 

9730 

9740 

9750 

9760 


F PO>33 AND PO<41 THEN BEGIN 


M=0 

CHAR ,33,0, 


ZEICHEN ",1 


WINDOW 33,1,52,21,1 
PRINT "TraB5PACE}Tf M 
PRINT ‘"R* LOSCHEN<10SPACE>TT 
PRINT "kV 4-V+V4-V+V+»'+Vf+v+V' 

PR 1 NT 11 f IN VERS U l SP ACE )1T M 

PRINT "TT SENKR. SP I EGELN <2SPACE>TT" 

PRINT "T-7" 

PRINT "T WAAGER. SPIEGELN 7" 

PRINT "W+’fVff v*■**■'vv *-7" 

PRINT "7 HOCH ROTIEREN<4SPACE>7" 

PRINT "7-7" 

PRINT "7 LINKS ROTIEREN<3SPACE>7" 

PRINT "7—-7" 

PRINT "7 RECHTS ROTIEREN<2SPACE>7" 

PRINT "7-7" 

PRINT "7 RUNTER R0TIEREN(2SPACE>7" 

PRINT "7 LINKS DREHEN<5SPACE)7" 

PRINT "7-7” 

PRINT "7 RECHTS DREHEN<4SPACE>7" 
PRINT ' 1 VTV+V++V+Ü 1 ' 

PRINT WO* 

SYS AM: PO=FN PG<0> 

REM - LINKS DREHEN 


: IF (PO>1473 AND P0<1493) OR <P0>1553 AND P 
0< 1573) THEN BEGIN 
: FOR 1=0 TO 3 
: FOR J=I TO 6-1 

: A=ZF(I,J) 

: ZF(I,J)=ZF(J,7-I) 

: ZF(J,7—1)=ZF(7-1,7-J) 

: ZF(7-1,7-J)=ZF(7-J,I) 

: ZF(7-J,I)=A 

x NEXT J 
; NEXT I 
t M=1 
: BEND 


: REM - RECHTS DREHEN 

: IF (PO>1633 AND P0<1653) OR (P0M713 AND P 
0C1733) THEN BEGIN 
: FOR 1=0 TO 3 
s FOR J=I TO 6-1 
: A=ZF(I,J) 

: ZF(I,J)=ZF(7—J,I) 

x ZF(7-J,I)=ZF(7—1,7—J) 

: ZF(7-1,7-J)=ZF(J,7-1) 

x ZF(J,7—1)=A 

: NEXT J 

: NEXT I 
s M=1 
s BEND 

x REM - LINKS ROTIEREN 


IF (PO>993 AND PO<1013) OR (PO>1073 AND PO 
1093) THEN BEGIN 
FOR 1=0 TO 7 
A=ZF(1,0) 

FOR J=1 TO 7 
ZF(I,J—1)=ZF(I,J) 

NEXT J 

ZF(I,7)=A 
NEXT I 
M° 1 
BEND 


REM - RECHTS ROTIEREN 


IF (POM 153 AND POM 173) OR (P0M233 AND P 
0C1253) THEN BEGIN 
FOR 1=0 TO 7 
A-ZF(1,7) 

FOR J=6 TO 0 STEP -1 
ZF(I,J+1)=ZF(I,J) 

NEXT J 
ZF <1,0)=A 
NEXT I 
M=1 
BEND 

REM - HOCH ROTIEREN 

IF (PO>833 AND P0<853) OR (P0>913 AND P0<9 
33) THEN BEGIN 
FOR J-0 TO 7 
A=ZF(0, J) 

FOR 1=1 TO 7 
ZF(I—1,J)=ZF(I,J) 

NEXT I 
ZF(7,J)=A 

NEXT J 


9770 : M=1 
9700 : BEND 
9790 : 

9800 : REM - RUNTER ROTIEREN 


<3ID> 
<RJF> 
<V7N> 
<R6C> 
<P35> 
<K4C> 
<4PC> 
<311 > 
<P67> 
<H1R> 
<H27> 
<DET> 
<NBT> 
<P99> 
<127> 

< 05T > 
<7BT> 
<MNS> 
<VFT> 
<DDE> 
<73S> 
<TTS> 

< 1 A6> 
<K9T> 
<N3S> 
<G8F> 
<M2R> 
<K02> 
<L2L> 
<236> 

<G21> 

<GI3> 

<H25> 

<SM4> 
<QE4> 
<OQ3> 
<EK0> 
<CDO> 
<BT1 > 
<T70> 
<GU1 > 
<RQ5> 
<BG4> 
<RB7> 

< ATU> 
<HI7> 
<G21> 
<GI3> 

1 <9GE>' 
<HE4> 
<SQ3> 
<DK0> 
<7CI> 
<RK3> 
<7KM> 

<4RP> 

<BG5> 

<RU4> 

<VFN> 

<IIU> 

<L2L> 

<LIN> 

<K2H> 

<280> 

<GU6> 

<P70> 

<WI> 

<B49> 

< BG3> 

< KV 1 > 

< B04 > 
<BD7> 

< ALU> 
<LIN> 
<M2P> 
<MIR> 

<04M> 

<HU6> 

<NVT> 

<0NV> 

<B45> 

<RA5> 

<SVT> 

<R24> 

<7CN> 

<2KU> 

<K2H> 

<KIJ> 

< J2D> 

<UG1 > 
<UVM> 
<SR4> 
<HU2> 
<EO0> 
<B84> 
<OFL> 

<BÖ5> 

<3C7> 

<QRU> 

< I IB> 
<P35> 


9810 x 







<PJ7> 

9820 x 


IF (P0M313 AND PIK1333) 

OR 

(PO>1393 AND P 


Q<1413) THEN BEGIN 





<GFM> 

9830 : 


FOR J=0 TO 7 





<3VM> 

9040 : 


A=ZF(7,J) 





<0RO> 

9850 : 


FOR 1=6 TO 0 STEP -1 





<679> 

9860 : 


ZF(1+1,J)=ZF(I,J) 





<P3C> 

9870 : 


NEXT I 





<0I4> 

9800 : 


ZF(ö,J)=A 





<LC5> 

9890 x 


NEXT J 





<025> 

9900 s 


M=1 





<F1N> 

9910 x 

BEND 





<IEU> 

9920 : 







<P35> 

9930 : 

REH - SENKRECHT SPIEGELN 





<PJ7> 

9940 







<Q39> 

9950 x 


IF (PO>513 AND P0C533) OR (PO>593 AND P0<6 


13) THEN BEGIN 





<708 > 

9960 x 


FOR 1=0 TO 7 





<8U6> 

9970 


FOR J-0 TO 3 





<5FK> 

9980 i 


A-ZF(I,J) 





<GK0> 

9990 


ZF(I,J)-ZF(I,7-J) 





<UNJ > 

1 0000 


ZF(I,7-J)=A 





< D9F > 

10010 


NEXT J 





< 1 A5> 

10020 


NEXT I 





<H04> 

10030 


M-l 





<TV7> 

1004O 


BEND 





<7LU> 

10050 







<5BN> 

10060 


REM - WAAGERECHT SPIEGELN 




<40H> 

10070 

1O080 


IF (P0>673 AND PCK693) 

OR 

(PO>753 

AND 

P0< 

<40J> 


773) THEN BEGIN 





<VJ2> 

10090 


FOR 1=0 TO 3 





<0Q2> 

10100 


FOR J-0 TO 7 





<VBG> 

10110 


A=ZF(X,J) 





<406> 

10120 


ZF(I,J)=ZF(7-1,J) 





<D1T> 

1013O 


ZF <7-1,J)=A 





<TB7> 

1O140 


NEXT J 





<H45> 

10150 


NEXT I 





< 1A4> 

10160 


M=1 





< 1SN> 

1O170 


BEND 





<FKU> 

1018O 







<209> 

10190 


REM - ZEICHEN UMKEHREN 





<2BB> 

10200 

10210 


IF (PO>353 AND P0<373) 

OR 

(PO>433 

AND 

P0< 

<50L> 


453) THEN BEGIN 





<OFF> 

10220 


FOR 1=0 TO 7 





<NA0> 

10230 


FOR J-0 TO 7 





<OBG> 

10240 


ZF(I,J)=X0R(ZF(I,J), 

1 ) 




<SS9> 

1025© 


NEXT J 





< 1A5> 






<H04> 

<TV7> 

10280 


BEND 





<7TU> 

1029O 







< 187> 

10300 


REM - ZEICHEN LOESCHEN 





<40H> 

10310 

10320 


IF (PO>193 AND P0<213) 

OR 

(PO>273 

AND 

P0< 

<48J> 


293) THEN BEGIN 





<8HE> 

10330 


FOR I=0 TO 7 





<KA0> 

1034O 


FOR J=0 TO 7 





<VBG> 

10350 


ZF(I,J)=0 





<81B> 

10360 


NEXT J 





<H05> 

10370 


NEXT I 





< 164 > 

10380 


M=1 





<9PN> 

10390 


BEND 





<VUU> 

10400 







<30D> 

10410 


SYS SS,0 





<F1N> 

10420 







<209> 

10430 


REM - AENDERUNGEN AUSFUEHREN 



<2BB> 

10440 







< 105> 

10450 


IF M=1 THEN BEGIN 





<2H2> 

10460 


FOR 1-0 TO 7 





<VA«> 

IO470 


D=0 





<9DL> 

10480 


FOR J-0 TO 7 





<TBG> 

1O490 


CHAR ,54+<J*2),74(1*2), 

'• " . ZF CI 

,J) 


<H0V> 

10500 


IF ZF(I,J)—1 THEN D=D+2t(7—J) 



<TFA> 

10510 


NEXT J 





< 1U5> 

10520 


PQKE DEC("0C80")*I,D 





<0V5> 

10530 


NEXT I 





< 1M4> 

10540 


SYS MC,1,A2,1 





<60L> 

10550 


BEND 





<vuu> 

10560 







< 105> 

10570 


REM - ENDE ZEICHENMENUE 





< 187> 

105B0 







<60P> 

1O590 

BEND 





<JUU> 

10600 

10610 

10620 

1 (VifO 







< 105> 


REM ALT 





< 187> 
<0O1> 

s IUI, x 

1 TOJ YJ 

10640 







<3QD> 

10650 


F P0>42 AND PCK46 THEN BEGIN 



<DM3> 

10660 







<209> 

10670 


CHAR ,42.0," ALT ",1 





<FGL> 

1O680 







<50L> 

10690 


WINDOW 42,1,58,5,1 





<017> 

10700 


PRINT "TT< 15SPACE>Tf" 





<7V0> 

IO710 
t A7'lß 


PRINT "Tf ALTES ZEICHEN 

TT" 




<0OO> 

1 

10730 


rnlNI K++++++ + »+»++ 

PRINT "T ALTER Z.-SATZ 

TT” 




<781 > 
<PCG> 

10740 


PRINT " 





<507 > 

10750 


PRINT WO* 





<401 > 

10760 







<30D> 

10770 


SYS AM: PO=FN PO(0) 





< KPU > 

10780 


SYS SS,0 





<CPN> 

10790 







<4BJ > 

10800 


REM - ALTES ZEICHEN 





<FPT> 

1 OB10 







<F9V> 


aas? 


€-ioi- online. 
04 bi «oiilin#. 


42 


SONDERHEFT 22 


















C128 


GRAFIK 


10620 


10030 
1084© 
10650 
10060 
10870 
10680 
10890 
1O900 
10910 
10920 
10930 


x IF (PO>202 AND P0<219> OR (PO>282 AND PO< 
299) THEN BEGIN 

D=8192+<AZ*8)+(AS*4096> 

FOR 1-0 TO 7 

POKE DEC("0C80") +1, PEEK(D+I) 

NEXT I 

SYS MC,1,AZ,1 
GOSUB 11830 
BEND 


10940 
10950 
10960 
1097O 
10980 
1099O 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11090 
11090 
11100 
11110 
1112© 
11130 
1114© 
11150 
11160 
11170 
11160 
11190 
112O0 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 


IF (P0>362 AND P0<379> OR (P0>442 AND P0< 
59) THEN BEGIN 
SYS TS,1,AS,0 
GOSUB 11830 
BEND 


REM - ENDE ALTMENUE 
END 


F P0>47 AND P0<53 THEN BEGIN 
GOSUB 12300 
END 


11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 


" 


11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11 4BO 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
1 1580 
11590 
1160O 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 

11790 


REM - ALTER ZEICHENSATZ 


REM — 


REM DRUCK 
REM -■■■■■ 


REM 


REM ENDE 
REM ===== 


F PD>54 AND P0C59 THEN BEGIN 
CHAR ,54,0," ENDE ",1 


WINDOW 24,7,54,18,1 
PRINT 


PRINT "7 ENDE C24SPACE>7" 
PRINT 

PRINT "7C29SPACE>T" 

PRINT "7 ACHTUNGC21SPACEJ7" 
PRINT "T-€21 SPACE)7" 


PRINT "7C22SPACE>VT+V+VW 7" 
PRINT 11 7<22SPACE> 7 OK 7 7" 

PRINT 


PRINT WO* 

SYS AM: PO=FN PO(0) 

REM - PROGRAMM BEENDEN 


IF (P0>1327 AND P0<1333) OR (P0>1407 AND 
0<1413) THEN BEGIN 

SCNCLR : PRINT CHR*(27)+"L" 

PRINT "BIS BALD !" 

END 
BEND 

SYS SS,0 


REM - ENDE ENDEMENUE 

FND 

REM - EDITMODUS WIEDER ANZEIGEN 
HAR ,7,0," EDIT ",1 
REM - ENDE WENN P0<80 
END 


REM 

REM SCHLEIFEN-ENDE 
REM ===»==———= 


OOP WHILE X—0 
REM - PRG. ENDE WENN XOO 
ND 


REM mmmmmmmmm-w 
REM UNTERPROGRAMME 


REM - SCREENCODE IN ASCII 


11800 

11810 


SYS SA,C 

RREG A: C$=CHRf > 

IF C n 34 OR C=162 THEN C*=CHR*(34)+CHR*(20 )h 
CHR*(34) 

IF 0127 THEN C*=CHR* (18) +C*+CHR* (146) 
RETURN 


<7P4> 

<P9M> 

<5A0> 

<JNC> 

<G84> 

<EQM> 

<42V> 

<F8U> 

<EPP> 

<E9R> 

<FPT> 


PRINT "7 ALLE NOCH NICHT GESICHERTEN 7" 
PRINT "7 DATEN WERDEN GELÖSCHT 'C5SPACE> 


<7D7> 

< 084 > 
<Q2V> 
<75U> 
<D9N> 

< AP9> 

< A9B> 
<FTE> 
<58N> 
<40H> 

< 48 J > 
<70T> 
<7BV> 
<FU6> 
<68R> 
<AE6> 

< 187> 
<78E> 
<48J > 
<50L> 
<5BN> 
<60P> 
<68R> 
<DM7> 
<7BV> 
<PJJ> 
<083> 
<GGO> 
<OF0> 
<C09> 
<BNE> 

< JGD> 
<4A9> 
<4AD> 
<CAT> 


< 42D 

<2TL> 

<K6P> 

<CSD> 

<RFC> 

< 101 > 

<40H> 

< JP2> 
<50L> 
<58N> 
<209> 


jOhl; 


<M7M> 

<90B> 

<OJD> 

<VNE> 

<vuu> 

<F9N> 

<38F> 

<209> 

<28B> 

<FTE> 

<58N> 

<001> 

<083> 

<C0T> 

< 187> 
<209> 
<28B> 
<VRE> 

<30F> 

<40H> 

<4BJ> 

< 3QD > 
<38F> 

< 209 > 
<GL0> 
<105> 

< 187 > 
<0O1> 

< 5KU > 
<70T> 
<78V> 
<209> 
<28B> 
<30D> 

< 38F > 
<0O1> 
<083> 

< 105> 
<89B> 
<DTU> 


<CKU> 

<VP4> 

<167> 


11820 

11830 

11840 

11850 
11860 
11870 
11880 
11890 
11900 


: REM - BITMUSTER IN ZFO U EDITOR 


11910 

11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

120O0 

12010 

12020 

1203O 

1204O 

12050 

12060 

12070 

1208O 

12O90 

1210O 

12110 

12120 

12130 

12140 

12150 

12160 


SYS MC,1,AZ,0 
FOR 1-0 TO 7 
t D=PEEK(DEC("0C80") +1) 
x FOR J=0 TO 7 
: P-2T(7—J) 

: IF (D AND P)=P THEN ZF(I,J>=1 : ELS 

<I,J>-0 

: CHAR ,54+(J*2),7+(I#2>," ",ZF(I,J> 

i NEXT J 
NEXT I 
RETURN 


i REM - FLOPPY-FEHLER 


FF-O 

IF DSO© THEN BEGIN 
: PRINT CHR*(7) 

: FF-1 x FS-DS i FF*«LEFT*(DS*,24> 

« WINDOW 51,2,70,10,1 

, print ''-fmTmTmwvmTmTm-u 1 ' 

i PRINT "7 FLOPPY-FEHLER:€11SPACE>7" 

x PRINT "7€26SPACE>7" 

x PRINT "7€26SPACE>7" 

x PRINT "7€26SPACE)7" 

: print "7 7 " 

x PRINT "7 7 BEHEBEN BESTÄTIGEN 7 7" 

: PRINT "7 7" 

x PRINT 


12170 

12180 

12190 

12200 

12210 

12220 

12230 


x PRINT WO* 

: CHAR ,53,5,FF*,1 
x DO 

: SYS AM: PO=FN PO(O) 

: IF (PO>693 AND PO<717) OR (P0>773 AND PO 

<797) THEN EX IT 

: LOOP 

BEND 

RETURN 


: REM - ATTR.POKE IM ZEICHENSATZ 


12240 

12250 

12260 


A=INT(Z/32): AD=((14+A)*80+2048)+11+(Z-(A*3 
2 ) ) 

AH=INT(AD/256): AL=AD-(AH#256) 

SYS VP,AL,AH,AT 
RETURN 


12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 


REM - DRUCKROUTINE 
CHAR ,47,0," DRUCK ",1 


: M=0 

: WINDOW 47,1,71,5,1 
: PRINT "7<23SPACE>7" 

: PRINT " 7 ALTES + NEUES ZEICHEN 7 " 

: PRINT "7 HARDCOPY ZEICHENSATZ€2SPACE>7" 
: PRINT 


PRINT WO* 


SYS AM: PO=FN PO(0> 


12440 


: IF 
312) 
s IF 
472) 


12450 

12460 

1247© 

12480 

12490 

12500 

12510 

12520 


(PO>207 AND P0<232) OR (P0>287 AND P0< 
THEN M=lx A*="ALT / NEU" 

(PO>367 AND P0<392) OR (P0>447 AND P0< 
THEN M=2: A*="HARDCOPY " 


x IF M< >0 THEN BEGIN 


WINDOW 26,6,53,14,1 
PRINT ’'TTTTTTTTTTTT’+T'F FV FF+Vi’iTOV" 
PRINT "7 "IA*j"C16SPACE>7" 

PRINT " yre 7 FWy+VF+W^ 

PRINT "7 DRUCKER EINGESCHALTET€4SPACE>7 


12530 

12540 

12550 

12560 

12370 

12580 

12590 

1260O 

12610 

12620 


PRINT "7 UND PAPIER EINGESPANNT ? 7" 
PRINT "7€19SPACE)7nVFff 7" 
"7€19SPACE>7 OK 7 7" 
"7C19SPACE>Tro^B 7" 

PRINT " ITOwmvmvmTmvmT? 11 
PRINT WO* 


PRINT 

PRINT 


SYS AM: PO=FN PO(0> 


IF (P0>1006 AND P0<1012) OR <PO>1086 AND 
P0<1092) THEN BEGIN 


12630 

12640 

12650 

12660 

12670 

12680 

12690 

12700 


REM - GEGENUEBERSTELLUNG ZEICHEN 


12710 

12720 

12730 

12740 

12750 


x IF M=1 THEN BEGIN 
x OPEN 4,4: OPEN 5,4,5 

x 0=0: SP-0 

s DO 

x IF 0=0 THEN PRINTW4,"NORMALE ZEICHEN" 

: ELSE PRINT#4,"REVERSE ZEICHEN" 
x PRINT#4 

x FOR 1=0 TO 127 : A*="" 

SYS SA,Ix RREG J 
: SYS MC,1,1+0,0 


Listing 1. (Fortsetzung) 




<CPH> 
<C9J > 
<FPT> 
<AD4> 
<NA6> 

<0k:s> 

< 1BQ> 
<5VS> 


<EAJ> 

<727> 

<G05> 

<9C4> 

<H87> 

<E9R> 

<FPT> 

<F9V> 

<GAH> 

<T97> 

<SPI> 

< JB7> 
<5IQ> 
<330 
<5KD> 
<HVV> 
<TUF> 
<PUV> 
<H79> 
<N30> 

< I3H> 
<KJ2> 
<381 > 
<P9S> 
<RV7> 

< NP I > 


<MAE> 

<65P> 
<NUE> 
<0A7> 
<105> 
< 1B7> 
<0O1> 


<HV1> 

< PK.V > 
<MAV> 
<G07 > 
<28B> 
<50L> 
<58N> 
<QVE> 
<083> 

< 1SN> 

< JBF> 
<Q0V> 
<UAG> 
<5B0> 
<UMS> 
<3RP> 
<201 > 
<70T> 
<GPE> 
<60P> 


<NB7> 


<SPA> 

<5SN> 

<0D3> 

<40J> 

<RLI > 
<B2C> 
<HDN> 
<QF1> 


< 10B> 
<G2V> 
<D3N> 
<UKB> 
<ABF> 
<CK2> 
<481 > 
<28B> 

< I94> 
<58N> 


<190 
<48J > 
<70T> 
<78V> 
<3D5> 
<DKE> 
<OBR> 
<TVV> 


<DDE> 

<HA0> 

<J04> 

<ENH> 

<TBE> 

<68R> 
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GRAFIK 


C128 


12760 


REM - BITMUSTER UMRECHNEN 

<70T> 

13100 



<0O1> 

12770 

x 


<78V> 

13110 

l 

REM - BITMUSTER UMRECHNEN 

< 083 > 

12780 

i 

FOR 11=0 TO 7 

<SJC> 

13120 

l 


< 105> 

12790 

: 

fi=0 

<BTV> 

13130 

S 

FOR 11=0 TO 7 

<3JC> 

12800 

3 

FÜR 12=0 TO 7 

<5MS> 

13140 

8 

A = 0 

<WF> 

12810 

: 

D-PEEK(DEC("OCBO">*12> i P-2t(7-Il> 

<E91 > 

13150 

8 

FOR 12=0 TO 7 

<3IS> 

12820 

i 

IF (D AND P)=P THEN A=A+2T(7-I2> 

<38L > 

13160 

3 

D=PEEK(DEC("0C80"> +12)s P=2f(7-11) 

<VBM> 

12830 

s 

NEXT 12 

< 78G > 

13170 

t 

IF (D AND P)=P THEN A=A+2T(7-I2> 

<F0K> 

12840 

s 

A*=A*+CHR*<A> 

<TN3 > 

1310O 

I 

NEXT 12 

<4SG> 

12850 

i 

NEXT 11 

<7SH> 

13190 

X 

A*=A*+CHR*(A> 

<C3S> 

12860 

3 


< BP 1 > 

132O0 

I 

NEXT 11 

<58H> 

12870 

t 

REM - ZEICHEN AUSGEBEN 

<893> 

13210 

S 


< 38F > 

128BO 

3 


CFPT> 

13220 


REM - ZEICHEN AUSGEBEN 

<209> 

12890 

I 

PRINT #5,A4 

<5CF> 

13230 

| 


< 20B > 

1790O 

3 

PRINT»4,SPC(SP)lCHR*(J)l" - ")CHR*(2 


13240 

1 

PRINT»5,A* 

<V8F> 


54 >; CHR*(141); 

<RBJ> 

13250 

t 

PRINTM4,SPC < SP )| CHR$ ( 254 ); CHR$(141) { 

<R1S> 

12910 

i 

SP-SP+IO: IF SP-80 THEN SP-O: PRINT« 


13260 

X 

SP=SP+lx IF SP“32 THEN SP=0: PRINT#« 

<84T> 


4 


<SPD> 

13270 


NEXT I 

<1Q4> 

12920 

1 

NEXT I 

<GK4> 

13280 

* 

OPEN 6,4,6! PRINT46,CHR‘T (31 ) : CLOSE 6 

<NOL> 

12930 

3 

0=0+128l PR1NTÄ4 

< TAU> 

13290 

8 

CLOSE Sl CLOSE 4 

<VQL> 

12940 

8 

LOOP WHILE 0C256 

<LUT> 

13300 

t 

BEND 

<NRU> 

12950 

3 

PRINT«4 

<NA©> 

13310 

• 


<28B> 

12960 

| 

CLOSE 5i CLOSE 4 

<E2I> 

13320 

8 

BEND 

<7PU> 

12970 

3 

BEND 

<FCU> 

13330 

• 


<38F> 

12980 

1 


<EPP> 

13340 


REM - ENDE WENN M<>0 

<001> 

12990 

3 

REM - HARDCOPY ZEICHENSATZ 

<E9R> 

13350 

X 


< 083> 

13O00 

3 


<105> 

13360 

8 

BEND 

<7TU> 

13010 

8 

IF 11=2 THEN BEB IN 

<292> 

13370 

X 

SYS SS,0 

<E1N> 

13020 

3 

OPEN 6,4,6s PRINT#6,CHR*<20>i CLOSE 6 

<P7D> 

13380 

3 


<60P> 

13030 

3 

OPEN 4,4s OPEN 5,4,5 

< 1LU> 

13390 

t 

REM - ENDE DRUCKMENUE 

<68R> 

13040 

8 

PRINT#4,"HARDC0PY ZEICHENSATZ" 

<043> 

13400 

X 


<50L> 

13050 

1 

PRINT»4 

< IQ0> 

13410 

RETURN / 

< 067 > 

13060 

8 

SP=0 

<U2P> 



/ 


1307O 

: 

FOR 1=0 TO 255 

< 017> 



, / 


13080 

8 

A$=" " 

<CBH> 



\ / 


1309O 

3 

SYS MC,1,1,0 

<67E> 

Listing 1. (Schluß) V 



Name : modichar.obj OcOO 0c8b 


OcOO 

c9 

01 

fO 

03 

a9 

20 

2c 

a9 

86 

0c08 

30 

85 

fb 

a9 

00 

85 

fa 

e8 

19 

OclO 

ca 

fO 

Od 

a5 

fa 

18 

69 

10 

81 

0cl8 

85 

fa 

90 

f4 

e6 

fb 

dO 

fO 

50 

0c20 

84 

fc 

aO 

00 

a9 

12 

a6 

fb 

08 

0c28 

20 

5e 

Oc 

a9 

13 

a6 

fa 

20 

42 

0c30 

5e 

Oc 

a5 

fc 

c9 

01 

fO 

Oc 

le 

0c38 

a9 

lf 

20 

6f 

Oc 

8a 

99 

80 

e3 

0c40 

Oc 

18 

90 

09 

b9 

80 

Oc 

aa 

c3 

0c48 

a9 

lf 

20 

5e 

Oc 

a5 

fa 

18 

bf 

0c50 

69 

01 

85 

fa 

90 

02 

e6 

fb 

a7 

0c58 

c8 

cO 

08 

dO 

c7 

60 

8d 

00 

52 

0c60 

d6 

2c 

00 

d6 

10 

fb 

8e 

01 

44 

0c68 

d6 

2c 

00 

d6 

10 

fb 

60 

8d 

ad 

0c70 

00 

d6 

2c 

00 

de 

10 

fb 

ae 

22 

0c78 

01 

d6 

2c 

00 

d6 

10 

fb 

60 

8e 

0c80 

cO 

fO 

7c 

7f 

7c 

36 

03 

01 

4f 

0c88 

Oa 

00 

aO 

20 

56 

4f 

4e 

20 

18 


Listlng 3. Modifiziert die Zeichen. 
Unterprogramm zu Charedit. \ 


Name : transset.obj ObOO 0ba9 


ObOO : 

c9 

01 

fO 

03 

a9 

20 

2c 

a9 

86 

0b08 : 

30 

85 

fb 

18 

69 

10 

85 

fe 

28 

OblO : 

eO 

01 

fO 

03 

a9 

20 

2c 

a9 

ad 

0bl8 : 

: 30 

85 

fd 

a9 

00 

85 

fo 

85 

eb 

0b20 : 

: fa 

8c 

fd 

03 

aO 

00 

8c 

fe 

7a 

0b28 : 

: 03 

a9 

12 

a6 

fb 

20 

84 

Ob 

42 

0b30 I 

: a9 

13 

a6 

fa 

20 

84 

Ob 

ad 

19 

0b38 : 

: fd 

03 

c9 

01 

fO 

Ob 

bl 

fo 

71 

0b40 : 

■ aa 

a9 

lf 

20 

84 

Ob 

18 

90 

ad 

0b48 

: 08 

aB 

lf 

20 

95 

Ob 

8a 

91 

fO 

0b50 : 

■ fc 

a5 

fc 

18 

69 

01 

85 

fc 

10 

0b58 : 

: 90 

02 

e6 

fd 

a5 

fa 

18 

69 

c8 

0b60 : 

; 01 

85 

fa 

90 

02 

e6 

fb 

ae 

99 

0b68 : 

■ fe 

03 

e8 

8e 

fe 

03 

eO 

08 

8f 

0b70 : 

: dO 

b7 

a5 

fa 

18 

69 

08 

85 

de 

0b7B 

: fa 

90 

02 

e6 

fb 

a5 

fb 

c5 

80 

0b80 : 

: fe 

dO 

al 

60 

8d 

00 

d6 

2c 

e7 

0b88 : 

: 00 

d6 

10 

fb 

8e 

01 

d6 

2c 

lb 

0b90 : 

: 00 

d6 

10 

fb 

60 

8d 

00 

d6 

9f 

0b98 : 

: 2o 

00 

d6 

10 

fb 

ae 

01 

d6 

63 

ObaO 

: 2a 

00 

d6 

10 

fb 

60 

48 

00 

68 

0ba8 

: aO 

01 

d4 

a2 

dO 

aO 

Od 

8e 

b6 


Listing 4. Verschiebt den Zeichen¬ 
satz. Unterprogramm zu Charedit. 


Name : vdc-poke.obj 0c90 Ocbf 

0c90 : 85 fa 86 fb 84 fc a9 12 ae 

0c98 : a6 fb 20 ae 0c a9 13 a6 81 

OcaO : fa 20 ac Oc a9 lf a6 fc 7f 

0ca8 : 20 ao Oc 60 8d 00 d6 2c ba 

OcbO : 00 d6 10 fb 8e 01 «ib ..c 43 

0cb8 : 00 d6 10 fb 60 00 20 41 bO 

Listing 2. Beschreibt den VDC Spei¬ 
cher. Unterprogramm zu Charedit. 
Bitte mit dem MSE im C64-Modus 
eingeben. Ebenso Listings 2 bis 9. 

_ 


Listing 5. Vertauscht zwei Bildschirme. 

Unterprogramm zu Charedit. 


Name : swapscrn.obj OdOO 0d93 


OdOO 

: c9 

01 

fO 

Oc 

a9 

10 

85 

fb 

31 

0d08 

: a9 

00 

85 

fc 

85 

fa 

fO 

Oa 

ba 

OdlO 

: a 9 

10 

85 

fc 

a9 

00 

85 

fb 

6b 

Odl8 

: 85 

fa 

aO 

00 

a9 

18 

20 

7f 

ld 

0d20 

: Od 

86 

fd 

8a 

09 

80 

aa 

a9 

d4 

0d28 

: 18 

20 

6e 

Od 

a9 

12 

a6 

fc 

4d 

0d30 

: 20 

6e 

Od 

a9 

13 

a6 

fa 

20 

92 

0d38 

: 6e 

Od 

a9 

20 

a6 

fb 

20 

Ee 

43 

0d40 

: Od 

a9 

21 

a6 

fa 

20 

6e 

Od 

c3 

Od48 

: a9 

le 

a2 

4f 

20 

6e 

Od 

a5 

88 

0d50 

: fa 

18 

69 

4f 

85 

fa 

90 

04 

15 

0d58 

: 06 

fb 

e6 

fc 

2c 

00 

d6 

10 

d3 

0d60 

: fb 

c8 

cO 

33 

dO 

c6 

a9 

18 

70 

0d68 

: a6 

fd 

20 

6e 

Od 

60 

8d 

00 

ed 

0d70 

: d6 

2c 

00 

d6 

10 

fb 

8e 

01 

54 

0d78 

: d6 

2c 

00 

d6 

10 

fb 

60 

8d 

bd 

0d80 

: 00 

d6 

2c 

00 

de 

10 

fb 

ae 

32 

0d88 

: 01 

d6 

2c 

00 

d6 

10 

fb 

60 

9e 

0d90 

: aO 

d6 

10 

05 

85 

f 8 

4c 

07 

9f 


Name 

charmove 

obj 


1300 14c8 

13f0 : 

20 

6b 

14 

aB 

12 

a6 

fa 

20 

83 














a9 

















1 >11 ii 

OD 


1 J 

ai> 

I o 

ZU 

DD 

ac 

1300 

ac 

bf 

14 

b9 

8d 

14 

18 

6d 

7d 

1400 : 

14 

a9 

if 

a6 

fc 

20 

6b 

14 

2c 

1308 

cO 

14 

85 

fb 

b9 

a6 

14 

69 

a7 

1408 : 

ad 

ff 

03 

fO 

03 

4c 

00 

13 

4c 

1310 

00 

85 

fa 

a9 

12 

a6 

fa 

20 

49 

1410 : 

60 

ad 

bf 

14 

38 

e9 

01 

c9 

24 

1318 

6b 

14 

a9 

13 

a6 

fb 

20 

6b 

fc 

1418 : 

ff 

fO 

03 

8d 

bf 

14 

4c 

61 

72 

1320 

14 

a9 

if 

20 

7c 

14 

86 

fo 

51 

1420 : 

14 

ad 

bf 

14 

18 

69 

01 

c9 

e2 

1328 

aS 

fa 

18 

69 

08 

85 

fd 

na 

78 

1428 : 

19 

fo 

03 

8d 

bf 

14 

4c 

51 

9c 

1330 

a9 

12 

20 

6b 

14 

a9 

13 

u6 

80 

1430 : 

14 

ad 

cO 

14 

38 

e9 

01 

c9 

38 

1338 

fb 

20 

6b 

14 

a9 

lf 

20 

7c 

ae 

1438 : 

ff 

fO 

03 

8d 

cO 

14 

4c 

5e 

bc 

1340 

14 

86 

fe 

a9 

12 

a6 

fd 

20 

lb 

1440 : 

14 

ad 

cO 

14 

18 

69 

01 

c9 

42 

1348 

6b 

14 

a9 

13 

a6 

fb 

20 

6b 

2c 

1448 : 

50 

fO 

03 

8d 

cO 

14 

4c 

5e 

ld 

1350 

14 

a9 

lf 

ao 

c2 

14 

20 

6b 

fb 

1450 : 

14 

a9 

ff 

a8 

88 

dO 

fd 

38 

cö 

1358 

14 

a9 

12 

a6 

fa 

20 

6b 

14 

21 

1458 : 

ed 

c3 

14 

bO 

f 7 

60 

a9 

ff 

6b 

1360 

a9 

13 

a6 

fb 

20 

6b 

14 

a9 

bd 

1460 : 

a8 

88 

dO 

fd 

38 

ed 

c4 

14 

6e 

1368 

lf 

ae 

cl 

14 

20 

6b 

14 

ad 

da 

1468 : 

bO 

f 7 

60 

Bd 

00 

dB 

2c 

00 

45 

1370 

00 

de 

8d 

fd 

03 

29 

10 

8d 

de 

1470 : 

d6 

10 

fb 

8e 

01 

d6 

2c 

00 

96 

1378 

ff 

03 

fO 

62 

ad 

fd 

03 

29 

aa 

1478 : 

d6 

10 

fb 

60 

8d 

00 

dB 

2c 

ee 

1380 

Of 

8d 

fd 

03 

a9 

Of 

38 

ed 

05 

1480 : 

00 

d6 

10 

fb 

ae 

01 

d6 

2c 

15 

1388 

fd 

03 

fO 

e3 

c9 

01 

dO 

05 

bl 

1488 : 

00 

d6 

10 

fb 

60 

00 

50 

aO 

ff 

1390 

20 

11 

14 

90 

49 

c9 

02 

dO 

dd 

1490 : 

fO 

40 

90 

eO 

30 

80 

dO 

20 

6b 

1398 

05 

20 

21 

14 

90 

40 

c9 

04 

b2 

1498 : 

70 

cO 

10 

60 

bO 

00 

50 

aO 

06 

13a0 

dO 

05 

20 

31 

14 

90 

37 

c9 

57 

14a0 : 

fO 

40 

90 

eO 

30 

80 

00 

00 

f8 

13a8 

05 

dO 

08 

20 

11 

14 

20 

31 

bO 

14a8 : 

00 

00 

01 

01 

Öl 

02 

02 

02 

35 

13b0 

14 

90 

2b 

c9 

06 

dO 

08 

20 

58 

14b0 : 

03 

03 

03 

04 

04 

04 

05 

05 

f 5 

13b8 

21 

14 

20 

31 

14 

90 

lf 

c9 

e7 

14b8 : 

05 

05 

06 

06 

06 

07 

07 

13 

5d 

13c0 

08 

dO 

05 

20 

41 

14 

90 

16 

99 

14o0 : 

2b 

00 

Of 

02 

05 

53 

00 

2o 

37 

13c8 

c9 

09 

dO 

08 

20 

11 

14 

20 

66 











13d0 

41 

14 

90 

Oa 

c9 

Oa 

dO 

97 

eO 

Listing 6. 

Bewegt ein Zeichen auf 

13d8 

13e0 

20 

a6 

21 

fd 

14 

20 

20 

6b 

41 

14 

14 

a9 

a9 

13 

12 

a6 

11 

23 

dem Bildschirm 

. Unterprogramm zu 

13e8 

fb 

20 

6b 

14 

a9 

if 

a6 

fe 

7d 

Charedit. 





1 / 

/ 






44 


SONDERHEFT 22 


























C128 


GRAFIK 


Name 

acntoasc.obj OccO 0ce6 

OccO 

29 7f c9 20 bO 04 a2 40 

55 

0cc8 

90 12 c9 40 bO 04 a2 00 

91 

OcdO 

90 Oa c9 60 bO 04 a2 20 

da 

0cd8 

90 02 a2 40 86 fa 18 65 

85 

OceO 

fa 85 fa 60 41 2d 41 44 

73 

Listing 7. Wandelt Bildschirm- in 

ASCII-Code. Unterprogramm zu 
Charedit. 

/ 


Name : fett (g/k) % 3000 3801 


3000 : 

3e 

60 

3c 

66 

3c 

06 

7c 

00 

30 

3008 : 

00 

00 

3c 

06 

3e 

66 

3e 

00 

e8 

3010 : 

60 

60 

7c 

66 

66 

66 

7o 

00 

18 

3018 : 

00 

00 

3c 

66 

60 

66 

3c 

00 

le 

3020 : 

06 

06 

3e 

86 

66 

66 

3e 

00 

18 

3028 : 

00 

00 

3o 

66 

7e 

60 

3c 

00 

eO 

3030 : 

Oe 

18 

7e 

18 

18 

18 

18 

00 

90 

3038 : 

00 

00 

3e 

66 

66 

3o 

06 

3c 

7e 

3040 : 

60 

60 

7c 

66 

66 

66 

66 

00 

ef 

3048 : 

18 

00 

78 

18 

18 

18 

7e 

00 

be 

3050 : 

Oc 

00 

3c 

Oc 

Oc 

Oc 

Oc 

78 

2f 

3058 : 

60 

60 

66 

6c 

78 

6c 

66 

00 

94 

3060 : 

78 

18 

18 

18 

18 

18 

7 e 

00 

2a 

3068 : 

00 

00 

fe 

db 

db 

db 

db 

00 

af 

3070 ; 

: 00 

00 

7c 

66 

66 

66 

66 

00 

8f 

3078 : 

00 

00 

3c 

66 

66 

66 

3c 

00 

df 

3080 : 

: 00 

00 

7e 

66 

66 

7c 

60 

60 

f9 

3088 : 

: 00 

00 

3e 

66 

66 

3e 

08 

06 

61 

3090 : 

: 00 

00 

6e 

70 

60 

60 

60 

00 

c5 

3098 : 

: 00 

00 

3e 

60 

3c 

06 

7c 

00 

la 

30a0 : 

: 18 

18 

7e 

18 

18 

18 

Oe 

00 

el 

30a8 : 

: 00 

00 

66 

66 

66 

66 

3e 

00 

al 

30b0 : 

: 00 

00 

66 

66 

66 

3c 

18 

00 

bf 

30b8 : 

: 00 

00 

c3 

db 

db 

db 

7e 

00 

bb 

30c0 ; 

; 00 

00 

66 

3c 

18 

3c 

66 

00 

de 

30c8 ; 

: 00 

00 

66 

66 

66 

3e 

06 

3c 

18 

30d0 : 

: 00 

00 

7e 

Oc 

18 

30 

7e 

00 

ee 

30d8 : 

: 3c 

30 

30 

30 

30 

30 

3c 

00 

b4 

30e0 : 

: cO 

60 

30 

18 

Oc 

06 

03 

00 

de 

30e8 : 

: 3c 

Oc 

Oc 

Oc 

Oc 

Oc 

3c 

00 

cl 

30f0 : 

: 18 

3c 

7e 

18 

18 

18 

18 

00 

6c 

30f8 : 

: 00 

00 

00 

00 

00 

00 

00 

ff 

f 8 

3100 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

3108 ■ 

: 18 

18 

18 

18 

18 

00 

18 

00 

17 

3110 

: 66 

66 

66 

00 

00 

00 

00 

00 

43 

3118 

: 66 

66 

ff 

66 

ff 

66 

66 

00 

4b 

3120 

: 18 

3e 

60 

3c 

06 

7c 

18 

00 

9c 

3128 

: 62 

66 

Oc 

18 

30 

66 

46 

00 

13 

3130 

: 3c 

66 

3c 

38 

67 

66 

3f 

00 

5c 

3138 

: 18 

18 

18 

00 

00 

00 

00 

00 

63 

3140 

: Oo 

18 

30 

30 

30 

18 

Oc 

00 

5e 

3148 

: 30 

18 

Oc 

Oa 

Oc 

18 

30 

00 

4b 

3160 

: 08 

2a 

lc 

3e 

lc 

2a 

08 

00 

6f 

3158 

: 00 

18 

18 

7e 

18 

18 

00 

00 

7d 

3160 

: 00 

00 

00 

00 

00 

18 

18 

30 

e2 

3188 

: 00 

00 

00 

7<s 

00 

00 

00 

00 

38 

3170 

: 00 

00 

00 

00 

00 

18 

18 

00 

92 

3178 

: 03 

06 

Oc 

18 

30 

60 

cO 

00 

8e 

3180 

: 3c 

66 

6e 

76 

66 

66 

3c 

00 

e4 

3188 

: 18 

18 

38 

18 

18 

18 

7e 

00 

fa 

3190 

: 3c 

68 

06 

Oc 

30 

60 

7e 

00 

02 

3198 

i 3c 

66 

06 

lc 

06 

66 

3c 

00 

91 

31a0 

: 06 

Oe 

le 

66 

7f 

06 

06 

00 

42 

31a8 

: 7 e 

60 

7o 

06 

06 

66 

3c 

00 

bb 

31b0 

: 3c 

66 

60 

7c 

66 

66 

3c 

00 

52 

31b8 

: 7e 

66 

06 

Oc 

18 

18 

18 

00 

Of 

31cO 

: 3c 

66 

66 

3c 

66 

66 

3c 

00 

db 

31c8 

: 3c 

66 

66 

3e 

06 

66 

3c 

00 

ld 

31d0 

: 00 

00 

18 

00 

00 

18 

00 

00 

97 

31d8 : 

: 00 

00 

18 

00 

00 

18 

18 

30 

60 

31e0 

s Oe 

18 

30 

60 

30 

18 

Oe 

00 

Oe 

31e8 : 

: 00 

00 

7e 

00 

7e 

00 

00 

00 

70 

31fO 

: 70 

18 

Oc 

06 

Oc 

18 

70 

00 

74 

31f8 

: 3c 

66 

06 

Oc 

18 

00 

18 

00 

4c 

3200 

: 30 

18 

Oc 

00 

00 

00 

00 

00 

40 

3208 

: 18 

3o 

66 

7e 

66 

66 

66 

00 

db 

3210 

: 7c 

66 

66 

7c 

66 

66 

7c 

00 

74 

3218 

: 3c 

66 

60 

60 

60 

66 

3c 

00 

d6 

3220 

: 78 

6c 

66 

66 

66 

6c 

78 

00 

eO 

3228 

: 7e 

60 

60 

78 

60 

60 

7e 

00 

00 

3230 

: 7e 

60 

60 

78 

60 

60 

60 

00 

90 

3238 

: 3c 

66 

60 

6e 

66 

66 

3c 

00 

18 

3240 

: 66 

66 

66 

7e 

66 

66 

66 

00 

76 

3248 

: 3c 

18 

18 

18 

18 

18 

3c 

00 

cd 

3250 

: le 

Oc 

Oc 

Oc 

Oc 

6c 

38 

00 

fe 

3258 

: 66 

6c 

78 

70 

78 

6c 

66 

00 

a5 


3260 : 

60 

60 

60 

60 

60 

60 

7e 

00 

17 

3268 : 

63 

77 

7f 

6b 

63 

63 

63 

00 

b3 

3270 : 

66 

76 

7e 

7e 

6e 

66 

66 

00 

34 

3278 : 

3c 

86 

66 

66 

66 

66 

3c 

00 

d8 

3280 : 

7c 

66 

66 

7c 

60 

60 

60 

00 

e3 

3288 : 

3c 

66 

66 

66 

66 

3c 

Oe 

00 

de 

3290 : 

7c 

66 

66 

7c 

78 

6c 

66 

00 

ed 

3298 : 

3c 

66 

60 

Sa 

06 

66 

3c 

00 

2c 

32a0 : 

7e 

18 

18 

18 

18 

18 

18 

00 

d6 

32a8 : 

66 

66 

66 

66 

66 

66 

3c 

00 

32 

32b0 : 

66 

66 

66 

66 

68 

3c 

18 

00 

58 

32b8 : 

63 

63 

63 

fib 

7f 

77 

63 

00 

54 

32c0 : 

66 

66 

3o 

18 

3o 

66 

66 

00 

fc 

32c8 : 

66 

66 

66 

3c 

18 

18 

18 

00 

25 

32dO : 

7e 

06 

Oo 

18 

30 

60 

7e 

00 

57 

32d8 : 

42 

3c 

66 

7e 

66 

66 

66 

00 

d5 

32e0 : 

42 

3c 

66 

66 

66 

66 

3a 

00 

31 

32e8 : 

1B 

66 

66 

66 

66 

66 

3c 

00 

24 

32f0 : 

00 

00 

01 

7e 

b6 

36 

36 

00 

f 6 

32f8 : 

00 

00 

00 

00 

00 

00 

00 

ff 

f 8 

3300 : 

00 

00 

00 

00 

00 

00 

00 

00 

01 

3308 : 

18 

18 

18 

18 

18 

18 

18 

18 

08 

3310 : 

18 

18 

18 

lf 

lf 

00 

00 

00 

10 

3318 : 

18 

18 

18 

ff 

ff 

00 

00 

00 

42 

3320 : 

18 

18 

18 

f 8 

f 8 

00 

00 

00 

f9 

3328 : 

18 

16 

18 

lf 

lf 

18 

18 

18 

7a 

3330 : 

00 

00 

00 

ff 

ff 

00 

00 

00 

30 

3338 : 

18 

18 

18 

f 8 

f 8 

18 

18 

18 

62 

3340 : 

00 

00 

00 

lf 

lf 

18 

18 

18 

68 

3348 : 

00 

00 

00 

ff 

ff 

18 

18 

18 

9a 

3350 : 

00 

00 

00 

f8 

f 8 

18 

18 

18 

50 

3358 : 

18 

18 

18 

ff 

ff 

18 

18 

18 

d4 

3360 : 

Oc 

30 

3c 

66 

7e 

60 

3c 

00 

3c 

3368 : 

lc 

36 

30 

78 

30 

73 

de 

00 

d5 

3370 : 

30 

Oc 

3c 

66 

7e 

60 

3c 

00 

5e 

3378 : 

Oc 

18 

30 

00 

00 

00 

00 

00 

9d 

3380 : 

3c 

66 

6e 

6e 

60 

66 

3c 

00 

83 

3388 : 

00 

00 

66 

66 

66 

7e 

da 

80 

b5 

3390 : 

30 

Oc 

3c 

06 

3e 

66 

3b 

00 

9a 

3398 : 

30 

Oc 

66 

66 

66 

66 

3e 

00 

c7 

33aO : 

18 

24 

3c 

06 

3e 

66 

3b 

00 

9e 

33a8 : 

18 

24 

3c 

66 

7e 

60 

3c 

00 

8a 

33bO : 

18 

24 

78 

18 

18 

18 

7e 

00 

38 

33b8 : 

18 

24 

3c 

66 

66 

66 

3c 

00 

49 

33c0 : 

18 

24 

66 

66 

66 

6C 

_ V • 

00 

e3 

33c8 : 

lf 

18 

18 

18 

d8 

35 

X J 

00 

ac 

33d0 : 

ff 

63 

30 

18 

30 

63 

ff 

00 

ae 

33d8 : 

24 

00 

3c 

06 

3e 

66 

3e 

00 

de 

33e0 : 

24 

00 

3c 

66 

66 

66 

3c 

00 

6b 

33e8 : 

24 

00 

86 

66 

68 

66 

3e 

00 

05 

33fO : 

3c 

66 

66 

6c 

66 

66 

6c 

60 

93 

33f8 : 

18 

24 

00 

00 

00 

00 

00 

00 

23 

3400 : 

cl 

9f 

c3 

99 

c3 

f 9 

83 

ff 

cf 

3408 : 

ff 

ff 

c3 

f9 

cl 

99 

cl 

ff 

27 

3410 : 

9f 

9f 

83 

99 

99 

99 

83 

ff 

07 

3418 : 

ff 

ff 

c3 

99 

9f 

99 

c3 

ff 

11 

3420 : 

f 9 

f9 

cl 

99 

99 

99 

cl 

ff 

27 

3428 : 

ff 

ff 

c3 

99 

81 

9f 

c3 

ff 

6f 

3430 : 

fl 

e7 

81 

e7 

e7 

07 

e7 

ff 

cf 

3438 : 

ff 

ff 

cl 

99 

99 

cl 

f 9 

c3 

fl 

3440 : 

9f 

9f 

83 

99 

99 

99 

99 

ff 

90 

3448 : 

e7 

ff 

87 

e7 

e7 

e7 

81 

ff 

dl 

3450 : 

f 3 

ff 

c3 

f 3 

f 3 

f 3 

f 3 

87 

70 

3458 : 

9f 

9f 

99 

93 

87 

93 

99 

ff 

lb 

3460 : 

87 

o7 

07 

o7 

«7 

o7 

81 

ff 

85 

3468 : 

ff 

ff 

01 

24 

24 

24 

24 

ff 

20 

3470 : 

ff 

ff 

83 

99 

99 

99 

99 

ff 

50 

3478 : 

ff 

ff 

c3 

99 

99 

99 

o3 

ff 

10 

3480 : 

ff 

ff 

83 

99 

99 

83 

9f 

9f 

06 

3488 : 

ff 

ff 

cl 

99 

99 

cl 

f9 

f 9 

ae 

3490 : 

ff 

ff 

91 

8f 

9f 

9f 

9f 

ff 

5b 

3498 : 

ff 

ff 

cl 

9f 

c3 

f 9 

83 

ff 

15 

34a0 : 

e7 

e7 

81 

e7 

e7 

e7 

fl 

ff 

5e 

34a8 : 

ff 

ff 

99 

99 

99 

99 

cl 

ff 

ae 

34bO : 

ff 

ff 

99 

99 

99 

c3 

e7 

ff 

aO 

34b8 : 

ff 

ff 

3c 

24 

24 

24 

81 

ff 

b4 

34o0 : 

ff 

ff 

99 

c3 

e7 

c3 

99 

ff 

al 

34c8 : 

ff 

ff 

99 

99 

99 

cl 

f 9 

c3 

77 

34d0 : 

ff 

ff 

81 

f 3 

e7 

cf 

81 

ff 

bl 

34d8 : 

c3 

cf 

of 

cf 

cf 

cf 

c3 

ff 

fb 

34e0 : 

3f 

9f 

cf 

e7 

f 3 

f9 

fc 

ff 

e3 

34e8 : 

03 

f 3 

f 3 

f 3 

f 3 

f 3 

c3 

ff 

Oe 

34f0 : 

e7 

c3 

81 

e7 

e7 

e7 

e7 

ff 

73 

34f8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

00 

f 7 

3500 : 

ff 

ff 

rr 

ff 

ff 

ff 

ff 

ff 

ff 

3508 : 

e7 

e7 

e7 

e7 

e7 

ff 

e7 

ff 

f 8 

3510 : 

99 

99 

99 

ff 

ff 

ff 

ff 

ff 

de 

3518 : 

99 

99 

00 

99 

00 

99 

99 

ff 

e4 

3520 : 

e7 

cl 

9f 

c3 

f 9 

83 

e7 

ff 

a3 

3528 : 

9d 

99 

f 3 

e7 

cf 

99 

b9 

ff 

3c 

3530 : 

c3 

99 

c3 

c7 

98 

99 

cO 

ff 

03 

3538 : 

e7 

e7 

e7 

ff 

ff 

ff 

ff 

ff 

Od 

3540 : 

f 3 

e7 

ef 

cf 

cf 

e7 

f 3 

ff 

21 

3548 : 

cf 

e7 

f 3 

f3 

f 3 

e7 

cf 

ff 

44 

3550 : 

f7 

d5 

e3 

cl 

e3 

d5 

f 7 

ff 

30 


3558 : 

ff 

e7 

e7 

81 

e7 

e7 

ff 

ff 

33 

3560 : 

ff 

ff 

ff 

ff 

ff 

e7 

e7 

cf 

dd 

3568 : 

ff 

ff 

ff 

81 

ff 

ff 

ff 

ff 

97 

3570 i 

ff 

ff 

ff 

ff 

ff 

e7 

e7 

ff 

4d 

3578 : 

fc 

f 9 

f 3 

e7 

cf 

9f 

3 1 

ff 

62 

3580 : 

c3 

99 

91 

89 

99 

99 

c3 

ff 

lb 

3588 : 

e7 

e7 

c7 

e7 

e7 

e7 

81 

ff 

15 

3590 : 

c3 

99 

f 9 

f 3 

cf 

9f 

81 

ff 

ld 

3598 : 

c3 

99 

f 9 

e3 

f 9 

99 

c3 

ff 

9e 

35a0 : 

f 9 

fl 

el 

99 

80 

f 9 

f 9 

ff 

fd 

35a8 : 

81 

9f 

83 

f 9 

f 9 

99 

c3 

ff 

94 

35b0 : 

c3 

99 

9f 

83 

99 

9!) 

c3 

ff 

Oe 

35b8 : 

81 

99 

19 

f 3 

e7 

e7 

e7 

ff 

60 

35c0 : 

c3 

99 

99 

o3 

99 

99 

c3 

ff 

a4 

35c8 : 

c3 

99 

99 

cl 

f 9 

99 

o3 

ff 

72 

35d0 : 

ff 

ff e7 

ff 

ff 

e7 

ff 

ff 

08 

36d8 : 

ff 

ff 

e7 

ff 

ff 

e7 

e7 

cf 

4f 

35o0 : 

fl 

e7 

cf 

9f 

cf 

e7 

fl 

ff 

bl 

35e8 : 

ff 

ff 

81 

ff 

81 

ff 

ff 

ff 

5f 

35f0 : 

8f 

e7 

f 3 

19 

f 3 

e7 

8f 

11 

6c 

35f8 : 

03 

99 

f 9 

ts 

e7 

ff 

e7 

ff 

a3 

3600 : 

cf 

e7 

f 3 

11 

ff 

ff 

ff 

ff 

cO 

3608 : 

e7 

c3 

99 

81 

99 

99 

BB 

ff 

34 

3610 : 

83 

99 

99 

83 

99 

99 

83 

ff 

ab 

3618 : 

c3 

99 

9f 

9f 

9f 

99 

c3 

ff 

59 

3620 : 

87 

93 

99 

99 

99 

93 

87 

ff 

5f 

3628 : 

81 

9f 

9f 

87 

9f 

9f 

81 

ff 

4f 

3630 : 

81 

9f 

9f 

87 

9f 

Bf 

9f 

ff 

cf 

3638 : 

c3 

98 

9f 

91 

99 

99 

o3 

ff 

57 

3640 : 

99 

99 

99 

81 

99 

99 

99 

ff 

09 

3648 : 

c3 

e7 

e7 

e7 

e7 

e7 

c3 

ff 

c2 

3650 : 

: el 

f 3 

f 3 

f 3 

f 3 

93 

c7 

ff 

al 

3668 : 

: 99 

93 

87 

8f 

87 

93 

99 

ff 

Oa 

3660 : 

: 9f 

91 

9f 

9f 

9f 

9f 

81 

ff 

a8 

3668 : 

9c 

88 

80 

94 

9c 

9c 

9c 

ff 

lc 

3670 : 

: 99 

89 

81 

81 

91 

99 

99 

ff 

ab 

3678 : 

: c3 

99 

99 

99 

99 

99 

c3 

ff 

17 

3680 : 

: 83 

99 

99 

83 

9f 

9f 

9f 

ff 

lc 

3688 ; 

: c3 

99 

99 

99 

99 

c3 

fl 

ff 

31 

3690 : 

: 83 

99 

99 

83 

87 

93 

99 

ff 

32 

3698 : 

: c3 

99 

9f 

c3 

f 9 

99 

c3 

ff 

04 

36a0 

: 81 

e7 

e7 

e7 

e7 

e7 

e7 

ff 

69 

36a8 : 

: 99 

99 

99 

99 

99 

99 

c3 

ff 

ld 

36b0 

: 99 

99 

99 

99 

99 

c3 

e7 

ff 

07 

36b8 : 

: 9c 

9c 

9c 

94 

80 

88 

9c 

ff 

lb 

36c0 : 

: 99 

99 

c3 

e7 

c3 

99 

99 

ff 

83 

36c8 : 

: 99 

99 

99 

c3 

e7 

e7 

e7 

ff 

6a 

36d0 

: 81 

f 9 

f 3 

e7 

cf 

9f 

81 

ff 

48 

36d8 

: bd 

c3 

99 

81 

99 

99 

99 

ff 

da 

36e0 

: bd 

c3 

99 

99 

99 

99 

c3 

ff 

8e 

36e8 

: e7 

99 

99 

99 

99 

99 

c3 

ff 

ab 

36f0 

: ff 

ff 

f e 

81 

49 

c9 

c9 

ff 

e9 

36f 8 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

00 

n 

3700 

: ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

11 

3708 

: e7 

e7 

e7 

e7 

e7 

e7 

e7 

e7 

07 

3710 

: e7 

o7 

e7 

eO 

eO 

ff 

ff 

ff 

Of 

3718 

: e7 

e7 

e7 

00 

00 

ff 

ff 

ff 

ed 

3720 

: e7 

e7 

e7 

07 

07 

ff 

ff 

ff 

46 

3728 

: e7 

e7 

e7 

eO 

eO 

e7 

e7 

e7 

d5 

3730 

: ff 

ff 

ff 

00 

00 

ff 

ff 

ff 

2f 

3738 

: e7 

e7 

e7 

07 

07 

e7 

e7 

e7 

Od 

3740 

: ff 

ff 

ff 

eO 

eO 

e7 

e7 

e7 

17 

3748 

: ff 

ff 

ff 

00 

00 

e7 

e7 

e7 

f 5 

3750 

: ff 

ff 

ff 

07 

07 

e7 

e7 

e7 

4f 

3758 

: e7 

o7 

e7 

00 

00 

e7 

e7 

e7 

db 

3760 

: f 3 

cf 

o3 

99 

81 

9f 

c3 

ff 

83 

3768 

: e3 

c9 

cf 

87 

cf 

8c 

21 

ff 

fa 

3770 

: cf 

f 3 

c3 

99 

81 

9f 

c3 

ff 

81 

3778 

: 13 

e7 

cf 

ff 

ff 

ff 

ff 

ff 

53 

3780 

: c3 

99 

91 

91 

9f 

99 

c3 

ff 

7c 

3788 

: ff 

ff 

99 

99 

99 

81 

25 

7f 

5a 

3790 

: cf 

13 

c3 

f 9 

cl 

99 

c4 

ff 

85 

3798 

: cf 

13 

99 

99 

99 

99 

cl 

ff 

68 

37a0 

: e7 

db 

c3 

f 9 

cl 

99 

c4 

ff 

al 

37a8 

: e7 

db 

c3 

99 

81 

9f 

o3 

ff 

c5 

37bO 

: e7 

db 

87 

e7 

e7 

e7 

81 

ff 

27 

37b8 

: e7 

db 

o3 

99 

99 

99 

c3 

ff 

26 

37cO 

: e7 

db 

99 

99 

99 

99 

cl 

ff 

9c 

37c8 

: eO 

e7 

e7 

e7 

27 

c7 

e7 

ff 

e3 

37d0 

: 00 

9c 

cf 

e7 

cf 

9c 

00 

ff 

fl 

37d8 

: db 

ff 

c3 

f9 

cl 

99 

cl 

ff 

d3 

37e0 

: db 

ff 

c3 

99 

99 

99 

c3 

ff 

54 

37e8 

: db 

ff 

99 

99 

99 

99 

cl 

ff 

ca 

37f0 

: c3 

99 

99 

93 

99 

99 

93 

9f 

4d 

37f 8 

: e7 

db 

ff 

ff 

ff 

ff 

ff 

ff 

cd 

3800 

: ff 

00 

ff 

00 

ff 

00 

ff 

00 

ff 


Listing 8. Der DIN-Zeichensatz 
optisch verbessert. Ein Beispiel der 
Möglichkeiten von Charedit. Bitte 
beachten Sie die unter »Achtung!« 
aufgeführten Hinweise. 
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C128 


Haiio 

outline (g/k) 

% 

2000 2802 

22b8 

ee 

aa 

aa 












co 

M 

54 

2000 

42 

9e 

44 

ba 

44 

f 2 

86 

fc 

ea 

22c8 

ee 

aa 

aa 

2008 

00 

7o 

46 

7a 

c2 

bb 

c5 

7f 

47 

22dO 

fe 

82 

fa 

2010 

eO 

aO 

be 

83 

bd 

bd 

83 

fe 

36 

22d8 

ee 

7c 

06 

2018 

00 

7e 

c2 

be 

aO 

be 

c2 

7e 

08 

22o0 

ee 

7c 

c6 

2020 

07 

05 

7d 

cl 

bd 

bd 

cl 

7f 

11 

22e8 

ee 

aa 

ee 

2028 

00 

7e 

c3 

bd 

81 

bf 

c2 

7e 

2e 

22f0 

00 

03 

fd 

2030 

3e 

62 

de 

82 

de 

50 

50 

70 

3a 

22f 8 

00 

00 

00 

2038 

00 

7e 

c3 

bd 

bd 

cl 

7d 

43 

86 

2300 

ff 

81 

81 

2040 

eO 

aO 

be 

83 

bd 

a5 

a5 

e7 

00 

2308 

24 

24 

24 

2048 

38 

28 

78 

48 

68 

6c 

44 

7c 

af 

2310 

24 

24 

27 

2050 

lc 

14 

lc 

14 

14 

14 

f 4 

8c 

cf 

2318 

24 

24 

e7 

2058 

eO 

aO 

bc 

b4 

8c 

b6 

ba 

ee 

95 

2320 

24 

24 

o4 

2060 

78 

48 

68 

28 

28 

6c 

44 

7c 

Ob 

2328 

24 

24 

27 

2068 

00 

fe 

83 

ad 

ad 

ad 

bd 

e7 

8d 

2330 

00 

00 

ff 

2070 

00 

fe 

83 

bd 

a5 

a5 

a5 

e7 

76 

2338 

24 

24 

e4 

2078 

00 

7e 

c3 

bd 

a5 

bd 

c3 

7e 

b4 

2340 

00 

00 

3f 

2080 

00 

fe 

83 

bd 

bd 

83 

be 

aO 

cc 

2348 

00 

00 

ff 

2088 

00 

7f 

cl 

bd 

bd 

cl 

7d 

05 

5a 

2350 

00 

00 

f c 

2090 

00 

fe 

83 

bd 

a7 

aO 

aO 

eO 

6c 

2358 

24 

24 

e7 

2098 

00 

7f 

cl 

bf 

c3 

fd 

83 

fe 

f 8 

2360 

7e 

81 

a5 

20a0 

38 

6e 

42 

6e 

28 

2e 

32 

le 

67 

2368 

lc 

26 

48 

20a8 

00 

e7 

a5 

a5 

a5 

bd 

cl 

7f 

08 

2370 

7e 

81 

a5 

20b0 

00 

e7 

a5 

a5 

bd 

db 

66 

3c 

8f 

2378 

7e 

81 

aö 

20b8 

00 

ee 

aa 

ba 

aa 

aa 

d6 

7c 

86 

2380 

7e 

81 

bd 

20o0 

00 

ee 

ba 

d6 

6c 

d6 

ba 

ee 

07 

2388 

3c 

42 

9d 

20c8 

00 

e7 

a5 

a5 

bd 

cl 

7b 

46 

3e 

2390 

3c 

42 

b9 

20d0 

00 

ff 

81 

f 3 

66 

cf 

81 

ff 

99 

2398 

10 

28 

44 

20d8 

7c 

44 

5c 

50 

50 

5c 

44 

7c 

89 

23a0 

18 

14 

fa 

20e0 

60 

50 

28 

14 

Oa 

05 

03 

00 

ca 

23a8 

lc 

14 

14 

20o8 

7c 

44 

74 

14 

14 

74 

44 

7c 

15 

23b0 

00 

18 

28 

20f0 

10 

28 

44 

aa 

ee 

28 

28 

38 

bc 

23b8 

lf 

70 

cO 

20f 8 

00 

00 

00 

00 

00 

ff 

81 

ff 

fe 

23c0 

80 

ff 

86 

2100 

00 

00 

00 

00 

00 

00 

00 

00 

01 

23c8 

3f 

20 

27 

2108 

70 

50 

50 

50 

50 

70 

50 

70 

69 

23d0 

ff 

81 

4d 

2110 

7c 

54 

54 

7c 

00 

00 

00 

00 

5b 

23d8 

e7 

7c 

46 

2118 

7e 

db 

81 

db 

db 

81 

db 

7e 

96 

23eO 

e7 

a5 

7e 

2120 

38 

6e 

c2 

ae 

82 

ea 

86 

ec 

89 

23e8 

ee 

aa 

ee 

2128 

e6 

aa 

f 2 

24 

48 

9e 

aa 

ce 

66 

23f0 

7c 

82 

92 

2130 

70 

d8 

a8 

de 

aa 

b6 

ca 

7e 

9b 

23f 8 

3c 

42 

99 

2138 

38 

38 

28 

38 

00 

00 

00 

00 

9e 

2400 

bd 

61 

bb 

2140 

lc 

24 

48 

50 

50 

48 

24 

lc 

9b 

2408 

ff 

63 

b9 

2148 

70 

48 

24 

14 

14 

24 

48 

70 

CC 

2410 

lf 

5f 

41 

2150 

fe 

aa 

c6 

92 

c6 

aa 

fe 

00 

65 

2418 

ff 

81 

3d 

2158 

38 

28 

ee 

82 

ee 

28 

38 

00 

cl 

2420 

f 8 

fa 

82 

2160 

00 

00 

00 

00 

38 

28 

58 

60 

47 

2428 

ff 

81 

3c 

2168 

00 

00 

fc 

84 

fc 

00 

00 

00 

08 

2430 

cl 

9d 

21 

2170 

00 

00 

00 

00 

00 

70 

50 

70 

16 

2438 

ff 

81 

3c 

2178 

06 

Oa 

14 

28 

50 

aO 

cO 

00 

9b 

2440 

lf 

5f 

41 

2180 

7c 

c6 

b2 

aa 

9a 

ba 

c6 

7c 

f 5 

2448 

c7 

d7 

87 

2188 

38 

68 

48 

68 

28 

6c 

44 

7c 

03 

2450 

e3 

eb 

e3 

2190 

fc 

86 

f a 

la 

24 

5e 

82 

fe 

Oe 

2458 

lf 

5f 

43 

2198 

fc 

86 

fa 

24 

3a 

fa 

86 

fc 

aa 

2460 

87 

b7 

97 

21a0 

Oc 

14 

24 

54 

b6 

82 

f 6 

lc 

de 

2468 

ff 

01 

7c 

21a8 

fe 

82 

be 

84 

fa 

ba 

c6 

7c 

cl 

2470 

ff 

01 

7c 

21b0 

lc 

24 

5c 

86 

ba 

ba 

c6 

7c 

5c 

2478 

ff 

81 

3o 

21b8 

fe 

82 

fa 

14 

28 

28 

28 

38 

Od 

2480 

ff 

01 

7c 

21c0 

7c 

c6 

ba 

44 

ba 

ba 

c6 

7c 

6c 

2488 

ff 

80 

3e 

21c8 

7c 

c6 

ba 

ba 

82 

74 

88 

fO 

7d 

2490 

ff 

01 

7c 

21d0 

70 

50 

70 

00 

70 

50 

70 

00 

dO 

2498 

ff 

80 

3e 

21d8 

70 

50 

70 

00 

70 

50 

bO 

eO 

9b 

24a0 

c7 

91 

bd 

21e0 

18 

28 

50 

aO 

aO 

50 

28 

18 

92 

24a8 

ff 

18 

5a 

21o8 

00 

fc 

84 

fc 

84 

fc 

00 

00 

57 

24b0 

ff 

18 

5a 

21f0 

60 

50 

28 

14 

14 

28 

50 

60 

8a 

24b8 

ff 

11 

55 

21f 8 

7o 

c6 

ba 

fa 

16 

lc 

14 

lc 

bO 

24c0 

ff 

11 

45 

2200 

30 

48 

24 

18 

00 

00 

00 

00 

61 

24c8 

ff 

18 

5a 

2208 

7c 

c6 

ba 

ba 

82 

ba 

aa 

ee 

74 

24d0 

ff 

00 

7e 

2210 

fc 

86 

ba 

84 

ba 

ba 

86 

fc 

24 

24d8 

83 

bb 

a3 

2218 

7c 

c6 

ba 

ae 

ae 

ba 

c6 

7c 

51 

24o0 

9f 

af 

d7 

2220 

f 8 

8c 

b6 

aa 

aa 

b6 

8c 

f 8 

o6 

24e8 

83 

bb 

Bb 

2228 

7e 

c2 

be 

88 

b8 

be 

o2 

7e 

51 

24f 0 

ef 

d7 

bb 

2230 

7e 

c2 

be 

88 

b8 

aO 

aO 

eO 

a5 

24f 8 

ff 

ff 

ff 

2238 

7c 

c6 

be 

aO 

ae 

ba 

c6 

7o 

bO 

2500 

ff 

ff 

ff 

2240 

ee 

aa 

ba 

82 

ba 

aa 

aa 

ee 

Oc 

2508 

8f 

af 

af 

2248 

fe 

82 

ee 

28 

28 

ee 

82 

fe 

4a 

2510 

83 

ab 

ab 

2250 

Oe 

Oa 

Oa 

Oa 

ea 

ba 

c6 

7c 

cO 

2518 

81 

24 

7e 

2258 

e6 

aa 

b4 

88 

88 

b4 

aa 

ee 

88 

2520 

c7 

91 

3d 

2260 

eO 

aO 

aO 

aO 

aO 

be 

82 

fe 

d4 

2528 

19 

55 

Od 

2268 

f e 

82 

aa 

aa 

ba 

aa 

aa 

ee 

31 

2530 

8f 

27 

57 

2270 

ee 

ba 

9a 

aa 

b2 

aa 

aa 

ee 

cO 

2538 

c7 

c7 

d7 

2278 

7c 

c6 

ba 

aa 

aa 

ba 

c6 

7c 

fO 

2540 

e3 

db 

b7 

2280 

fc 

86 

ba 

ba 

86 

bc 

aO 

eO 

58 

2548 

8f 

b7 

db 

2288 

7c 

c6 

92 

aa 

ba 

92 

c9 

7f 

c8 

2550 

01 

55 

39 

2290 

fc 

66 

ba 

ba 

86 

b4 

ba 

ee 

ac 

2558 

c7 

d7 

11 

2298 

7e 

c2 

be 

c4 

7a 

fa 

86 

fc 

53 

2560 

ff 

ff 

ff 

22a0 

fe 

82 

ee 

28 

28 

28 

28 

38 

75 

2568 

ff 

ff 

03 

22a8 

ee 

aa 

aa 

aa 

aa 

ba 

cß 

7o 

80 

2570 

ff 

ff 

ff 

22b0 

ee 

aa 

aa 

aa 

aa 

54 

28 

10 

01 

2578 

f 9 

f 5 

eb 


ba 

aa 

aa 

82 

fe 

05 

2580 

: 83 

39 

4d 

55 

65 

45 

39 

83 

Oa 

28 

28 

54 

aa 

06 

53 

2588 

: c7 

97 

b7 

97 

d7 

93 

bb 

83 

Oc 

54 

28 

28 

28 

38 

15 

2590 

: 03 

79 

05 

e5 

db 

al 

7d 

01 

11 

14 

28 

Bt 

82 

fe 

ce 

2598 

: 03 

79 

05 

db 

o5 

05 

79 

03 

85 

ba 

82 

ba 

aa 

ee 

94 

25a0 

: f 3 

eb 

db 

ab 

49 

7d 

08 

e3 

62 

ba 

aa 

ba 

c6 

7c 

aa 

25a8 

: 01 

7d 

41 

7b 

05 

45 

38 

83 

8e 

aa 

aa 

ba 

c6 

7c 

dl 

25b0 

: e3 

db 

a3 

79 

45 

45 

39 

83 

03 

83 

(14 

54 

7o 

00 

43 

25b8 

: 01 

7d 

05 

eb 

d7 

d7 

d7 

c7 

62 

00 

00 

ff 

81 

ff 

fe 

25cO 

: 83 

39 

45 

bb 

45 

45 

39 

83 

13 

81 

81 

81 

81 

ff 

7a 

25c8 

: 83 

39 

45 

45 

7d 

8b 

77 

Of 

12 

24 

24 

24 

24 

24 

08 

25d0 

: Bf 

af 

8f 

ff 

Bf 

af 

8f 

ff 

cf 

20 

20 

3f 

00 

00 

10 

25d8 

: Bf 

af 

8f 

ff 

Bf 

af 

4f 

lf 

15 

00 

00 

ff 

00 

00 

48 

25eO 

: e7 

d7 

af 

5f 

5f 

af 

d7 

e7 

2d 

04 

04 

fc 

00 

00 

38 

25e8 

: ff 

03 

7b 

03 

7b 

03 

ff 

ff 

78 

20 

20 

27 

24 

24 

40 

25f0 

: 9f 

af 

d7 

eb 

eb 

d7 

a r 

9f 

56 

00 

00 

ff 

00 

00 

30 

25f 8 

: 83 

39 

«6 

OB 

e9 

e3 

eb 

e3 

3f 

04 

04 

<•4 

24 

24 

68 

2600 

: cf 

b7 

db 

e7 

ff 

ff 

ff 

ff 

9f 

20 

20 

27 

24 

24 

28 

2608 

: 83 

39 

45 

4b 

7d 

4 b 

56 

11 

9b 

00 

00 

e7 

24 

24 

60 

2610 

: 03 

79 

45 

7b 

45 

45 

79 

03 

fb 

04 

04 

e4 

24 

24 

50 

2618 

: 83 

39 

45 

51 

51 

45 

39 

83 

df 

00 

00 

e7 

24 

24 

aO 

2620 

: 07 

73 

49 

55 

55 

49 

73 

07 

59 

81 

a5 

99 

81 

7e 

62 

2628 

: 81 

3d 

41 

77 

47 

41 

3d 

81 

fe 

84 

5c 

86 

fc 

00 

28 

2630 

: 81 

3d 

41 

77 

47 

5f 

5f 

lf 

ba 

81 

99 

a5 

81 

7e 

12 

2638 

: 83 

39 

41 

5f 

51 

46 

39 

83 

bf 

81 

81 

bd 

81 

7e 

59 

2640 

: 11 

55 

45 

7d 

4 b 

55 

55 

11 

73 

al 

al 

bf 

81 

7e 

7d 

2648 

: 01 

7d 

11 

d7 

d7 

11 

7 d 

01 

45 

al 

al 

9d 

42 

3c 

09 

2650 

: fl 

f 5 

f5 

f 5 

15 

4 b 

39 

83 

df 

a5 

t>9 

a5 

42 

3c 

5b 

2658 

: 19 

55 

4b 

77 

77 

4b 

55 

11 

27 

aa 

ee 

28 

28 

38 

64 

2660 

: lf 

5f 

5f 

5f 

5f 

41 

7d 

01 

eb 

81 

fa 

14 

18 

00 

62 

2668 

: 01 

7d 

55 

55 

45 

55 

55 

11 

9e 

77 

55 

22 

14 

08 

89 

2670 

: 11 

45 

65 

55 

4d 

55 

55 

11 

lf 

5f 

81 

5f 

28 

18 

96 

2678 

: 83 

39 

45 

55 

55 

45 

39 

83 

ff 

87 

87 

cO 

70 

lf 

af 

2680 

: 03 

79 

45 

45 

79 

43 

5f 

lf 

a7 

fc 

fc 

86 

ff 

80 

86 

2688 

: 83 

39 

Bd 

55 

45 

6d 

36 

80 

47 

24 

e4 

84 

64 

3c 

e2 

2690 

: 03 

79 

45 

45 

79 

4b 

45 

11 

73 

27 

27 

4d 

81 

ff 

ab 

2698 

: 81 

3d 

41 

3b 

85 

05 

79 

03 

de 

7a 

c2 

bb 

c5 

7f 

fe 

26a0 

: 01 

7d 

11 

d7 

d7 

d7 

d7 

c7 

ca 

c3 

bd 

bd 

c3 

7e 

88 

26a8 

: 11 

55 

55 

55 

55 

45 

39 

83 

cf 

aa 

aa 

bb 

c5 

7b 

d3 

26b0 

: 11 

55 

55 

55 

55 

ab 

d7 

ef 

5e 

84 

82 

92 

86 

9c 

f 3 

26b8 

: 11 

55 

55 

45 

55 

55 

7d 

01 

6a 

f 7 

00 

00 2 n no 
Od ?r 13 

bb 

26Ö0 

: 39 

55 

ab 

d7 

d7 

ab 

55 

39 

2c 

45 

bb 

15 

26c8 

: 11 

55 

55 

ab 

d7 

d7 

d7 

c7 

7a 

85 

3d 

44 

3a 

BO 

c8 

26d0 

: 01 

7d 

05 

eb 

d7 

al 

7d 

01 

dl 

7c 

42 

42 

7c 

01 

e9 

26d8 

: 11 

83 

39 

45 

7d 

45 

55 

11 

lb 

41 

5f 

41 

3d 

81 

47 

26e0 

: 11 

83 

39 

45 

55 

45 

39 

83 

15 

3e 

42 

42 

3e 

80 

2e 

26e8 

: 11 

55 

11 

55 

55 

45 

39 

83 

fe 

42 

7e 

40 

3d 

81 

21 

26f0 

: ff 

fc 

02 

7c 

2b 

ab 

83 

ff 

9c 

7d 

21 

af 

af 

8f 

25 

26f8 

: ff 

ff 

ff 

ff 

ff 

00 

7e 

00 

fl 

42 

42 

3e 

82 

bc 

e9 

2700 

: 00 

7e 

7e 

7e 

7e 

7e 

7e 

00 

85 

7c 

42 

5a 

5a 

18 

7f 

2708 

: db 

db 

db 

db 

db 

db 

db 

db 

07 

b7 

97 

93 

bb 

83 

eO 

2710 

: db 

db 

d8 

df 

df 

cO 

ff 

ff 

Of 

eb 

eb 

eb 

Ob 

73 

dO 

2718 

: db 

db 

18 

ff 

ff 

00 

ff 

ff 

e7 

4b 

73 

49 

45 

11 

la 

2720 

: db 

db 

lb 

fb 

fb 

03 

ff 

ff 

07 

d7 

d7 

93 

bb 

83 

b4 

2728 

: db 

db 

d8 

df 

df 

d8 

db 

db 

Of 

52 

52 

52 

42 

18 

42 

2730 

: ff 

ff 

00 

ff 

ff 

00 

ff 

ff 

2f 

4 2 

5a 

5a 

5a 

18 

69 

2738 

: db 

db 

lb 

fb 

fb 

lb 

db 

db 

07 

42 

5a 

42 

3c 

81 

3b 

2740 

: ff 

ff 

cO 

df 

df 

d8 

db 

db 

57 

42 

42 

7c 

41 

5f 

33 

2748 

: ff 

ff 

00 

ff 

ff 

18 

db 

db 

2f 

42 

42 

3e 

82 

fa 

b5 

2750 

: ff 

ff 

03 

fb 

fb 

lb 

db 

db 

4f 

42 

68 

5f 

5f 

lf 

b3 

2758 

: db 

db 

18 

fl 

ff 

18 

db 

db 

Of 

40 

3o 

02 

7o 

01 

37 

2760 

: 81 

7e 

5a 

7o 

5a 

66 

7e 

81 

Sd 

91 

d7 

dl 

cd 

el 

d8 

2768 

: e3 

d9 

b7 

7b 

a3 

79 

03 

ff 

a7 

5a 

5a 

42 

3o 

80 

47 

2770 

: 81 

7e 

5a 

7e 

66 

5a 

7e 

81 

cd 

5a 

42 

24 

99 

c3 

dO 

2778 

: 81 

7e 

5a 

7o 

7e 

42 

7o 

81 

96 

45 

55 

55 

29 

83 

ea 

2780 

: 81 

7e 

42 

5e 

5e 

40 

7e 

81 

82 

29 

93 

29 

45 

11 

78 

2788 

: c3 

bd 

62 

5e 

5e 

62 

bd 

c3 

06 

5a 

42 

3g 

84 

b9 

51 

2790 

: c3 

bd 

46 

5a 

46 

5a 

bd 

c3 

c4 

Oc 

99 

30 

7e 

00 

06 

2798 

: ef 

d7 

bb 

55 

11 

d7 

d7 

c7 

cb 

af 

af 

a3 

bb 

83 

26 

27a0 

: e7 

eb 

05 

7e 

OB 

ob 

e7 

ff 

dd 

eb 

f 5 

fa 

fc 

ff 

f 5 

27a8 

: e3 

eb 

eb 

88 

aa 

dd 

eb 

f 7 

c6 

eb 

eb 

8 b 

bb 

83 

ba 

27b0 

: ff 

e7 

d7 

aO 

7e 

aO 

d7 

e7 

c9 

55 

11 

d7 

d7 

o7 

23 

27b8 

: eO 

8f 

3f 

78 

78 

3f 

8f 

eO 

cO 

ff 

ff 

00 

7e 

00 

fl 

27c0 

: 7f 

00 

79 

03 

03 

78 

00 

7f 

f 9 

ff 

ff 

ff 

ff 

ff 

ff 

27c8 

: cO 

df 

dB 

db 

lb 

7b 

9b 

c3 

ad 

af 

af 

8f 

af 

8f 

a6 

27dO 

: 00 

7e 

b2 

d8 

d8 

b2 

7e 

00 

f4 

83 

ff 

ff 

ff 

ff 

c4 

27d8 

: 18 

83 

b9 

85 

3d 

44 

3a 

80 

bl 

24 

24 

7e 

24 

81 

99 

27e0 

: 18 

5a 

81 

3c 

42 

42 

3c 

81 

37 

51 

7d 

15 

79 

13 

bB 

27e8 

: 11 

55 

11 

55 

55 

44 

3a 

84 

fc 

db 

b7 

61 

55 

31 

e9 

27fO 

: 83 

7d 

6d 

7b 

7d 

6d 

79 

63 

ed 

21 

55 

49 

35 

81 

c4 

27f 8 

: c3 

bd 

66 

08 

ff 

ff 

ff 

ff 

34 

c7 

ff 

ff 

ff 

ff 

d2 

2800 

: ff 

ff 

00 

00 

00 

00 

00 

00 

ff 

af 

af 

b7 

db 

e3 

e4 











eb 

eb 

db 

b7 

Bf 

c3 











6d 

7d 

39 

11 

55 

d7 

01 

c7 

ff 

ff 

3a 

ee 

Listing 9. 

Umrandeter 

Zeichensatz 

ff 

c7 

d7 

a7 

9f 

78 

als grafisch interessanter Effekt 

. 

7b 

ff 

03 

ff 

ff 

8f 

ff 

af 

ff 

8f 

c7 

c9 

Bitte beachten Sie die unter 


d7 

af 

5f 

3f 

ff 

55 

»Achtung» aufgeführten Hinweise. 
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C128 


TIPS &TRICKS 


Bildschirm mit 4000 Zeichen 

durch Interlace 


Wer hätte das gedacht? Nicht nur der Commodo- 
re Amiga kann die Anzahl der Rasterzeilen auf 
dem Bildschirm mit Hilfe eines »lnterlace«-Modus 
verdoppeln; auch in den Tiefen des VDC-Chips im 
C128 schlummert eine solche Möglichkeit. 

A uf dem Commodore Amiga kennt man ihn schon 
lange: den »lnterlace«-Modus, der durch eine trick¬ 
reiche Schaltung innerhalb des Amiga-Videochips 
die vertikale Auflösung auf dem angeschlossenen Bild¬ 
schirm verdoppelt. Das geht allerdings auf Kosten der Bild¬ 
qualität, da nun wegen interner Zeitprobleme des Video¬ 
chips das Monitorbild durch zwei gegeneinander versetzte 



Bild 1. Der Bildschirm im Interlace-Modus 


»Halbbilder« aufgebaut wird, was je nach verwendetem 
Monitor zu einem mehr oder weniger starken Flimmern 
führt. 

Auch der VDC-Chip, der ja im C128 für die 80-Zeichen- 
Darstellung zuständig ist, hat das Interlace-Verfahren 
bereits eingebaut. Um es zu aktivieren, sind lediglich sie¬ 


ben (!) Basic-Zeilen erforderlich, die einige Register des 
Grafikchips verändern und somit den Interlace-Modus ein¬ 
schalten. Das nun vorhandene Bildschirmflimmern wird 
allerdings durch eine neue, bisher nicht einmal vom Amiga 
bekannte Eigenschaft des VDC wieder wettgemacht: Er ist 
nun fähig, 50 Zeilen (und damit 4000 Zeichen) Text auf dem 
Bildschirm darzustellen! (Bild 1). Der Interlace-Modus sorgt 
dafür, daß der Text trotz der nun relativ kleinen Zeichen 
noch lesbar bleibt. 

50 Bildschirmzeilen für den C 128 


Das Programm »Interlace« (Listing 1) nimmt die Umschal¬ 
tung des C128 auf den Interlace-Modus mit 50 Zeilen auf 
dem Bildschirm vor. Wir haben es ohne REM-Anweisungen 
abgedruckt und diese statt dessen getrennt in Listing 2 
untergebracht, um Ihnen das Abtippen mit dem neuen 
Checksummer 128 zu erleichtern. Die REM-Anweisung 
und die zugehörige Programmzeile haben dabei immer die 
gleiche Zeilennummer und stehen nebeneinander. 

Im Programm erfolgt die eigentliche Umschaltung des 
VDC in den Zeilen 10 bis 70. Die restlichen Programmzeilen 
dienen lediglich dazu, den neu gewonnenen Raum auf 
dem bndschirm zu beschreiben. Da der eingebaute Bild¬ 
schirmeditor des C128 nämlich nur auf die Benutzung der 
(nun) oberen 25 Zeilen des Bildschirms angelegt ist, müs¬ 
sen die unteren 25 Zeilen durch direktes Verändern des 
VDC-Speichers beschrieben werden. Im Programm wer¬ 
den als Beispiel einfach die oberen 25 Bildschirmzeilen in 
die unteren 25 umkopiert. Dieser Vorgang kann im Direkt¬ 
modus jederzeit mit GOTO 100 eingeleitet werden. 

Den VDC richtig ansprechen 


Um die mit »Interlace« gebotenen Möglichkeiten auch aus¬ 
nutzen zu können, ist die Kenntnis der Bedeutung einiger 
VDC-Register nötig. Nach den Befehlen 

FAST:BANK 15 
A = DEC ( "CDCC") 


10 FAST«BANK 15 


<LBC> 

20 A"DEC("CDCC") 


<CNB> 

30 SYSA,77,4 


<CIK> 

40 BYSA, 3,8 


<2HU> 

50 SYSA,0,36«SYSA,64,7 


<TFU> 

60 SYSA,50,6 


<FQJ> 

70 P0KE2607,16«SYSA,16,20 


<LDS> 

80 PRINT "<CLR>" 


< 3PM > 

90 i 


<NQV> 

100 FÜR I"OTO1999STEP200 


<K3B> 

110 SYSA,128,24 


<IUI> 

115 : 


<3KE> 

120 SYSA,< 2000+1)AND255,19 


<59F> 

130 SYSA,(2000*1)/256,18 


<48K> 

140 SYSA,IAND255,33xSYSA,1/256, 

32 

<QH3> 

150 : 


<0S3> 

160 SYSA,200,30 


<S6H> 

170 SYSA,(6096+1»AND255,19sSYSA 

,(6096+1)/256,18 

< 00N> 

1B0 SYSA,(4096+1JAND255,33:SYSA 

, (4096+1)/255,32 

<BVC> 

170 SYSA,200,30 

/ 

<26H> 

200 NEXT 

< 180> 


10 i 

20 REM EINSPRUNB DER ROUTINE ZUM SETZEN DER VDC-REGISTER 

30 REM VERTIKALE SYNCHRONISATION MIT DOPPELTER GESCHWINDIGKEIT 

40 REM INTERLACE-MODUS EINSCHALTEN 

50 REM STELLUNG DES MONITORBILDES JUSTIEREN 

60 REM EINSTELLUNG DER BILDSCHIRMZEILEN AUF 50 

70 REM ATTRIBUTSPEICHER VERSCHIEBEN 

80 i 

90 REM ROUTINE ZUM UMKOPIEREN DER OBEREN 25 ZEILEN« 

100 REM BLOCKVERSCHIEBUNG VON JEWEILS 200 BYTES 

110 REM REGISTER 24 MUSS 128 ENTHALTEN 

115 REM VERSCHIEBEN DES BILDSCHIRMSPEICHERS 

120 REM LOWBYTE DER ZIELADRESSE 

130 REM HIGHBYTE DER ZIELADRESSE 

140 REM STARTADRESSE DES BLOCKS 

150 REM VERSCHIEBEN DES ATTRIBUTSPEICHERS 

160 REM 200 BYTES VERSCHIEBEN UND START DES BLOCKVERSCHIEßENS 
170 REM ZIELADRESSE 
180 REM STARTADRESSE 

190 REM 200 BYTES VERSCHIEBEN UND START DES BLOCKVERSCHIE6ENS 

200 : 


Listing 1. »interlace« zum Aktivieren des Interlace-Modus. 
Bitte mit dem Checksummer 128 eingeben. 


Listing 2. Die Kommentarzeilen zu »Interlace«. Wegen der 
besseren Übersicht sind sie nicht in Listing 1 integriert. 
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TIPS&TRICKS 


C128 


Register 

Belegung 

32/33 

Startadresse des Blocks HI/LO 

18/19 

Zieladresse des Blocks HI/LO 

24 

muß auf 128 gesetzt werden 

30 

Anzahl der zu verschiebenden Bytes 


Tabelle 1. Die Registerbelegung bei der VDC-internen 
Blockverschiebung 


kann man das VDC-Register RE mit dem Wert WE be¬ 
schreiben, indem man den Befehl 

SYS A,WE,RE 

eingibt. 

Da der interne Speicher des VDC, in dem sich auch der 
Bildschirmspeicher befindet, nicht direkt von außen 
ansprechbar ist, muß das über verschiedene Register 
geschehen. Dabei ist zu beachten, daß der VDC eine Spei¬ 


weise nicht an den »normalen« Stellen zu finden (siehe Bild 
2). Die Registerbelegung für die Blockverschiebung steht 
in Tabelle 1. Das Register 30 muß als letztes beschrieben 
werden, da durch den Schreibvorgang die Blockverschie¬ 
bung gestartet wird. 

Aus Bild 2 läßt sich noch etwas Interessantes entneh¬ 
men: Da für Bildschirm- und Attributspeicher im VDC 
jeweils 4096 Zeichen zur Verfügung stehen, von »Interlace« 
aber nur 4000 (50 Zeilen mal 80 Zeichen) genutzt werden, 
wäre es zusätzlich möglich, mit SYS A,51,6 einen Bild¬ 
schirm mit 51 Zeilen zu definieren und die 51. Zeile auch 
noch für Text zu nutzen. 

Interlace auch in Maschinensprache 


Gerade die Programmierung des VDC über Register ist in 
Maschinensprache sehr einfach durchführbar. Das fol¬ 
gende Unterprogramm (Assembler-Routine unter Bild 2) 


Bildschirm- 

Attribut- 




Speicher 

Speicher 

unbenutzt 

1 

Zeichensatz 

1 1 1 




Bild 2. Die VDC-Speicherbelegung mit (unten) und ohne Interlace (oben). Einige Blöcke werden dabei verschoben. 


cheradresse in seinen Registern in der Reihenfolge High- 
Byte/Low-Byte ablegt, was eine gewisse Umgewöhnung 
erfordert. So beschreibt man eine Speicherstelle des VDC 
(nur im Programm-Modus anwendbar): 

SYS A, Low-Byte, 19 
SYS A, High-Byte, 18 
SYS A, Wert, 31 

Der VDC veischiebt Blöcke 


Im Programm »Interlace« wird die interne Blockverschiebe- 
routine des VDC verwendet, um die oberen 25 Zeilen des 
Bildschirms in die unteren 25 Zeilen umzukopieren. Da 
allerdings nur maximal 256 Zeichen auf einmal verschoben 
werden können, wird die Routine vom Programm mehr¬ 
mals aufgerufen. 

Bei der Verwendung der Blockverschieberoutine muß 
aber die von »Interlace« geänderte VDC-Speicherkon- 
figuration (Bild 2) beachtet werden: Da Bildschirm- und 
Attributspeicher nun den doppelten Speicherplatz wie im 
Normalmodus benötigen, sind sie im VDC-Speicher teil¬ 


setreg stx $d600 

m2 bit $d600 

bpi ra2 
sta $d601 
rts 

setzt das VDC-Register, dessen Nummer im X-Register 
des Prozessors steht, auf den Wert im Akkumulator. Mit 
Hilfe dieses Unterprogramms können alle vorher beschrie¬ 
benen VDC-Eigenschaften auch in Maschinensprache 
genutzt werden. 

Natürlich kann »Interlace« nur eine Anregung für Pro¬ 
grammierer sein, sich selbst mit dieser erstaunlichen, bis¬ 
her unentdeckten Fähigkeit ihres C128 zu beschäftigen 
und eigene Programme zur Ausnutzung dieses Modus zu 
entwickeln. Es wäre zum Beispiel denkbar, die unteren 25 
Bildschirmzeilen auch für den Cursor zugänglich zu 
machen. 

(Richard Moeskops/Andreas Lietz) 

Literatur: 

Gerd Möllmann: C128 Programmieren in Maschinensprache, Markt 8 Technik Verlag, 269 Sei¬ 
ten, ISBN 3-89090-213-8, 52 Mark 

Kurs: -VDC - 80 Zeichen ist nicht alles, in den 64er-Ausgaben 3/87, 5/87, 7/87 und 8/87 
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C128 


TIPS&TRICKS 


2 MHz IRQ: Programme 
stufenlos beschleunigt 


Auch im C64-Modus des C128 läßt sich bekannt¬ 
lich der Betrieb mit 2 MHz aktivieren. Dabei war 
bisher allerdings keine vernünftige Bilddar¬ 
stellung mehr möglich. Wir stellen Ihnen ein Pro¬ 
gramm vor, das einen Kompromiß aus Geschwin¬ 
digkeit und guter Optik liefert. 

W ie läßt sich nun die hohe Geschwindigkeit mit einer 
funktionierenden Bilddarstellung in Einklang brin¬ 
gen? Nun, der C64 verfügt bekanntlich über die 
Möglichkeit des Rasterinterrupts. Damit läßt sich der Bild¬ 
schirm in unabhängige Fenster aufteilen, in denen der 
Videochip vollkommen verschiedene Werte verarbeitet. So 
kann man beispielsweise eine Grafik mit Text am unteren 
Bildschirmrand darstellen, ein beliebter Trick bei 
Adventure-Spielen. 

Diese Eigenschaft macht sich unser Programm zunutze. 
Der Bildschirm wird in einen Bereich mit 2-MHz-Prozes- 
sortakt und in einen mit 1-MHz-Takt unterteilt. Dazu wird im 
entsprechenden Bereich das Register in Speicherstelle 
53296 ($D030) ein- (Bit 0=1) bzw. ausgeschaltet (Bit 0=0). 

Je größer das Fenster mit 2-MHz-Taktfrequenz - also das 
Fenster mit der chaotischen Bilddarstellung - ist, desto 
schneller läuft der C64-Modus. Die Obergrenze sind hier 
natürlich 2 MHz. Je kleiner dieses Fenster ist, desto langsa¬ 
mer arbeitet der Computer. Die Untergrenze stellt dabei 
1 MHz dar. 

Geben Sie bitte Listing 1 mit dem Checksummer 128 ein. 
Beachten Sie dazu die Eingabehinweise auf Seite 158. 
Nach dem Start mit »RUN« kann die Startadresse, ab der 
das Programm generiert werden soll (üblicherweise 49152) 



Bild 1. »2 MHz IRQ« nach dem Start. Die chaotische Bild¬ 
darstellung im unteren Bereich ist auf den eingeschalte¬ 
ten 2-MHz-Takt zurückzuführen. 


eingegeben werden. Diese Adresse wird dabei auf ein Viel¬ 
faches von 256 gerundet. Zusätzlich können Sie noch wäh¬ 
len, ob das Programm gespeichert werden soll, oder nicht. 
Anschließend gibt das Programm aus, mit welchem SYS- 
Befei,r -2 MHz IRQ« aktiviert beziehungsweise abgeschal¬ 
tet werden kann. 

Das vom Lader generierte Programm-File läßt sich nach 
dem Laden mit angehängtem »,8,1« (also absolut laden) 
durch »SYS« und der jeweiligen Startadresse starten. 

Nach dem Start zeigt sich in der unteren Bildschirmhälfte 
ein Kräuseln (Bild 1); in diesem Bildschirmteil läuft der Pro¬ 
zessor mit 2-MHz-Takt. Mit den Funktionstasten kann man 
nun Größe und Position des Biidschirmfensters verändern: 


1 REM *«»*##*****»#*»«**###*•*#*# 


C64S> 

10015 

PRINT X» 

<VVI> 

2 REM * 2 

MHZ IRQ-ROUNTINE FUER • 


<68P> 

10020 

SA=INT(SA/256)*256 

<RCH> 

3 REM » 

C-12B IM C-64 MODUS * 


< 6CP > 

10030 

XX=SA/256 

<K3C> 






1 004 O 

RE8TORE i rOKE 532“>6, l 

MOT > 

5 t 




< A18 > 

10050 

READ A* 

<K.4N > 

6 I 




<APB> 

10055 

1F Ar=''»«" THEN A=XXl 80TQ 1O1O0 

< ONA> 

7 : 




. < AHA > 

1 0O57 

IF A*=“END" THEN 10120 

<20F > 

1000 

DATA 

7B,A2,23,A0,*»,8E,14,03 


< JML > 

1O06O 

AH=ASC(LEFTT(A»,1))! AL=ASC < R1QHT* < At,1)1 

< DL3 :■ 

1010 

DATA 

0C,15,03,A9,01,SD,1A,D0 


<A6A> 

10070 

IF AH>57 THEN AH-AH-7 

<2G7> 

1020 

DATA 

A9,30,03,F7,8D,12,DO,A9 


<AD 0> 

10080 

IF AL>37 THEN AL-AL-7 

•:vnj> 

1010 

DATA 

62,85,F8,AD,t1,D0,29,7F 


<QHK > 

10090 

A“(AH-48)* 16+ f AL-48) 

<K9J> 

1040 

DATA 

8D,11,DO,5B,60,AD,19,00 


<RTF> 

10100 

POKE SA+X,A 

< BIC > 

1050 

DATA 

SD,19,D0,10,34,AD,12,00 


<LCJ> 

10110 

X=X+lt GOTO 1O050 

<PDU> 

1060 

DATA 

C3,F7,D0,18,A9,OO,BO,30 


<QC4> 

10120 

PQKE 53296,0! PRINT "CCLR,D0WN,2SPACE>EINSC 

1070 

DATA 

DO,AD,11,D0,29,7F,SD,11 


<BBH * 


HALTEN: BY8"SA 

<F6H> 

1000 

DATA 

DO,A3,F7,18,65,F9,BD,12 


<35F> 

10130 

PRINT "<DQWN,2SPACE)AUSSCHALTEN! SYS"SA+193 

1090 

DATA 

D0.4C,81,EA,A9,01,8D,30 


<KKE> 


"C3D0WN)" 

<NGC> 

1100 

DATA 

DO,AD,11,DO,29,7F,8D,11 


<1BH> 

10140 

IF X#<>"J" THEN END 

<GFE> 

1110 

DATA 

DO,A3,F7,BD,12,D0,4C,81 


<MUO> 

1015O 

SYS 57B12'‘2MHZ-IRD"+STRt(SAl ,8,1 

<I6B> 

1120 

DATA 

EA,A5,CB,C6,F9,DO,33,AO 


<MM2> 

1016O 

POKE 230,0 

<NF2> 

1130 

DATA 

02,84,F9,C9,04,FO,38,C9 


<6MQ> 

10170 

POKE 251,SA/256 

<SA9> 

1140 

DATA 

05,FO,29,C9,O6,FO,12,C9 


<ILG> 

10180 

POKE 7BO.250 

<NIH> 

1150 

DATA 

03,D0,OB,A5,F8,C9,09,90 


<RBT'.' 

10190 

POKE 781,215 

<M6V> 

1160 

DATA 

05,39,E9,OO,85,F8,4C,BA 


<;m8p> 

10200 

POKE 782,SA/256 

<SG97 

1170 

DATA 

**,A5,F8,1B,65,F7,C9,FA 


<ITE> 

10210 

SYS 65496 

<OFV> 

1 100 

DATA 

B0,©7,A3,F8,18,69,08,85 


<RDH> 

10220 

OPEN 1,8,15! INPUTN1 ,ER,ER.t: CLOSE 1 

<2LE > 

1190 

DATA 

FB,4C,BA,«»,A5,F7,C9,38 


<TC2> 

10230 

FRINT ER»ER*"<2D0WN>" 

< KG5 > 

1200 

DATA 

90,05,38,E9,00,85,F7,4C 


<32K> 

1024O 

IF ER=0 THEN END 

<GML> 

1210 

DATA 

BA,"*,A3,F7,10,65,FB,C9 


<PTU> 

10250 

PRINT ■' <UP>NOCHMAL VERSUCHEN 1J/N17C4SPACE> 


1220 

DATA 

F8,BO,07,A5,F7,18,69,08 


<K4L > 


"! SET X*1 IF X*-' 1 “ THEN 10250 

<M09> 

1230 

DATA 

85,F7,AD,0D,DC,58,4C,31 


<BI4> 

10260 

PRINT X*i OOTO 10140 

<JSO> 

1240 

DATA 

EA,7B,A2,3i,A0,EA,0C,15 


<290> 



1250 

DATA 

03,8E,14,03,A9,00,BD,30 


<C93> 




1260 

DATA 

D0,BD,1A,D0,5B,60,END 


<SEC> 




9998 




<UJR> 




9999 




<URO> 

Listing 1. Dieser Basic-Lader generiert Individuelle 


1000O INPUT "STARTADRESSE ";SA 

10010 PRINT "CUP)ABSPEICHERN <J/N>?{4SPACEJ" 

GET 

< 66H > 

Versionen des »2 MHz«-Programms. Bitte geben Sie das 


X* 

IF X*="" THEN 10010 


<RN9> 

Programm mit dem Checksummer 128 ein. 

W 


asstap 
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C128 


<F1 > verschiebt das Fenster nach unten 
<F3> verschiebt das Fenster nach oben 
< F5 > vergrößert das Fenster 
<F7> verkleinert das Fenster 

Man kann nun ein Programm nachladen und mit den 
Funktionstasten die gewünschte Geschwindigkeit einstel¬ 
len. Mit zunehmender Geschwindigkeit wird die Bilddar¬ 
stellung zwar immer unübersichtlicher, aber man kann 
zumindest kontrollieren, ob der Computer noch rechnet 
oder eventuell abgestürzt ist. 

»2 MHz IRQ« benutzt folgende Speicherstellen: 

$F7: Rasterzeile, bei der das Textfenster beginnt 
(Zeile-8+48) 


$F8: Größe des Textfensters in Rasterschritten (Größe in 
Zeilen*8-2) 

$F9: Zähler für die Wiederholfrequenz der Funktionstasten 
Mit diesen Adresssen können Sie die 2-MHz-Routine 
auch von einem Programm aus steuern. In Basic erfolgt 
dies durch Poke-Befehl in die einzelnen Speicherstellen, in 
Maschinensprache werden die entsprechenden Befehle 
(LDA, etc.) dazu verwendet. 

Mit dieser Anwendung des Rasterinterrupts wird deut¬ 
lich, daß dieser auch in der praktischen Programmierung 
unterstützend eingesetzt werden kann. 

(Dierk Peithmann/Axel Pretzsch) 


MERGE-Routine 
für Basic-Programme 


Haben Sie sich auch schon geärgert, weil Sie die 
gleiche Routine in mehreren Basic-Programmen 
eingeben mußten? Diese einfache MERGE- 
Routine bringt Abhilfe. Jetzt können Sie Pro¬ 
gramm-Routinen verknüpfen. 

D iese MERGE-Routinen (Listing 1) ist ein rein in Basic 
7.0 geschriebenes Programm und läßt sich daher 
leicht nachvollziehen. Die Funktionstasten werden 
neu belegt und die neue Belegung anfangs am Bildschirm 
anzeigt (siehe auch Tabelle 1) 

Geben Sie Listing 1 mit dem »Checksummer 128« (Seite 
158) ein und speichern Sie es unbedingt vor dem ersten 
Testlauf! Nach dem Starten mit RUN können Sie 
Programm-Module verknüpfen. 

Folgende Schritte sind nötig, um zwei Basic-Programme 
miteinander zu verknüpfen: 

1. Laden des ersten Programms von Diskette durch 
Drücken von <F3>. 

2. Neunumerierung dieses Programms mit <F7>. 
Danach ist es, beginnend mit Zeilennummer 1, in Einer¬ 
schritten durchnumeriert, so daß die höchste auftretende 
Zeilennummer möglichst gering gehalten wird. Mit < F6 > 
wird das Programm gelistet. 

3. Schützen des alten Programms durch <F1 >. Damit 
wird sichergestellt, daß ein weiteres Programm beim Laden 
das bereits im Speicher stehende Programm nicht beschä¬ 
digt. 

4. Laden des anzuhängenden Programm-Moduls mit 
< F3>. 

5. Verketten der beiden eingeladenen Programme mit 
< F2>. Sollten nur die zwei bisherigen Programme ver¬ 
knüpft werden, kann jetzt ein letztes Mal umnumeriert und 
anschließend gespeichert werden. Andernfalls sind die 
Schritte 2 bis 5 für alle weiteren Programm-Module zu wie¬ 
derholen. 

Alle anzuhängenden Programm-Module müssen natür¬ 
lich mit einer Zeilennummer beginnen, die größer ist als die 
höchste Zeilennummer des bereits im Speicher befindli¬ 
chen Programms. Gegebenenfalls ist eine vorherige 
Umnumerierung mittels »RENUMBER« vorzunehmen. 
Eifrigen Programmierern ist deshalb zu empfehlen, sich 
schrittweise eine Modulsammlung anzulegen, in der jedes 


1O0 PRINT CHR*<14> 

110 PRINT "CCLR,2DQWN,2SPACE t RVS0N,9SPACE>flERGE F 
UER £128 X12SPACE,DOWN >" 

120 PRINT "C2SPACEJHEUE DJNKTIONSTASTENBELEGUNG:" 
130 PRINT "XD0WN,2SPACE><£1> ALTEN £ROGRAMMBEREIC 
H SCHUETZEN" 

140 PRINT "CD0WN,2SPACE><£2> VERKETTEN DER PRQGRA 
MME" 

150 PRINT "CDOWN,2SPACE}<£3> ÄLÄ05" 

160 PR TNT " (DOWN, 2SPACE >< £.4 > DAH.VE " 

170 PR''-' 1 " CDGWN,2SPACE><£5> AI-HE.C_Tfl.ILY. " 

180 PRINT " CD0WN f 2SPACE><£6> L.I.5T " 

190 PRINT " CDGWN,2SPACE><£7> JLEXUJLBJL.R 1,1" 

200 PRINT " CDÜWN f 2SPACEX£G> 

210 PRINT "(DOWN,2SPACE5ALTE JASTENBELEGUNG MIT & 
EÄET ! CUP}" 

220 : 

230 KEY 1,"BANK0sA=PEEK(4624)+PEEK <4625)«256-2:PO 
KE2816 1 PEEK< 45 > xP0KE2817,PEEK(46):P0KE46,1NT( 
A/256>:POKE45,A-256*PEEK(46)"+CHR*(13) 

240 KEY 2,"PGKE45,PEEK(2816):POKE46 f PEEK(2817)"+C 
HR*(13) 

250 KEY 3,"DLGAD"+CHR* < 34 > 

260 KEY 4,"DSAVE"+CHR*(34) 

270 KEY 5,"DIRECTORY"+CHR*(13) 

280 KEY 6,"LIST"+CHR*(13) 

290 KEY 7, "RENUMBER 1,1"-‘•CHR* (13) 

300 KEY 8,"DELETE" 

310 i 
320 NEW 


< IT8> 

<8AI > 
<GUT> 

<SGF> 

<HCT> 

<K90> 

<3BV> 

<TUN> 

<0PQ> 

<NS5> 

<1VE> 

<82D> 

<0C1> 


<DRS> 

<B57> 

<JMO> 

<TH5> 

<OCA> 

<2K9> 

<7LG> 

<HEI> 

< 0S3> 

< 401 > 


Listing 1. »MERGE« bitte mit dem Checksummer 128 
(Seite 158) eingeben 



Taste 

Belegung 

Fl 

alten Programmbereich schützen 

F2 

Programme verketten 

F3 

DLOAD" 

F4 

DSAVE" 

F5 

DIRECTORY 

F6 

LIST 

F7 

RENUMBER1,1 

F8 

DELETE 


Tabelle 1. Die neue Funktionstastenbelegung bei MERGE 


Modul mit einer sehr hohen Zeilennummer - beispiels¬ 
weise 50000 - beginnt. 

Die dem Programm zugrundeliegende Technik wurde 
übrigens im Buch »Vom C64 zum C128 - Tips & Tricks« 
beschrieben. (Wolfgang Becker-Adam/Florian Müller) 

Literaturhinweis: Florian Müller, Vom C64 zum C128 - Tips 8 Tricks, Markt 8 Technik Verlag, 
2. Auflage 1987, 290 Seiten inkl. Diskette, ISBN 3-89090-402-5, 49 Mark 
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TIPS&TRICKS 


FAST-Modus bei sichtbarem 
40-Zeichen-Bildschirm 


Der FAST-Befehl des Basic 7.0 ist nicht immer ver¬ 
wendbar, da er den 40-Zeichen-Bildschirm aus¬ 
blendet. Das Programm »C 128-Faster« ermög¬ 
licht nun eine Beschleunigung um immerhin 
30 Prozent bei sichtbarem Bildschirm. 

D er C128 gehört nicht gerade zu den schnellsten Com¬ 
putern. Er bietet jedoch die Möglichkeit, den Prozes¬ 
sor mit einer Takttrequenz von 2 MHz (statt 1 MHz im 
Normalzustand) arbeiten zu lassen. Wenn Sie allerdings 
keinen 80-Zeichen-Monitor besitzen, müssen Sie norma¬ 
lerweise auf diesen FAST-Modus verzichten, da der 
40-Zeichen-Bildschirm dabei abgeschaltet wird. Hier greift 
nun das Programm »C 128-Faster« ein. Es beschleunigt den 
C128 im 40-Zeichen-Modus um zirka 30 Prozent. 

Beschleunigung um 30 Prozent 


Wie funktioniert nun diese neue Variante der Beschleuni¬ 
gung? Dazu muß angemerkt werden, daß der 2-MHz-Be- 
trieb auch durch POKE 53296,1 aktiviert werden kann. 
Dadurch wird aber der Bildschirm nicht abgeschaltet, son¬ 
dern es entsteht ein undefinierbares Flimmern. Um dieses 
Flimmern nun zu verhindern und eine normale Bilddarstel¬ 
lung zu ermöglichen schaltet »C 128-Faster« erst dann auf 
2-MHz-Betrieb, wenn der Rasterstrahl des Monitors die 
letzte Bildschirmzeile passiert hat. In der Rasterzeile umit¬ 
telbar vor der ersten sichtbaren Bildschirmzeile, wird der 
Prozessor wieder auf 1 MHz gebremst. So bleibt der Bild¬ 
schirm trotz des teilweisen 2-MHz-Betriebs erhalten. 

Bildschirm bleibt voll erhalten 


Allerdings ist zu beachten, daß die GRAPHIC-Modi 2 und 
4 (bei diesen werden Grafik und Text gemischt) bei aktivier¬ 
tem »C 128-Faster« nicht benutzt werden können, ebenso 


IO RESTQRE : FQR I- 4064 TD 4986 

< JCE> 

20 READ A*. B-B+DEC <A*) 

< MOV > 

30 NEXT 

<SRQ> 

40 IF BO 14367 THEN PRINT "FEHLER IN DATAS". END 

<C02> 

50 RESTQRE ! FQR I- 4864 TO 4986 

<JSE> 

60 READ A*l A=DEC(A*>: PDK'E I,A 

<IF5> 

70 NEXT 

<CPB> 

0O PRINT "(CLRJC12B FABTER AKTIVIERT" 

<6K5> 

90 PRINT "I2D0WNJEINSCHALTEN MIT I SYS 4B64" 

100 PRINT "{DOWNJABSCHALTEN<2SPACE3MIT I SYS 4968 

<M9P> 

» 

< J2S> 

110 SYS 4864 

120 DATA 7B, A9,1F,0D, 1 4,03, A9, 13,81), 15,03, AD, 11 ,D 

< J34> 

0,29,7F,8D,U,D0,A9,32 

130 DATA 8D,12,D0,A9,81,aD,lA,D0,5S,60,A3,DB,F0,O 

<44A> 

4,29,40,F0,20,AD,11,D0 

140 DATA 29,DF,0D,11,D0,A9,73,85,01,AD,16,DO,29,E 

<TGL> 

F,8D,16,DO,AD,2C,0A,BD 

150 DA1A 10,DO,AD,19,DO,BD,19,DO,AD,12,DO,C9,FA,B 

<VBV> 

O,OD,A9,0O,BDi30,DO,A9 

160 DATA FA,8D,12,DO,4C,33,FF,A9,01,8D,30,D0,A9,3 

<HRV> 

2,0D,12,D0,4C,65,FA,7B 

170 DATA A9,00,0D,30,DO,A9,65,0D,14,03,A9,FA,8D,1 

<THB> 

5,03,58,60,20 

<309> 

Listing 1. »C128-Faster« wird mit »Checksummer 128« 

(Seite 158) eingegeben und muß vor dem ersten Start 

gespeichert werden 

\/ 


wie Operationen am seriellen Bus (Floppy, Drucker, etc.). 
Für diese muß der »C 128-Faster« kurzzeitig abgeschaltet 
werde.',. 

Nun zur Bedienung dieses Utility-Programms. Bitte 
geben Sie Listing 1 (Basic-Lader) mit »Checksummer 128« 
ein und speichern Sie es vordem ersten Start. Geladen und 
gleichzeitig gestartet wird das Programm mit RUN "C 128- 
FASTER ". Daraufhin wird das eigentliche Programm - eine 
Maschinenroutine - im Speicher generiert. Mit SYS4864 
können Sie das Programm aktivieren und mit SYS4968 
abstellen. 

Interessierte finden auf der Programmservice-Diskette 
den Assembler-Quelltext im Hypra-Ass-Format unter dem 
Filenamen »C128-FASTER.SRC«. Damit können Assem¬ 
bler-Freaks das Programm genau unter die Lupe nehmen. 

(Claus Wilke/Florian Müller) 
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C128 


Boolen leiditgemodit 


Die Bootroutine des C 128 kann mehr, als die 
meisten Besitzer dieses Computers vermuten. 
»Uniboot« macht ihre verborgenen Fähigkeiten 
jedem Anwender auf einfache Weise zugänglich. 
Zusätzlich wird der Aufbau des Bootsektors ver¬ 
ständlich erklärt. 

N ach einem Reset beziehungsweise nach dem Ein¬ 
schalten des C128 liest die Bootroutine automatisch 
den Sektor 0 auf Spur 1 der eingelegten Diskette. Soll 
nun tatsächlich ein Bootvorgang stattfinden, muß eine spe¬ 
zielle Codierung (»CBM« in den ersten drei Bytes des Sek¬ 
tors) vorhanden sein. Ist dies der Fall, werden vom 
Betriebssystem weitere Blocks oder gegebenenfalls ein 
Programmfile geladen. Anschließend startet der C128 ein 
Maschinenprogramm, das den Rest des Bootsektors bele¬ 
gen kann. Uniboot hilft dem Anwender beim Erstellen sol¬ 
cher Bootsektoren. Dabei wurde großer Wert auf eine hohe 
Flexibilität gelegt. Ein professioneller Softwareschutz läßt 
sich ebenso einfach realisieren wie individueller Program¬ 
mierkomfort. Im ersten Fall schaltet Uniboot die Unterbre¬ 
chungsfunktionen (Run/Stop, Restore) sowie den Reset ab 
und startet ein nachgeladenes Programm-File. Im zweiten 
Fall holt Uniboot eine individuelle Funktionstastenbele¬ 
gung sowie neue Farbwerte von Disk und aktiviert sie. In 
Tabelle 1 finden Sie die vielen Möglichkeiten von Uniboot 
noch einmal übersichtlich zusammengefaßt. 

Vielfältige Bausteine 


Das »Geheimnis« dieser Vielseitigkeit liegt in der Verwen¬ 
dung einzelner Module, aus denen sich das vollständige 
Boot-File zusammensetzt. Ausgehend von einem Grund¬ 
programm, das alle verfügbaren Routinen beinhaltet, kön- 


- Boot-Sektor automatisch schreiben 

- Funktionstastenbelegung speichern und beim Booten aktivieren 

- Zusätzlichen Datenblock beim Booten laden 

- Benutzer-Routine in Boottile einhaiien 

- Nach »Booting..." einen beliebigen Text ausgeben 

- C64-Modus einschalten 

- Beliebige Farben nach < RUN/STOP RESTORE > einstellen 

- Nach < RUN/STOP RESTORE > im 80-Zeichen-Modus Fast- 
Modus einschalten 

- < RUN/STOP >, < RUN/STOP RESTORE > und/oder 
Reset sperren 

- Beim Booten bis zu drei POKE-Befehle ausführen 


Tabelle 1. Die Leistungen von Uniboot auf einen Blick 

nen Sie nach Belieben einzelne Programmteile ein- bzw. 
ausschalten oderauch durch eigene Entwicklungen ergän¬ 
zen, und erhalten so die optimale Lösung für Ihre indivi¬ 
duelle Problemstellung. 

Bedienung des Programms 
Geben Sie Listing 1 im 128-Modus mit dem Checksum¬ 
mer 128 ein. Zu Beginn kümmert sich Uniboot um die Bele¬ 
gung der Funktionstasten. Da diese erfahrungsgemäß sel¬ 
ten geändert werden (man will sich ja nicht ständig an eine 
neue Belegung gewöhnen), wurde hier auf ein Menü zur 
Eingabe verzichtet. Setzen Sie daher vor dem Start des 
Programms in den Zeilen 1230-1320 die gewünschte Bele¬ 


gung direkt in das Listing ein. Bei den zu belegenden 
Strings gelten folgende Konventionen: 


F$(1)-F$(8) enthält die Belegung der Funktionstasten, 

F$(9) beinhaltet den Text für <SHIFT>+ <RUN/STOP>. 
F$(10) den Text für die HELP-Taste. 


AUFGABEN DES BOOTFILES: 

TASTENBELEGUNGEN BOOTEN ? NEIN 
DATENBLOCK BOOTEN ? JA 
ADRESSE IM SPEICHER: $1000 
NACHLADEN AN ADRESSE: $1000 

PROGRAMMFILE NACHLADEN ? NEIN 

BENUTZER-ROUTINE ANFUEGEN ? NEIN 

TEXT NACH BOOTING (MAX. 32 ZEICHEN» 
>DAS IST EIN BEISPIELTEXT 

C-64-M0DUS EINSCHALTEN ? 


Bild 1. Der erste Teil der Abfragen, um ein individuelles 
Boot-Pogramm auf der Diskette zu generieren 

Der gesamte Text darf dabei nicht länger als 254 Zeichen 
sein. Die Belegung von <SHIFT>+<RUN/STOP> in 
Listing 1 ermöglicht übrigens das Laden eines Programms 
direkt aus dem Directory mit anschließendem Autostart. 

Nun sollten Sie »Ihre« Uniboot-Version mit SAVE ''Datei¬ 
name"^ speichern. Beim anschließenden Start mit RUN 
zeigt Uniboot die Funktionstastenbelegung an, wie sie auf 
Wunsch im Bootsektor festgehalten wird. 

Funkfionstasten belegen 


Im folgenden Programmteil stellen Sie sich Ihr eigenes 
Boot-File zusammen (Bild 1). Wählen Sie mit »J« oder »N« 
die Aufgaben, die Ihr Boot-File haben soll. Das Programm 
sortiert anschließend überflüssige Module automatisch 
aus. 

Ein Beispiel soll Ihnen den Einstieg in »Uniboot« etwas 
erleichtern. In Tabelle 2 finden Sie eine Schritt-für-Schritt- 
Anleitung, wie der Assembler »Double-Ass« (Seite 66) boot¬ 
fähig gemacht wird. 

Insgesamt stehen folgende Möglichkeiten zur Verfügung 
(die Reihenfolge entspricht der Programmstruktur): 

Tastenbelegung booten 

Hier entscheiden Sie, ob die vorher gezeigten Tastenbe¬ 
legungen beim Booten geladen werden sollen oder nicht. 
Wenn ja, werden sie auf dem ersten Sektor der ersten Spur 
der Diskette gespeichert und stehen nach dem Bootvor¬ 
gang sofort zur Verfügung. 

Datenblock booten 

Dies ist nur möglich, wenn keine Tastenbelegungen 
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gebootet werden. Ein ganzer Datenblock (255 Bytes lang) 
kann mit dieser Funktion an eine beliebige Adresse gela¬ 
den werden. Geben Sie dazu bei der Abfrage (Bild 1) die 
Startadresse des Blocks im Speicher (beim Erzeugen des 
Boot-Files) sowie die Zieladresse beim Booten an. Die Ein¬ 
gabe kann entweder dezimal oder hexadezimal erfolgen, 
wobei Hex-Adressen durch ein vorangestelltes »$«-Zeichen 
zu markieren sind. 

Der Datenblock kann je nach Inhalt auf unterschiedlich¬ 
ste Weise eingesetzt werden. Man kann damit zum Beispiel 
Texte direkt in den Bildschirmspeicher laden, ganze 
Zeropage-Blöcke ändern oder ein kurzes Programm-File 
bzw. ein Makro nachladen. Hier sind Ihrer Fantasie kaum 
Grenzen gesetzt. 

Individueller Datenblodc 


Wenn Sie beispielsweise den Block ab $1000 speichern 
und beim Booten wieder an die gleiche Adresse laden, 
speichert Uniboot die Funktionstastenbelegung des Com¬ 
puters ab. So können Sie auch ohne Änderung des Pro¬ 
gramms die Belegung der Funktionstasten sichern. Diese 
ist in den meisten Fällen nicht mit der Belegung von Uni¬ 
boot identisch. 

Programmfile nachladen 

Dieser Punkt ermöglicht das automatische Laden eines 
Programmfiles. Geben Sie dazu den Filenamen an (Länge 
maximal 16 Zeichen). Das File wird absolut (also an die 
Adresse im Programmheader) geladen, daher lassen sich 
auch Maschinenprogramme problemlos handhaben. 

Benutzer-Routine anfügen 

Ist im reichhaltigen Angebot der Boot-File-Aufgaben eine 
von Ihnen benötigte spezielle Problemlösung noch nicht 
enthalten? Mit dieser Funktion können sie eine eigene, 
kleine Maschinensprache-Routine an das Grundpro¬ 
gramm des Boot-Files anhängen. Sie muß im Speicher ab 
$0BB3 laufen und sich während des Ablaufs von »Uniboot« 
auch an dieser Stelle befinden. Die Gesamtlänge kann 77 
Byte betragen. Diese Größe reicht für kleinere Anwendun¬ 
gen völlig aus. Wenn Sie mehr Platz benötigen, geben Sie 
bei »Datenblock booten« zweimal die Startadresse $0C00 
an - damit steht Ihnen der Bereich von $0BB3 bis $0CFF 
zur Verfügung. Die Routine muß mit RTS enden, da sie als 
Unterprogramm aufgerufen wird. Durch Aktivieren der 
Benutzer-Routine verringert sich der Platz für den Boot- 
Text (folgender Punkt) um 3 Byte. 

Eigene Boot-Texte 


Text nach Booting 

Beim Booten gibt der Computer die Meldung »Booting« 
aus, der ein beliebiger Text folgen kann. Diesen können Sie 
hier eingeben. Für den Text sind 16 Zeichen reserviert. 
Zusätzlich wird der Platz genutzt, den der Filename freiläßt. 
Maximal sind also 32 Zeichen möglich. 

C64-Modus einschalten 

Ein Bootfile mit dieser Funktion sollte (außer bei kopier¬ 
geschützten Originalprogrammen) auf jeder Ihrer C64- 
Disketten vorhanden sein. Der Computer springt dann 
nach dem Booten automatisch in den C64-Modus. Vorher 
wird allerdings das Programmfile (und der Datenblock) 
nachgeladen, die dann auch im C64-Modus verfügbar 
sind. Einzige Bedingung dabei: Die Startadresse des 
Programm-Files muß größer als $1300 (dezimal 4864) sein. 
Diese Boot-Variante ist also nicht für C64-Basic-Program- 
me geeignet. Für Assembler oder verschiedene Tools, die 


Ein individueller Boot-File für »Double-Ass«: 

1. Kopieren Sie »Double-Ass« auf eine neu formatierte Diskette. 

2. Belegen Sie mit KEY x,"..." im Direktmodus des C128 die 
Funktionstasten nach Ihren Wünschen. 

2. Laden Sie »Uniboot« mit LOAD "UNIBOOT",8. 

3. Nach der Anzeige der Funktionstastenbelegung (die sich höchst¬ 
wahrscheinlich von Ihrer Belegung unterscheidet) müssen die 
Abfragen des Programmes so beantwortet werden: 


Tastenbelegungen booten NEIN 

Datenblock booten JA 

Adresse im Speicher $1000 

Nachladen an Adresse $1000 

Programmfile nachladen? JA 

Filename DOUBLE-ASS 

Benutzer-Routine anfügen? NEIN 

Text nach Booting: DOUBLE-ASS 

C64-Modus einschalten? NEIN 

Default-Farbwerte ändern? JA 

Reset-Taste inaktivieren? NEIN 

Poke-Befehl ausführen? NEIN 

Autostart durchführen? JA 

Farbwahl: Wählen Sie Ihre »persönlichen Farben« 
80-Zeichen-Werte einstellen? JA 

Folgen Sie den Anweisungen auf dem Bildschirm 
Directory zeigen? NEIN 

Wollen Sie abspeichern? JA 


4. Diskette mit »Double-Ass« einlegen und Boot-Flle speichern. 
Sobald der Bootblock auf die Diskette geschrieben wurde, kön¬ 
nen Sie ihn durch einen Druck auf die Reset-Taste testen. 


Tabelle 2. So wird »Double-Ass« (Seite 66) mit einem 
eigenem Bootsektor versehen 


Bvie 

Inhalt und Funktion 

000 

CBM-Kennung für Boot-Block 

003 

Adresse für den Datenblock 

005 

Nummer der Bank, in die geladen wird 

006 

Anzahl der nachzuladenden Blöcke 

007 

Bootmeldung 
$00 am Ende 

bis 

Filename 
$00 am Ende 

041 

Bereich, der wahlweise die Daten für 
drei POKEs 

einen POKE und den Zeiger auf die 
Default-Farben-Routine 

einen POKE und die Sperrung von < RUN/STOP 
RESTORE> 

zwei POKEs und < RUN/STOP > sperren 
zwei POKEs und <RESTORE> sperren 
enthält, je nachdem welche Konfiguration bei 
»Default-Farben«, »RUN/STOP sperren« und 
»RESTORE sperren« gewählt wurde 

056 

Autostart-Modul 

073 

Default-Farben-Routine ändert den Warmstart-Vektor 
und ruft folgendes Unterprogramm auf: 

097 

Farben-Unterprogramm wird in jedem Fall nach dem 
Booten aufgerufen, gegebenenfalls auch nach 
< RESTORE>. Ändert Vorder-/Hlntergrund- und 
Schriftfarbe im 40-Zeichen-Modus bzw. Schriftfarbe 
und Fast-Modus bei 80-Zeichen-Darstellung. 

107 

C 64-Reset schreibt in Bank 0 den Text »CBM80« an 
Adresse $8004 und richtet den Reset-Vektor auf die 
Killer-Routine 

118 

C 128-Reset schreibt in Bank 1 an Adresse $FFF8 den 
Sprungbefehl zur Killer-Routine 

152 

Killer-Routine wird bei Reset aufgerufen, erzeugt Farb¬ 
streifenmuster in einer Endlosschleife 

166 

Daten der Routinen (CMB80, RUN <CR>) 

178 

bis 

255 

frei für Benutzer-Routine 


Tabelle 3. So belegt »Uniboot« den Bootsektor 
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sich meistens im RAM-Bereich ab $8000 bzw. $C000 befin¬ 
den, ist diese Option aber ideal. 

Falls der C64-Modus aktiviert wurde, werden die nun fol¬ 
genden Wahlmöglichkeiten übersprungen, da sie nur im 
Cl28-Modus funktionieren. 

Default-Farbwerte ändern 

Am Ende dieses Menüs können Sie sich Ihre Lieblings- 
Farbzusammenstellung aussuchen. Dieses Modul sorgt 


Gliederung 

Zelle 

Funktion 

1100-1160 

Initialisieren 

1200-1290 

Funktionstastenbelegung 

1330-1360 

Anzeige der Funktions-Tastenbelegung geschieht 
einschließlich der Grafikzeichen, was durch Simu¬ 
lation von < INSERT> möglich wird 

1350 

Aussortieren von <CR> und <SHIFT> <CR> 

1380-1390 

Zusammenbauen der Texte zu Block 2. 

Format: Länge der 10 Texte, dann die Texte hin¬ 
tereinander ohne Trennzeichen, wird direkt nach 
$1000 geladen 

1400 

Decodieren der Hex-Datas für Block 1 

1420-2110 

Auswahl der Boot-File-Funktionen 

1470 + 1500 

Bearbeiten der Eingabe 

1520 

Einlesen des Datenblocks aus dem Speicher 

1530 

Sprungbefehl zur Benutzer-Routine einfügen 

1570 

Benutzer-Routine aus Speicher einiesen 

1620-1630 

Boot-Text zerlegen und in Block 1 schreiben 

1640-1650 

Filename zerlegen und in Block 1 schreiben 

1670 

Sprung in den C 64-Modus einfügen 

1710 

<RESTORE> ausschalten 

1730 

< RUN/STOP> ausschalten 

1770 

Reset sperren 

1800-1860 

POKE-Befehl durch LDA #xx : STA yyyy erzeugen 

1920 

Autostart-Modul einschalten 

1930-2040 

Farbenmenü 

2050-2110 

Unterprogramm zum Farbenmenü 

- Tasten abfragen 

- Werte setzen 

2150-2510 

Daten speichern 

2190 

Directory zeigen 

2200 

Datenkanäle zur Floppy öffnen 

2220-2230 

Die Datenblöcke probeweise belegen. Tritt ein 

Fehler auf, sind sie schon belegt. 

2240-2270 

Sind die ersten 3 Zeichen in Block 1 »CBM"? 

Nein: Programm-File 

Ja: Boot-File 

2280-2300 

Steht ab Byte 175 der Text »RUN«? 

Ja: Uniboot-File 

Nein: Fremdes Boot-File 

2310-2370 

Gegebenenfalls fragen, ob trotz Programm/frem¬ 
dem Boot-File gespeichert werden soll 

2410-2500 

Blöcke endgültig belegen 

2510 

Datenkanäle schließen, Programmende 

2520-2540 

TRAP-Routine: Bei Fehler Warnton + Close + Help 

2550-2570 

Ja/Nein-Abfrage 

2580-2610 

Eingabe der Daten 

2650-2760 

Daten für Block 1 


nun dafür, daß nach jedem < RUN/STOP RESTORE> statt 
den üblichen Farben wieder diese Wunschfarben einge¬ 
setzt werden. Außerdem wird im 80-Zeichen-Modus nach 
< RUN/STOP RESTORE> automatisch der Fast-Modus 
aktiviert. Sollten Sie die Farbwerte geändert haben, sind 
natürlich die nächsten beiden Punkte unsinnig und werden 
daher übersprungen. 

RESTORE-Taste sperren 

Die Kombination < RUN/STOP RESTORE> wird hiermit 
unwirksam gemacht. Die RUN/STOP-Taste funktioniert 
aber wie gewohnt. 

STOP-Taste sperren 

Falls Sie diese Funktion in Ihr Boot-File einbauen, ist eine 
Unterbrechung durch < RUN/STOP > nach dem Booten 
nicht mehr möglich. Die Kombination < RUN/STOP 
RESTORE> funktioniert allerdings nach wie vor. Außer¬ 
dem verliert die Sperre nach dem ersten Betätigen der 
RESTORE-Taste Ihre Wirkung. Deshalb ist diese Option 
nur dann sinnvoll, wenn ein versehentliches Unterbrechen 
des Programms verhindert, ein gewollter Ausstieg aber 
weiterhin machbar sein soll. 

Reset-Taste inaktivieren 

Dies ist für einen guten Programmschutz interessant. 
Wenn Sie dazu noch die RESTORE-Taste sperren, ist Ihr 
Programm vor fremden Zugriffen geschützt. Sie können 
wählen, ob der Reset im C128- oder im C64-Modus 
gesperrt ist. Nach dem Reset wird ein Farbstreifenmuster 
erzeugt, ansonsten passiert nichts. Der Rechner ist nur 
noch mehr durch Aus- und Einschalten wiederzubeleben, 
wobei natürlich alle Programme gelöscht werden. 

Programme schützen 


Natürlich können Sie die letzten drei Punkte auch beliebig 
miteinander kombinieren, um so Ihre Programme optimal 
zu schützen. 

POKE-Befehl ausführen 

Eine unkomplizierte, universelle Funktion für alle, die 
nicht gleich ein komplettes Programm schreiben wollen. 
Durch die POKEs können Sie einige Sonderwünsche, wie 
etwa einen List- oder Save-Schutz, problemlos ausführen. 
Geben Sie die POKE-Adresse und den POKE-Wert an. Es 
wird dabei immer die Bank 15 beschrieben, alle Zeropage- 
Adressen sind von dort erreichbar. Mindestens ein POKE- 
Befehl steht zur Verfügung. Haben Sie die STOP- bezie¬ 
hungsweise RESTORE-Taste nicht gesperrt, erhöht sich 
die maximale Anzahl um jeweils eins, Sie können also im 
Höchstfall drei POKEs einsetzen. Hier einige Beispiele für 
nützliche POKEs: 

Listschutz: 

Tastatur abschalten 
Tasten-Repeat aus: 

Save-Schutz: 

Autostart durchführen 

Dieses Modul ist nur wählbar, wenn auch ein Programm- 
File nachgeladen wird. Es schreibt die Zeichenfolge RUN 
<RETURN > (CHR$ (13)) in den Tastaturpuffer und führt 
so nach dem Ladevorgang einen Autostart aus. 

Farbe nach Wunsch 


Nach dem Zusammenstellen der Modulteile legen Sie im 
Farbmenü die gewünschte Farbkombination fest. Nur wenn 


POKE 775,139 
POKE 2592,0 
POKE 2594,0 
POKE 818,50 



Tabelle 4. »Uniboot« nach Programmzellen gegliedert 
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Liste der wichtigen Variablen 

Felder 

F$(10) 

Funktionstastenbelegung 

B1(255) 

Codes für den Boot-Block 

B2(255) 

Codes für den Datenblock 

Strings 

A$ 

Enthält die Eingaben 

N$ 

Filename 

TX$ 

Text nach »Booting« 

Numerische Variablen 

l,J 

Schleifenzähler 

L 

maximale Länge 

- der Eingabe 

- der Funktionstastenstrings 

- des Boot-Textes 

AD 

POKE-Adresse bzw. Adresse, an die der Datenblock 
geladen wird 

W 

POKE-Wert bzw. Adresse des Datenblocks im 

Speicher 

C,P 

Block-Zähler, speichern den Platzbedarf einzelner 

Module 

Z 

Cursorzeile 

s 

Cursorspalte 

Flags 

FT = 1 

wenn keine Tastenbelegungen und kein Datenblock 
gespeichert werden sollen 

PF = 1 

wenn ein Programm-File geladen werden soll 

RS = 1 

wenn im C128-Modus der Reset gesperrt wurde 

BR = 1 

wenn < RUN/STOP> gesperrt sein soll 


So arbeitet »Umboot« 


Soviel zu den Möglichkeiten, die Sie mit Uniboot haben. 
Doch wie wurde all dies softwaremäßig verwirklicht? 

Die Antwort auf diese Frage soll Ihnen Tabelle 3 in Verbin¬ 
dung mit den Tabellen 4 und 5 geben. Hier finden Sie den 
Aufbau des Bootsektors von Uniboot, eine Gliederung des 
Programms und die Liste der wichtigsten Variablen. 
Betrachten Sie weiterhin Listing 1. 

Zum Schluß noch ein Tip: Wollen Sie einen optimalen 
Software-Schutz realisieren, wird ein kurzes Ladepro¬ 
gramm notwendig, welches das zu schützende Programm 
nachlädt. Die Unterbrechungstasten sowie der Reset wer¬ 
den nämlich erst nach dem Laden der Programm-Files 
gesperrt. (Christian Paul/Axel Pretzsch) 


oni. 


Tabelle 5. Die wichtigsten Variablen von »Uniboot» finden 
Sie hier übersichtlich aufgeteilt 


»Default-Farbwerte ändern« eingestellt wurde, bleiben sie 
auch nach < RESTORE > erhalten. Die Farben wählen Sie 
durch Betätigen der Cursortasten. < RETURN > bestätigt 
die Eingabe. 

Wenn Sie mit Ihrer individuellen Kombination fertig sind, 
werden die Daten auf Diskette gespeichert. Legen Sie dazu 
die Diskette in Ihr Laufwerk ein, die das Boot-File enthalten 
soll. Im Zweifelsfall können Sie sich vorher das Directory 
zeigen lassen. 

Das Programm führt vor dem Speichern einen Block-Test 
durch und teilt Ihnen mit, ob die benötigten Blöcke frei oder 
von einem alten Boot-File, von einem Programm-File oder 
von einem fremden Boot-File (zum Beispiel bei CP/M) 
belegt sind. In den beiden ersten Fällen ist das Speichern 
problemlos möglich, bei einer Belegung durch ein Pro¬ 
gramm-File oder einen fremden Boot-Sektor riskieren Sie 
Datenverlust, wenn Sie trotzdem speichern! 

Sobald Sie »grünes Licht« gegeben haben, wird gespei¬ 
chert. Die Blöcke werden in der BAM als belegt gekenn¬ 
zeichnet, um ein versehentliches Überschreiben zu verhin¬ 
dern. Die Anzahl der freien Blocks beträgt daher nur noch 
662. 

Zum Ausprobieren Ihres erzeugten Boot-Files drücken 
Sie einfach die Reset-Taste. Wie gewohnt erscheint zuerst 
die Einschaltmeldung. Dann allerdings wird die Meldung 
»Booting«, gefolgt von Ihrem Text, ausgegeben. 

Nach dem Laden des Datenblocks läuft die Floppy gege¬ 
benenfalls erneut an, um das Programm-File zu laden, 
danach wird gegebenenfalls die Benutzer-Routine (siehe 
oben) gestartet. Erst dann springt der Computer in den 
Direktmodus. 


1000 REM ***►*»«••#»**#***#•##*#** 

1010 REM • UNIVERSAL-AUTOBOOT * 

102O REM * FUER C12B * 

1030 REM #====3====S==3=B==a=ES=# 

1040 REM * IDEE & PROGRAMM VON * 

1050 REM * CHRISTIAN PAUL * 

1060 REM * ROSENWEG 4 * 

1O70 REM * 6300 GIESSEN 21 * 

10B0 REM »»»»»»»IHM»*###*##**«**** 

1090 : 

1100 TRAP 2520: IF RWINDDW(2)°40 THEN 1120 
1110 PRINT "BITTE 5CHAL T EN SIE AUF 40-ZEICHEN UM' 
" CHR* <27)"X" 

1120 COLOR 0,1: COLOP 4.1: SCNCLR : OPEN 3,0 
1130 PRINT CHRi- (19) CHRt (19) j PRINT " CRED? **.«*■ *>. 
»»»».«»«»» " 

1140 PRINT "(YELLOWJUNIVERSAL-AUTOBOOT" 

1150 PRINT " <RED> *+*** ****jt***j>*».** <LIG. GREEN) " l 
PRINT 

1160 DIM F$(10),B1<255>,B2<255>r BANK 15 

M7.-, : 

1100 Ren funktionstasten-belegungen 

1190 : 

1200 F* (i 1-CHRt (71 -+“DIRECTORY"»CHRt(13) 

1210 Fi (2) -CHRt < 71 -► " NON I TOR " +CHR* (13) 

1220 Fi (3) = " DLOAD " »CHRt < 341 »CHRt (20) +CHR* (34) 

1230 Ft!4)«"DSAVE"»CHR*< 341+CHR* < 20)+CHR*(341 
1240 F*!5)="P0KE" 

1250 F*(6)-"PRINT PEEK((5BPACE31<6LEFT>" 

1260 F* (7) =CHRt (T > t" LI ST'' +CHR* (13 > 

1270 Ft(0)=CHRi(71 *•" RUN“»CHRt(13) 

1200 Ft ,••?) -CHRi (7) *"DLOAD"-+CHR* i9> +-CHR* (9) +CHRi ( 9 
>+CHR*(1571+": "»CHR*(13>+CHR*(7H-"RUN: “•►CHRI 
(13) 

1290 Ft <10)»CHRt(141)+"UNIVERSAL-AUTOBOOT»►CHRt(1 
41)+" IDEE ti PR0GRAMM:"4C:HR*(141)+"C2SPACE>C 
HRISTIAN PAUL"»CHRt(14!)+CHR»(14!) 

1300 : 

1310 REM DATENBLOECKE KONSTRUIEREN 
1320 : 

1330 PRINT i PRINT “FUNKTIONSTASTEN—BELEGUNGEN:" 
CHRt(159)1 PRINT i PRINT 

1340 FOR 1-1 TO 101 L-LEN(FKI) ) i BL-6L»L: B2U-1 
>*L: PRINT "<WHITE>KEY"I": “iCHRt(159)i POKE 
245, L 

1350 FOR J-l TO L: At=MID*CF*(I), J ,1)i IF A*=CHR* 
(13) OR A*-CMRt(141) THEN A*-"+" 

1360 PRINT At; i NEXT i PRINT : NEXT 
1370 IF GL>245 THEN PRINT “(2DOWN12UVIEL TEXT !"l 
GOTO 2510 

1300 P-10: FOR 1-1 TO 101 FOR J=1 TO LEN(Ft(I>) 
1390 B2(P)-ASC(MIDt(Ft(I>,J))s P-P-+1: NEXT l NEXT 

1400 FOR I-O TO 170: READ At: Bl(I)-DEC(At): NEXT 
: GLOW 

1410 PRINT "(2D0WN.LIG.GREEN,RVSON)TASTE(RVOFF)"| 
: GET KEY At 

1420 SCNCLR : PRINT "CYELLOW,DOWNJAUFGABEN DES BO 
OTFILES: ": PRINT '• WED)YYYVP?YWxYYWyYYY/YV 
TV" 

1430 PRINT "<2D0WN>"|CHRtU59)|"I2SPACE5TASTEMBEL 
EGUNGEN BOOTEN ?";: GOSUB 2550: IF TH 

EN 1540 

1440 PRINT : PRINT "<BSPACE>DATENBLOCK BOOTEN ?"i 
: GOSUB 2550: IF At="J" THEN 1460 
1450 Bl(61-01 FT-1: GOTO 1530 

1460 PRINT : PRINT "(2SPACE>ADRESSE IM SPEICHER: 

":: L=5: GOSUB 2500 

1470 IF LEFT*(At,l)-"t" THEN W-DEC(RIGHT*(At.LEN( 
Atl-lll: ELSE W=VAL(Atl 

1400 IF W>65200 OR W<0 OR WOINT(W) THEN PRINT "< 
2UP)"l: GOTO 1460 


Listing 1. »Uniboot« bitte mit dem Checksummer 
(Seite 158) eingeben 


<340 

<3CD> 

< 3KE > 
C3SO 
<24Q> 
<2C9> 
<2KA> 

< 2SB > 

< 1 44> 
<5GN> 

< KD J > 

<BKl> 

<e7N> 

< 1NG> 
<QTM> 

<D1R> 

< 05 1 y 

<3GF> 

<1K6> 

< 4GJ > 
<188: 
<KF9> 
<m7n:> 
<7M8- 
<6DN> 
<DKE> 
<E3C> 

< RC1 > 


<LA3> 
2f)9 
< 2SB !- 
<30D> 

<H»M > 


<F'N4; 
<78R> 

<F'MM > 

vHBGz 

< EPG > 
<34P> 
COBG> 

<H79> 

<uie> 

<43U> 

<IBI> 

<ONK> 

< BBH > 
<V9F/ 
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C128 


1490 PRINT l PRINT " NACHLADEN AN ADRESSE: ":: L= 
5: GOSUB 2580: AD-VBL(A»> 

1500 IF LEFT*(A*,1)="*" THEN AD=DEC(RIGHT* (A*,LEN 
IA*)-1)):. ELSE AD-VAL(AI) 

1S10 IF AD',-65280 OR ADv0 OR AD' > INT (AD) THEN PRIN 
T "(2UP)";: SOTO 1490 
1520 FOR 1=0 TO 255: B2<I>=PEEK<W+I): NEXT 
1530 Bl(4)=1NT(AD/256): Bl(3)=AD-256*B1(4I 
1540 PRINT "1DOWN,3SPACEJPROGRAMMFILE NACHLADEN ? 
" t : QOSUB 2550: IF A*="N" THEN PF=1: GOTO 15 
60 

1550 PRINT 11 {DOWN 1FILENAME: “ i i L-16: GOSUB 2580: 

N*-A» 

1560 PRINT "C2D0WN1BENUTZER-ROUTINE ANFUEGEN ?”|: 

GOSUB 2550: IF A*-"N" THEN 1600 
1570 EX-3: Bl(3B)-32: Bl(39>=179: 81(401=11 
1580 PRINT : PRINT "STARTADRESSE: »0BBI - 2995" 
1590 FOR 1-179 TO 255: Bl<I)=PEEK<2816+I>: NEXT 
1600 L-32-LEN(N*)-EX: PRINT : PRINT "(DOWN)TEXT N 
ACH BOOTING (MAX."L"ZEICHEN):“ 

1610 PRINT : PRINT ••>•',: GOSUB 2580: TX*=A* 

1620 C=7: FOR 1-1 TO LENITX*): Bl<C)"ABC(MIDT(TXT 
,1)1: C=C+1: NEXT 

1630 Bl (0-0: C=C+ 1 : IF N*-"" THEN 1650 
1640 FOR 1=1 TO LENIN*): B1(C)-ASC(MID*(N*,I)): C 
=C+1: NEXT 

1650 Bl <0-0: FOR I-C+l TO 40-EX: Bl (11=234: NEXT 

1660 PRINT : PRINT "<DOWN,3SPACE)C-64-MODUS EINSC 
HALTEN GOSUB 2550 

1670 IF A*="J" THEN Bl<41)=76: BK42I-75: B1I431- 
226: GDTO 2150 

1680 0=10: PRINT "(DOWNJDEFAULT-FARBWERTE AENDERN 
7”;: GOSUB 2550 
1690 IF A* = " J" THEN 1740 

1700 C=0: PRINT "(DOWN,4SPACE JRESTORE-TASTE SPERR 
EN ?":: GOSUB 2550: IF A*-"N" THEN 1720 
1710 Bl <41*0 = 169: B1(42*C)-9B: 61(43+0=141: Bl( 
44*0 =24: Bl (45*0=3: C=5 
1720 PRINT "tD0WN,7SPACEJST0P-TASTE SPERREN ?":: 

GOSUB 2550: IF A*="N" THEN 1740 
1730 B! 141-0=169: Bl (42+0 =112: Bl (43+0 =141: Bl 
(44+0=40: 61(45+0=3: C-C+5 
1740 PRINT "(DOWN) RESET-TASTE INAKTIVIEREN ?";: 

GOSUB 2550: IF A*="N" THEN 1800 
1750 PRINT "(DOWN) ... IM C-12B-M0DUS ?";: GOSUB 
2550: RS=0: IF A*="J" THEN RS=1 
1760 PRINT "(D0WN,2SPACE>... IM C-64-M0DUS 7" ;: B 
OSUB 2550: IF A*="N" THEN 1790 
1770 Bl(711=107: IF RS-0 THEN Bl(1181=76: Bl(119) 
=79: Bl(120)=ll 
1780 GOTO 1800 

1790 IF RS=1 THEN Bl(711=118 

1800 PRINT “(DOWN,3SPACE)P0KE-BEFEHL AUSFUEHREN 7 
"j: GOSUB 2550: IF A*="N" THEN 1880 
1810 PRINT "(DOWN,2SPACEJAN WELCHE ADRESSE POKEN 
7 : L-5: GOSUB 2580: AD-VALIA*) 

1820 IF AD<0 OR AD>65535 OR ADO INT (AD) OR ASC(A* 
1>57 THEN PRINT "(2UP)"i: GOTO 1810 
1830 PRINT TAB(17)"(DOWNJPOKE-WERT: L=3: GOSU 

B 2580: FW=VAL(A*) 

1840 IF PW 0 OR PW>255 OR PWOINT(PW) OR ASC(A*)> 
57 THEN PRINT "(2UP)";i GOTO 1830 
1850 PRINT : Bl (41+0 =169: BK42+CI=F'W: 61(43+0 = 
141 

1860 H-INT(AD/2561: Bl(44+0«AD-H+256: B1(45+C)=H 
: C-C+5 

1870 IF C<15 THEN 1800 
1880 IF 05 THEN 1900 

1890 FOR I-C TO 10: 61(41+11=234: NEXT 
1900 IF PF THEN 1920 

1910 PRINT •• <D0WN,3SPACE)AUT0START DURCHFUEHREN 7 
"|| GOSUB 2550: IF A*-"J” THEN 1930 
1920 B! (561=76: Bl (571-70: BKSBl-ll 
1930 IF RWINDOW(21=80 THEN PRINT "BITTE 40-ZEICHE 
N-MODUS EINSCHALTEN " '" CHR*(271"X 
1940 SCNCLR : PRINT 11 (2DOWN.VELLOW5FARBWAHL 4© ZE 
ICHEN-SCHIRM" 

1950 PRINT " <RED)y7VW7WYV7VV777W9VY9YW7(2D0WN 
1"lCHR*(1591 

I960 PRINT "(5SPACE)RAHMENFARBE:": AD-332B0: GOSU 
B 2050: Bl (B«)=W 

1970 PRINT "(D0WN1HINTERBRUNDFARBE:": AD-532B1: 8 
OSUB 2050: B1<BS)=W 

19B0 PRINT "(DOWN,4SPACE)ZEICHENFARBE:": AD-24I : 
GOSUB 2050: BK901-W 

1990 PRINT " (2DOWNJ80-ZEICHEN-WERTE EINSTELLEN ?" 

;: GOSUB 2550: IF A*="N" THEN 2150 
2000 IF RWINDOW(2)=40 THEN PRINT "(D0WNJB1TTE AUF 
00 ZEICHEN UMSCHALTEN • 1 I" CHR*(27)"X 
201© SCNCLR c PRINT "FARBWAHL 00-ZEICHEN-SCHIRM": 

PRINT i m 11 r m i m f:Ti 11 iV: 1 : r" 

2020 PRINT "(2D0WN,4SPACE)ZEICHENFARBE:": AD-241: 

80SUB 2050: B1I9B1-W 
2030 IF RWIND0W(2)=40 THEN 2150 

2040 PRINT "(3D0WN>BITTE WIEDER AUF 40-ZEICHEN UM 
SCHALTEN 1 ( !•• CHR*(27)"X": GOTO 21S© 

2050 W-PEEK(AD) AND 15 

2060 PRINT "(UP>" TAB(171W+l"(LEFT) ": GET KEY A* 
2070 IF A*="(RIGHT)" THEN W-W+Ii IF W-16 THEN W-0 
2080 IF A*="(LEFT)" THEN W=W-1: IF W=-l THEN W=15 
2090 IF A*=CHR*(13) THEN RETURN 

2100 POKE AD,W: IF AD-241 THEN PRINT "(UP.4SPACE) 
ZEICHENFARBE:" 


<G03:- 

<0K3> 

< OUA > 
•'7HG> 
<B72> 


•'.7M3> 


< U11 

<M2T> 
<T9V> 
( DFE > 
(0C0> 

<TDT> 

s9LL> 

<JER> 

<HSF> 

; GJF> 

■:opm: 


<ELR> 

<050 

<S9G> 

<K6E> 

FI1J> 

<Q23> 

<RBP> 

<41A> 

<DLK> 

<B7G> 

<4S4> 

<MNF> 

<565> 

<8TT> 

<9R0> 

<LA9> 

<BI4> 

<LD6> 

<3L0> 

<E0T> 

<HPF> 

<F0K> 

<5DK> 

<563> 

1MN> 

<MBP> 

<V2B> 

<J95> 

<UCD> 

<L56> 

<909> 

;dm6> 

<UOE> 


<FJE> 
(M6F > 

■:SI7> 

<osb:> 

<49J> 

<QRJ> 

(JJH) 

OMH> 


;uvt> 


2110 BOTO 2060 <@GI)> 

2120 : <70T> 

2130 REM DATENBLOECKE ABSPEICHERN <0C1> 

2140 : <40H > 

2150 BR=1: SCNCLR : PRINT "CYELLOWTDATEN ABSPEICH 
FRN" : PRINT " (F-FC) »*#******-*«++*" , FHP: ( 1 5 


9) <REQ> 

2160 PRINT : PRINT l PRINT "BITTE LEGEN SIE DIE D 

ISKETTE EIN," <2M4> 

2170 PRINT "DIE DEN AUTOBOOT-FILE ERHALTEN SOLL.“ 

: PRINT : PRINT <V4U> 

2180 PRINT "DIRECTORY ZEIGEN ?”(: GOSUB 2550: IF 

A*="N" THEN 2200 <B47> 

2190 PRINT "(LIB.GREEN)": DIRECTORY : PRINT CHR*( 

159): GOTD 2180 <N7B> 

2200 FAST t OPEN 1,8,15: OPEN 2,8,13,"»": BR-0 <IF2> 

2210 PRINT : PRINT : PRINT "ERGEBNIS DES BLOCK-TE 

STB:(LIB.GREEN)": PRINT <A35> 

2220 PRINTH1,"B-A 01 0": IF DS<>0 THEN 2240 <MPP> 

2230 PRINT»1,"B-A © 1 1": IF DS-0 THEN 2400 J70> 

2240 PRINT»1,"Ul 13 0 1 0": N»="" <D20> 

2250 FOR 1=1 TD 3: GET #2,A*: N*=N*+A*: NEXT <5IH> 

2260 IF D5O0 THEN PRINT DS*: GDTO 2160 <FH3> 

227© IF N*0"CBM" THEN 2350 <VU3> 

2280 PRINT*1,"B-P 13 175": N*="" <VME> 

2290 FOR 1=1 TO 3: GET »2,A*: N*=N*+A*: NEXT <6IT> 

2300 IF N*<>"RUN" THEN 2330 <E7B> 

231© PRINT "DER AUF DIESER DISKETTE BEREITS VOR-" <73T> 

2320 PRINT “HANDENE BOOT-FILE WIRD UEBERSCHRIEBEN 

GOTO 2410 <PJ3> 

2330 PRINT "AUF DIESER DISKETTE BEFINDET 5ICH" <LDC> 

2340 PRINT "BEREITS EIN FREMDER AUTOBOOT-FILE 

GOTO 237© <M3H> 

2350 PRINT "DIE BLOECKE SIND BEREITS VDN" <FL7> 

2360 PRINT "EINEM PROBRAMMFILE BELEGT !" <9V2> 

2370 PLAY “U9T8D01C": SLOW : PRINT CHR*(159)"(2D0 

WNJWOLLEN SIE TROTZDEM SPEICHERN ?"j <6BF> 

2380 GOSUB 2550: IF A*="N“ THEN CLOSE 2: CLOSE 1: 

GOTO 215© <GBG> 

2390 FAST : GOTO 2430 <9C1> 

240© PRINT "EIN NEUER AUTOBOOT-FILE WIRD ANGELEGT 

<92H> 

2410 SLOW : PRINT : PRINT CHR*(159)"WOLLEN SIE AB 

SPEICHERN 7";: BOSUB 2550 <R24> 

242© IF AS="N" THEN CLOSE 2: CLOSE 1: GOTO 2150 <OAT> 


2430 PRINT»!,"B-F 0 1 0": PRINT»1,“B-F 0 1 1": PR 

INT : N*="" <PE0> 

2440 PRINT "(DOWN)EINSTELLUNGEN WERDEN GESPEICHER 

T PRINT : FAST <RK5> 


245© PRINT»!,"B-P 13 0": FOR 1=0 TO 255: PRINT»2, 

CHR*(Bl(111i: NEXT <OII> 

2460 PRINT»!,"U2 13 0 1 0": PRINT "BLOCK 1: "DS* <O0L> 

2470 IF FT THEN 250© <3D3> 

2480 PRINT»1,"B-P 13 0": FOR 1=0 TO 255: PRINT#2, 

CHR*(B2(I)1;: NEXT <QAI> 

249© PRINT#1,"U2 13 0 1 1": PRINT "BLOCK 2: "DS* <3JS> 

250© PRINT»1,"B—A 0 1 0": PRINT»1,"B-A 0 1 1": PR 

INT "BELEGEN: "DS* <625> 

2510 CLOSE 3: CLOSE 2: CLOSE 1: SLOW : END <0C3> 

2520 IF BR THEN IF ER-30 THEN RESUME NEXT <00G> 

2530 PRINT : PRINT "(DOWN)?" ERR*(ER)" ERROR IN"E 

L CHR*(7) : CLOSE 2: CLOSE 1: CLOSE 3 <J19> 

2540 SLOW : HELP : END <N3S> 

2550 GET KEY A*: IF A*<>"J" AND A*<>"N" THEN 2550 <TM7> 

2560 L-PEEKI241): IF A*="J" THEN PRINT "(CTRL+G,U 

HITE) JA": ELSE PRINT ”(CTRL+S,WHITE) NEIN" <QLO> 

2570. POKE 241,L: RETURN <F6H> 

2580 Z-PEEK(235): S=PEEK<236) <C25> 

2590 WINDOW S,Z,S+L-1,Z,1: PRINT CHR*(27)"M" <V7V> 

7600 INPUT»3, 0* t IF A*- 11 " THEN 2600 <NSG> 

2610 WINDOW 0,0,39,24: POKE 235,Z: PRINT CHR*(27> 

"L": RETURN <COR> 

262© : < 001> 

2630 REM DATEN FUER BLOCK 1 <3SF> 

2640 : <30D> 

265© DATA 43,42,4D,0O,10,00,01,EA,EA,EA,EA,EA,EA, 

EA,EA,EA <UP8> 

2660 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA, 

EA,EA,EA <R5B> 

2670 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,A9,49,80,00, 

OA. A9.0B <BKL> 

2680 DATA 8D.01,0A,EA,EA,EA,EA,EA,A2,04,86,D0,CA, 

BD,AF,0B <EAG> 

2690 DATA 9D,4A,03,CA,10,F7,4C,4F,0B,20,4F,0B,4C, 

03,4©,A9 <F2E> 

2700 DATA 00,8D,20,D0,A9,00,BD,21,D0,A9,01,B5,F1, 

24,D7,1 © <M1M> 

271© DATA 09,A9,07,05,F1,A9,01,8D,30,D0,60,A2,08, 

BD,A6,0B <IBR> 

2720 DATA 9D,00,80,CA,10,F7,A9,F8,B5,FC,A9,FF,85, 

FD,A9,FC <1NM> 

2730 DATA BD.B9,©2,A9,98,A2,01,A0,00,20,77,FF,A9, 

OB, A2,01 <NFO> 

274© DATA A0,01,20,77,FF,4C,4F,0B.EE,20,D0,EE,2I, 

D0.A2.E8 091 > 

2750 DATA CA,D0,FD,4C,98,0B,98,©B,00,00,C3,C2,CD, 

38,30,52 <9FP> 

2760 DATA 55.4E.0D <E2N> 


Listing 1. »Uniboot« bitte mit dem Checksummer 128 
(Seite 158) eingeben (Schluß) 
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TIPS&TRICKS 


Schnelles Sortieren 
mit dem C128 


3000 Strings in 2 Sekunden sortiert - eine super¬ 
schnelle Sortierroutine für den C128, die in 
Maschinensprache geschrieben ist. 

W er die Literatur zum C128 aufmerksam verfolgt, 
wird feststellen, daß noch nirgendwo eine schnelle 
Sortierroutine in Assembler für diesen Computer 
veröffentlicht wurde. Der Grund, warum noch keine derar¬ 
tige Routine vom C64 auf den C128 umgesetzt wurde (für 
den C64 gibt es bereits eine Unzahl eleganter Programme 
zum schnellen Sortieren), ist in der Schwierigkeit zu 
suchen, die der C128 dem Programmierer durch seine 
Bankverwaltung stellt. 

3000 Strings in 2 Sekunden sortiert 


Wir wollen dieses Manko beseitigen und liefern Ihnen mit 
»Quicksort C128« eine Sortierroutine, die nur zirka zwei 
Sekunden zum Sortieren von 3000 Strings benötigt. 

Im Rahmen des Kurses »Effektives Programmieren« ver¬ 
öffentlichten wir in der Ausgabe 7/86 des 64’er-Magazins ein 
rekursiv arbeitendes Quicksort-Maschinenprogramm, das 
den Prozessorstapel verwendet und sehr schnell arbeitet. 
Dieses Programm war die Basis für Quicksort 128. Wichtig 
bei der Umsetzung war auch, daß man die Sortierroutine 
auch noch nachträglich - beispielsweise aus einem bereits 
laufenden Basic-Programm - laden und starten kann. 

Zwei Probleme sind es vor allem, die bei der Umsetzung 
der C64-Routine einem schnellen Erfolg im Weg liegen: 
eine andere Art der Speicherung von String-Array- 
Elementen beim C128 und die Bankstruktur dieses Com¬ 
puters. Sehen wir uns die Lösungen der Reihe nach an. 

Die String-Arrays im C128 


Ein beispielsweise durch DIM A$(1000) definiertes String- 
Array erzeugt in der Bank 1 des C128 drei Arten von Einträ¬ 
gen. Am Anfang eines String-Arrays steht der Array-Kopf 
(oder auch Header genannt), der dem im C64 erzeugten 
gleich ist (siehe Tabelle 1). 

An diesen Kopf schließen sich die einzelnen Array- 
Elemente an. Beim String-Array sind das jeweils 3 Byte, die 
man String-Descriptoren nennt (was etwa String- 
»Beschreibungen« bedeutet). Tabelle 2 zeigt Ihnen den Auf¬ 
bau eines solchen String-Deskriptors. Wer den C64 genau 


Byte 

Inhalt 



Byte 1 

Array-Name 

1. Buchstabe (ASCII-Code) 

Byte 2 

2. Buchstabe + Kennung 

(ASCII-Code+128) 

Byte 3 

Array-Länge 

als 16-Bit-Wert, LSB 

Byte 4 

Byte 5 

Anzahl Dimensionen 

8-Bit-Wert 

MSB 

Byte 6 

Anzahl Elemente in letzter 
Dimension 

16-Bit-Wert, 

LSB 

Byte 7 



MSB 

Byte 8 ff. 

Anzahl Elemente in vorletzter 

LSB 


Dimension und so weiter 




Tabelle 1. Aufbau des Array-Kopfes (String-Array) 




kennt, stellt den identischen Aufbau fest. Der dritte Eintrag 
ist nun der jeweilige Text, dessen Länge und Adresse im 
Descriptor angegeben ist. Tabelle 3 erläutert diesen Text¬ 
eintrag. 

Die in der Tabelle 3 zuletzt genannten zwei Byte gibt es 
beim C64 nicht. Durch sie wird eine unangenehme Verzö¬ 
gerung bei der Stringverarbeitung, die sogenannte »Gar- 
bage Collection«, erheblich beschleunigt. Einer der Tricks 
bei Sortierprogrammen ist es, zum Ordnen der Texte nicht 
die Texte selbst, sondern die dazugehörigen Descriptoren 
zu vertauschen. Beim C128 genügt das aber - wegen der 
beiden zusätzlichen Bytes - nicht. Man muß auch diese 
Code-Descriptoren auswechseln. Die im Descriptor ange¬ 
gebene String-Länge umfaßt nur die ASCII-Codes des Tex¬ 
tes. Addiert man diese String-Länge zur String-Adresse 
(Byte 2 und 3 im Descriptor), dann erhält man einen Zeiger 
auf diese Code-Descriptoren. In den Zeilen 3180 bis 3450 
des beigefügten Quelltextes (Listing 1) finden Sie diese 
Berechnung und die Vertauschung der Code-Descripto¬ 
ren. 

Bankprobleme 


Von St: Problemen mit der Bankverwaltung weiß ein jeder 
C128-Assembler-Programmierer Klagelieder zu singen: 
Wo legt man am besten ein Maschinenprogramm ab, damit 
es fehlerfrei arbeitet? Hier ein kurzer Überblick: 

In der Bank 0 liegt der Basic-Text im Bereich von $1C00 
bis $FF00. In Bank 1 finden sich alle Variablen; Arrays und 
Strings liegen im Bereich zwischen $0400 und $FF00. Der 
Basic-Interpreter, das Betriebssystem und die Ein- und Aus¬ 
gabeeinheiten finden sich in Bank 15 von Adresse $4000 an 
aufwärts. Im Einschaltzustand liegt folgende Konfiguration 
vor: 

Von $0000 bis $3FFF ist Bank 0 und von $4000 bis $FFFF 
ist Bank 15 aktiviert. Viel freier Platz für Maschinenpro¬ 
gramme (zirka 2,3 KByte) findet sich unterhalb des Basic- 
Bereichs in Bank 0 von $1300 bis $1BFF. 

Keine Probleme entstehen für kurze Assembler¬ 
programme, die sich mit diesem Speicherbereich in der 
Bank 0 zufriedengeben. Ebenfalls möglich ist der Zugriff 
aus einem Maschinenprogramm auf Routinen der Bank 15 
(weil diese ja ab $4000 eingeblendet ist). Aber bei einem 
Zugriff auf Bank 1 - also die Variablen - wachsen plötzlich 
ungeahnte Schwierigkeiten hervor: Die Bank 1 müßte ein¬ 
geschaltet werden. Dann vergißt der Computer aber das 
Programm in der Bank 0. Man muß also in die Bank 1 


Byte 

Inhalt 


Byte 1 

String-Länge 


Byte 2 

Adresse des Textes 

LSB 

Byte 3 

Adresse des Textes 

MSB 


Tabelle 2. Der Aufbau eines String-Descriptors 


irgendwie eine anzuspringende Routine packen, die dann 
wieder die Bank 0 einschaltet. Wohin aber mit dieser Rou¬ 
tine, wenn man nicht massiv in den Speicher eingreifen will 
(von $0400 an bis $FF00 liegen ja die Variablen)? Nun gibt 
es die sogenannte Common-Area zwischen $0000 und 

C7 
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C128 


Byte 

Inhalt 


Bytel bisn 

ASCII-Codes der Zeichen des Textes 


Byte n+1 

Adresse des zum Texteintrag gehörenden 



Descriptors, 

LSB 

Byte n+2 


MSB 


Tabelle 3. Der Aufbau eines Textfeldes 


$0400. Das ist ein Speicherbereich in der Bank 0, der von 
allen anderen Bänken aus zugänglich ist und von dem aus 
man auf alle anderen Bänke zugreifen kann. Leider ist 
diese Common-Area (»gemeinsamer Bereich««) aber rand¬ 
voll mit der erweiterten Zeropage, ein Programm hat hier 
keinen Platz mehr. Was tun? 

Zunächst gibt es die Möglichkeit, die Common-Area so 
zu vergrößern, daß das von uns benötigte Programm darin 
Platz hat. Ein MMU-Register erledigt das, und einige wei¬ 
tere Zeiger müssen verändert werden (Basic-Start, Varia¬ 
blenzeiger, Bildschirm-Adresse, etc.). 

Dieses Vorgehen scheitert aber dann, wenn man - wie 
wir es hier benötigen - das Maschinenprogramm aus 
einem laufenden Basic-Programm heraus laden und star¬ 
ten will. Es sei denn, man gewöhnt sich an, an den Anfang 
jedes Programms grundsätzlich diese Speicher-Umkon- 
figurationen zu legen. Das schafft aber einen unnötigen 
Programmaufwand, der vermieden werden sollte. 

Nützliche Betriebssystem-Routinen 


Eine andere Möglichkeit ist die Verwendung bestimmter 
Routinen des Betriebssystems (FETCH, STASH, etc.) für 
die Kommunikation zwischen den Bänken. Im Prinzip ver¬ 
langsamen diese Routinen zwar den Ablauf der Pro¬ 
gramme etwas, ihre Verwendung ist aber häufig unver¬ 
meidbar. Im vorliegenden Fall aber, bei dem der Prozessor¬ 
stapel als Zähler für die Rekursionstiefe dient, wird der 
Gebrauch dieser verschiedenen - mittels JSR aufzurufen¬ 
den - Routinen zum gefährlichen Spiel. Jeder JSR-Befehl 
wirkt sich auf den Stapel aus, was zu Abstürzen der Sortier¬ 
routine führen kann. 

Man hätte natürlich das ganze Quicksort-Programm 
noch in die Bank 1 legen können. Auch das entfällt wegen 
der damit nötigen Veränderungen der Speicherorganisa¬ 
tion (wie gesagt: Das Programm sollte aus einem laufen¬ 
den Basic-Programm heraus...). 

Die Lösung 


Die Lösung erscheint auf den ersten Blick etwas unge¬ 
wöhnlich: Das Programm wird in den Speicherbereich ab 
$1300 in Bank 0 geladen. Nach den Start beginnt eine Ver¬ 
schieberoutine, den Qicksort-Teil Byte für Byte in die 
Common-Area (ab $0200) zu verschieben. Gleichzeitig 
wandert der Inhalt der Common-Area in den zuvor vom 
Quicksort-Programm belegten Speicher: Es findet also ein 
Austausch statt. Nach erfolgter Verlagerung startet das nun 
in der Common-Area liegende Programm, schaltet die 
Bank 1 ein, sortiert das erste definierte Array, schaltet wie¬ 
der die normale Speicherkonfiguration ein und sorgt für 
einen erneuten Austausch. 

Weil die per Betriebssystem festgelegten Interrupt- 
Bearbeitungen Speicherstellen der Common-Area verän¬ 
dern, bleiben die Unterbrechungen vom Programmstart bis 
zu seinem Ende unterbunden. 

Listing 2 zeigt »Quicksort 128«, das Sie bitte mit dem 
MSE eingeben (beachten Sie dazu Seite 158). In Listing 1 
finden Sie den mit dem Top-Ass erstellten Quelltext für 


Quicksort 128. Listing 3 zeigt ein kleines Basic-Testpro- 
gramm, das den Gebrauch der Sortierroutine zeigen soll. 

Noch einige Hinweise: Das zu sortierende String-Array 
muß als erstes Array definiert sein. Quicksort ordnet es 
dann in aufsteigender Reihenfolge. Gestartet wird die Sor¬ 
tierroutine mit 
SYS DEC ("1300") 

Von einem Programm aus kann Quicksort 128 einfach 
mit dem Befehl 

BL0AD"QUICKSORT 128" 

nachgeladen werden. 3000 Strings alphabetisch zu sortie¬ 
ren dauert etwa 2 Sekunden, was Sie mit dem Basic- 
Testprogramm (Listing 3) ausprobieren können. Dieses 
Testprogramm erzeugt per Zufall die gewünschte Anzahl 
Strings (zu je drei Buchstaben) in einem Array, zeigt sie auf 
dem Bildschirm, sortiert sie dann und zeigt das sortierte 
Feld erneut an. Eine Zeitangabe für die Sortierdauer findet 
statt, ist aber wegen des abgeschalteten Interrupts wäh¬ 
rend des Sortierens mit Vorsicht zu genießen. 

(Heimo Ponnath/Martin Jobst) 


ready. 


10 



20 

-j • 

• 

3lD 

- 1 - c 128 


4L" 

-1 • 

• 

30 

~S* heimo ponnath hamburg 1986 • 

61? 

nach einer c64-routlne von i.sovrensen 64er 7ID6I • 

70 

-I» 

• 

90 

“I 


100 

- 

.base »1300 

1 lfl 

- 

.codo 0,*9300 

120 

“1 


130 

-;progr. «startet bei 

•1300, wird aber bei asaembllerung ab *9300 abgelegt 

140 

-i um nicht den quelltest oder den topass zu zerstoeren. 

1S0 

der code muss per 

monitor nach »1300 geschoben werden. 

160 

— i _ 







190 

- 

. dof i ne x adr= »Wasadresse von a*<M) in »tfa/tib 

200 


.define yadr= SOc-,adresse von aS(y> ln St»c/0d 

210 

- 

-define vadr= Stle; adr esse von a»(v) in »Oe/t3f 

220 

- 

.dofint» .ides= S 1 t"s descr iptor a*(«l ln » 10 , 11,12 

230 

— 

.define ydes= *13;doscriptor a»iy) ln »13,14,15 

240 

- 

.define vdes- *16;descriptor aStv! ln »16,17.18 

250 

- 

.define lg= »19 (linke grenze in *19,la 

260 

— 

•define rg- »ib irechte grenze in *lb,lc 

270 

— 

.define verl- »lds 1 aengenvergleich 

280 

- 

.define zwap- •le|zwischenspelcher (1 bytel 

290 

- 

.defing zwcpl= » 1 fszwischenspeleher (2 bytel 

300 

— 

.define zwsp 2 = » 21 |zwi*cht*ncpeicher 12 bytel 

310 

"1 


320 

- 

• define arytab= » 31 s f e! danf ang in bank 1 

330 

“I 


335 

- 

.define st 1 - »fb|umladvvol tur 

340 

- 

.define stin- »fcistapel eingangswert 

350 

- 

• define stml = *fü; Stapel itu ni n»um ,u*l adovel tor 

360 

- 

.define stug- »feiStapeluntergrenze 

370 

-1 

380 


.define eero- » 200 ;hl er faengt das verschobene progra 

mr* a 


385 

ramm 

~ 

.define retour- »03dbsendadresse Im verschobenen prog 

390 

“1 


«00 

- 

.define er- *f fi» 0 i konf igur ationsregl Ster 

41# 
*7f ) 


.lief in« 1 erb- »f «B 2 l laMUnntral tragt -f-r l> (•ofHaaU 

420 

-1 


430 

-| 


440 

-j 


450 

■* . _ 


470 



475 

-»teuere 

»ol lunterbrechungen verhindern 

400 

- 

l*r umlad iprogr«am umladen ln common area 

490 

- 

1 da »<(zerol (Indirekten »prungvektor 

5*0 

• 

»ta atl lauf neuen programrnanfang richten 

310 


ld« » tzero) 

320 

- 

«t« «t1*1 

530 

mm 

“ 

Jmp <et 11 |sprung in« umgeladene autcksartprogra 

540 

-leave 

j»r umlad (common area re»taurleren, Programm zu 

r uoc l« hol on 


345 

- 

eil lunterbrechungen frei geben 

330 

- 

rt» ixurueck in» ba»lcprogramm 

360 

-i 


370 

-|- Unterprogramm 

zum umladen von commonbereich und Programm —- 

300 

“1 

590 

-umlad 

Ida « (zerol (voktor quellber eich belegen 

600 

- 

uta st 1 | 1 mn 

610 


lda n (zerol 

620 

- 

»t a st 1 »l | msb 

630 

- 

lda u (anfangl ivektor zielberotch belegen 

640 

- 

«*t- »tmi il»b 

6' 


lda ii (anfangl 

660 

- 


670 

“1 


6 BP 


ld* «»PI lanxahl pagee -1 (512 bytes umladen! 

690 

-umladl 

ldy »»00 ioffoet Initialisieren 

res 

~umlad 2 

lda Istll , y ibyte aus quellbereich lesen 

710 

- 

Dha sbeiseite legen 

720 

- 

lda (stmil.y ibyte au» xielbereich lesen 

730 

- 

ata (atl) , y | und ln quellbereich schreiben 

740 

- 

pla (byte wieder hervorholen 

750 

— 

sta (stmil.y iund in riolbereich schreiben 

760 

~ 

iny jnaechstes byte 

770 

- 

One u«il ad2 ibi« 236 bytoa vertauscht 9ind 

788 

- 

inc st 1 * 1 :msb quellbvreich orhoehon 

790 

- 

inc stmi+l «und msb ziolboroich ebenfalls 

800 

- 

den ! pageraehler herunterzaehlen 

81* 

• 

beq unladZ (weiter bis unterlauf eintrltt 

820 

— 

rt» izurueck ins steuerprogramm 

830 


840 




58 
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TIPS &TRICKS 


—— zu verschiebendes pragramm ———-—— 

speicherkonfiguratJon umschatten auf bank 1 (alias r«m> —- 


890 -anfang 
er gesetzt 

900 -| 

9iiS 

sta lerb 

(dadurch wird der Inhalt des perb 

930 



930 

-1 



960 

- 1 - «tapelzeiger - 



970 

•■star t 

ts« 

l Stapel zeigor ms n-registor 

980 

- 

stx stln 

(und abapelchern 

99l» 

- 

stx stim 


1 000 

— 

txa 

(freien platz Im stack sichern 

101 ® 

— 

sec 


102 ® 

— 

sbc »»32 


103® 

- 

hes spr 

(genug pl atz t wei ter , sonst. 

1040 

— 

Jmp retour 

laboruch «ins programmau 

105® 

-spr 

ade ««02 

lStapel untergrenze 

1 ®60 

- 

st« ntug 

(fest legen 

10/0 

I :.itr opagemh«! te 

ol i. her n 


1080 

- 

ld« ■»l9 

1 z aehl er im tl al i sleren 


199« -spwog tda »0a < X 

1109 - pha 

1110 - d#K 

1120 - bpi zpweg 

113® - tSX 

1140 - stx stln 

US® -l 

1160 -1 -teil 2 i fest logen anfangsbedingungen 

1170 

1180 -i- schachtelungstiefe 


lumladeschlel tm 
Iwerte auf Stapel legen 

Ibis alle Inhalte gesichert 
iutapelfeiger als eingangs- 
iwert festhalten 


1190 -sort 
1200 - 
1210 - 

1220 -|- Unke grenze 

1230 - 

1240 - 

1250 - 

1260 - 

1270 - 

1200 - 

1290 - 

»300 -j- rechte grenzi 

1310 - 

1320 - 

1330 - 

134® - 

1350 - 

136® - 

1370 - 

1380 - 

139® - 

1400 - 

1410 - 

1420 - 

1430 - 

1440 - 

1450 - 

1460 - 

1470 - 


1 da *«00 
pha 
pha 
lg -1 - 

clc 

lda arytab 
ade ** 0 a 
sta lg 
lda arytab +1 
ade ««08 
ata lg +1 
' rg«a - 


I »lernen! a» < l > im 
loroten definierten 
larray festste!len 
jund adresse In 
|lg und lg*l 

(elntragen 

i«*»( 0 ) wird ueber spr ungen 

I letztes elemont a»(a) 
(durch addieren der feld- 


clc 

ldy **02 

lda (arytab),y jlaengo zum arrayetart 
ade arytab 
tax 
iny 

lda (arytab),y 
ade arytab *1 
tay 


txa 


übe *»03 
sta rg 
pha 
tya 

sbc *«00 
sta rg*i 
pha 

bne vstrmg 

- vorSchachtelungstiere z -1 - 


I 1 aengo des letzten descriptors 
Iabziohon um dlo start- 
Iadresse von a»(a> zu 
(ermitteln und nach 
jrg/rg*l und auf den 
(Stapel zu schieben. 


1500 - 
1510 - 
1520 -bruecke4 
1530 -j 

13*3 -teil 3; 


156« -1- X=lg, y-rg - 
1570 -i 


immer Verzweigung 


646R 


bne sart 

vcrgleichsstring berechnen 


1580 

-vstrmg 

ldx »«03 

(Inhalte 

1590 

-laduy 

lda lg ,k 

1 in xadr 

1600 

— 

sta xadr,n 

1 umladen 

1610 

- 

de» 


1620 

- 

bpi ladxy 


163® 

“1 



1640 

- 1 - v“x*y - 



1650 

“1 



1660 


clc 

1 addierer 

1670 

- 

lda xadr 

(ersten i 

1680 

“ 

ade yadr 

1 letzten 


1690 - 
1700 - 
1710 - 
1720 -| 
1730 > 

1740 -| 
1750 - 
1760 - 
17701 - 
1780 - 
1790 - 


1810 - 
1020 - 
1830 -sprl 
1040 -| 

1850 -i- verglelchsstring v*“«»(v> - 
1860 -| 


lda xadr*l 
ade yadr*l 


txa 

rar 

bcc sprl 
»bc «S0I 
bcs spr I 
üec vadr*l 
sta vadr 


startadressen des 


imsb der summe rachts shlften 

idivlslon durch 2 

llsb der summe rechts rotieren 

I summe gerade,dann Sprung 
(sonst begradigen 

(wenn unterlauf msb korrigier# 


1870 - 
1800 - 
1890 - 
1900 - 
1910 - 
1920 - 
1930 - 
1940 - 
1950 - 
1960 -| 

1970 -|- teil 4i 

1980 -| 

1990 -i- strlng llr 
2000 

2010 -verglM 
202® - 
2030 - 
2040 - 
2050 - 
2060 - 
207® - 
20BO - 
2090 - 


2100 -i- str 1 ng 1 aengonvorg 1 eich - 


ldy *»®0 
lda (vadr>,y 

ata vdos 

iny 

lda (vadr).y 
sta vdes*l 
»ny 

lda (vadr >,y 
sta vdos *2 

stringvorglsich linker teil —-—— 


ks von vSi )(•-«• (x> 

ldy *000 

lda (xadr),y 
sta «ides 
lny 

lda (uadr),y 
sta Mdos*l 
Ihy 

lda (xadr),y 
sta Kdos*2 


Idescnptor von v« uebertragon 


(descrIpto 
I ln xdes 


"* uobertragen 


2110 - 
2120 - 
2130 - 
2140 - 
2150 - 
2160 - 
2170 -spr2 
2190 -( 

2190 -|- stringvergleich 
2200 -( 

2210 - 

2220 -verglxl 
2230 - 
2240 - 
2250 - 


Id» *»00 
lda «des 
emp vdes 
bcc spr 2 
inx 

lda vdes 


x* kuerxer als v»i 
k - 0 , ver 1 - lei 
v* kueraer x»i 
x - l 
ver 1 - len(v») 


sta 


rl 


m* < oder > v* 
ldy ««00 


(Offset initialisieren 
lda (xdes+1),y (Zeichen holen 
emp <vdes*l),y (und vergleichen 
bno verglx2 (Zeichen ungleichi Sprung 
lny 


2260 

. 



cpy venl 

(«chon stringlaenge erreicht? 

2270 

- 



bcc vor gl k 1 

mein,naechstes Zeichen 

2280 

- 



cpu- *»lM 


2290 

-vergl k 2 



bcs ver gly 


2300 

-» 





2310 

-i- naechstes 

clomant 

Vergleichern x B x+l 

232® 

”1 





233® 




clc 

lerhoehen von »adr um 3 

2340 

— 



lda xadr 

(fuer den naechoten 

2350 

. 



ade *«03 

1 str mgdescriptor 

2360 

- 



sta »adr 


2370 

- 



bcc vergl >: 

(weiter zum naorhr.ten vergleich 

2380 

- 



lnc xadr*l 


239® 

- 



bcs vergl« 


2400 

”1 





2410 

-l- Sprung 





2420 

-drusckoS 



bn# bruecke4 


243® 

-brueckel 



bcc vstrlng 


2440 

-1 





243® 

-1 -teil 

Si 

stringv 

•rglelch rochtor 

teil --- 

246® 

”1 





2470 

-|- string 

rechts von 

v« i y«-a«( y > 


2480 

-1 





2490 

-vergly 



ldy *»00 

1 descrlptnr von y» ueoertragon 

2500 

- 



Ido < yadr ) ,y 

lln yOet. 

2510 

- 



st.a yrioa 


2520 

— 



lny 


2530 

- 



lda (yadrl.y 


2540 

- 



sta yd #»*1 


2550 

- 



lny 


2560 

— 



lda (yadr >,y 


2570 

- 



sta yde **2 


2580 

- 1 - str 1 nglsengenver glolch - 


259® 

— 



Id'. «*0Ö 

(wenn v* kuerzor als v*i 

2600 

— 



lda vdes 

1 x = ® , ver 1 s : on < v«) 

2610 

- 



emp ydes 

(wenn y« kuerzer « 1 « v«: 

2620 

- 



bcc spr3 

1 M » l 

2630 

- 



ln« 

1 vor 1 « l«n(yl) 

2640 

— 



lda ydes 


2630 

-spr 3 



sta verI 


2660 

“1 





2670 

str 1 ngvergl eich i 

y» < oder > v» 


2680 

“1 





2690 




ldy **P>® 

(offmet initialisieren 

2700 

-vorglyl 



lda <vdos*l),y 

1 Zeichen halon 

2710 




emp <ydes*l>,y 

lund vergleichen 

2720 

- 



bne vergly 2 

(Zeichen ungleichisprung 

273® 

- 



iny 


2740 

- 



cpy ver 1 

(schon stringlaenge erreicht? 

2750 

— 





2760 

- 



cp« »«Ol 


277® 

-vergly 2 



bcs tausch 


2700 






2790 




2800 

-I 





2010 




coc 

(yadr um 3 Oytos 

2820 

- 



lda yadr 

(orniodrigon fuer den 

2830 

— 



sbc **03 

(naoehston 

2840 

- 



sta yadr 

;str 1 ngdescriptor 

2850 

— 





2860 

- 



dec yadr *1 


287® 

- 



bcc vergly 


2880 

-1 





2B90 

- 1 - nprung 





290® 

-bruecke 2 



bcs vergl« 


2910 

-hruocfco3 



bcc brueckel 



-br. -c> e6 



bne ürueckoS 


2930 

-i 


strings 



2950 

-i 




2960 

-j-pruefen 

ob 

x >= y 

— 


2970 






2980 

-tausch 



lda yadr*l . 


2990 

- 



emp xadr * 1 


3000 

- 



bcc brueckeB 

(wenn x>y dann Sprung 

3010 

- 



bno awap 

(wenn x<y aann vertauschen 

3020 

- 



lda »adr 

(lob vergleichen 

3030 

- 



emp yadr 


3040 

- 



bcs bruecke9 

(wenn x y dann Sprung 

3050 

"1 






3060 -1 - vertauschen der String- und codcdoccnptoren - 
3070 -i- strinQdescrlptorem - 


(x-descrlptor 
(nach AS(V) 

Iy-descriptor 
mach A« (XI 


3090 

- 

ldy 

•»02 

31®® 

-swapl 

lda 

xdes.x 

311® 

- 

sta 

(yadr),y 

3120 

• 

lda 

ydos.x 

3130 

— 

eta 

(«adr»,y 

314® 

— 

de« 


3150 

— 

doy 


316® 

— 

bpi 

swapl 

3170 

“I 



318® 

-|- codedescrlptoren: - 


317® 

-1 



3200 


clc 


wn 




3210 

— 

lda 

udes*l 

3220 

— 

ade 

“des 

3230 

- 

sta 

zwspl 

324® 

— , 

lda 

xdeo *2 

325® 

- 

ade 

*•00 

3260 

- 

sta 

xwap 1*1 

327® 

“1 



3280 


clc 


3290 

— 

lda 

ydoo*l 

3300 

- 

ade 

ydes 

3310 

- 

sta 

zw»p2 

332® 

- 

lda 

ydes *2 

333® 

- 

ade 

«•00 

334® 

- 

sta 

zwsp 2 *l 

335® 

“1 



336® 


ldy 

• *01 

337® 

-swap 2 

ld« 

(zwopl) ,y 

338® 

- 

st« 

zwsp 

339® 

• 

lda 

(zwsp 2 >,y 

3400 

— 

sta 

(zwspl),y 

3410 

- 

ld« 

zwsp 

342® 

- 

sta 

(zwsp 2 >,y 

3430 

— 

dey 


3440 

- 

beq 

swap 2 

3450 

-1 



3460 

naechste 

descriptoradresse «ex*l 

3470 




348® 


clc 


3490 

- 

ld« 

x«dr 

3500 

- 

•de 

*•03 

3510 

— 

st« 

xadr 

3520 

- 

bcc 

spr4 

3530 

— 

lnc 

xadr*l 

3540 

"I 



3530 

- 1 -naechste 

descriptoradr« 

*"■ V-V-l 

3560 

-1 



3570 

-spr4 

sec 


3380 

- 

lda 

yadr 

3390 

“ 

sbc 

*•03 


i n-r - 


'hn* 


der orte der codedescriptu 


I lob x-string 

(plus stringlaenge 

lergibt lsb dos ortes coaedescriptor 

imsb x-string 

Ieventuell carry addieren 

i«sb ort codedoscrIptor i< 

(dasselbe fuer den y-strina 
llsb 

I* stringlaenge 

llob zelger auf codedoscriptor y 
imsb 

Imsb des zelger« 

Ixaohler Initialisieren 
IcodedoscrIptor n laden 
lund beiseite legen 
(codedoscrIptor y laden 
lund nach x schieben 
|H wieder hervorholen 
lund nach y schieben 
Iherunterz aehlen 
|bis unterlauf des xaehlers 


zur aktuellen adrease 
des n-strlng 
3 byte addieren fuer 
neue descrlptoradressi 


(von der aktuellen adresse 

Idos y-string 

13 byte subtrahieren fuer 


Listing 1. Die schnelle Sortierroutine Quicksort 128, 
hier als Top-Ass-Quelltext. 
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0128 


36fflW 

- 


sta 

yaor 

(neue descrlptoradreaae y 

3610 

— 


bco 



3620 

- 


dec 

yadr*l 


3630 

-1 





3640 

-I—f4lls x ■;« y 

- 




3630 

-* 





3660 

-nprS 


lda 

yadr»1 

lmap y-doscriptoradresse vergleichen 

367W 

- 


c mp 

»adr »1 

»mit msb .i-doscrlptoradresse 

3600 

- 


bcc 

estufen 

(wenn » y dann sprung 

3690 

— 


bnu 

bruecke 2 

»wenn .. y dann sprung 

3700 

- 


ld- 

yadr 

llnb ydeocriptoradresse vergleichen 

3710 

— 


emp 

"adr 

»mit lob ii -dearr l ptor adr esse 

3720 

— 


bco 

bruecke 2 

(wenn p y dann sprung 

373» 

- 


bcc 

J»tui*n 


1740 

-1 





3730 

-(- sprung .- 





3760 

-bruocielfl 


bcc 

brueck e3 


3770 

-Ur necke? 



brueckeft 


370* 

-bruec keil 


bcc 

astufen 


3790 

-br UBCke9 


bc« 

«stufen 


3000 

-1 





3810 

l teil 7i n 

•nächste schachte» ungst i o* w ermitteln .. 

307* 

“1 





3030 

-l z-r-l.rg-y 

- 




304* 

-splUS 


lda 

rg 

|rechte grenze auf den 

3030 

- 


pha 


(etapul acht etiwni 

3060 

- 


»da 

rg.» 

(bedeutet z-z»l 

3070 



pha 



3800 

“ 


lda 

yadr 


3890 

- 


ata 

rg 

(ist doscriptoradrwose von y 

39*0 

— 


ld- 

yad*. 1 


3910 

- 


ata 

rg*l 


3920 

- 


clc 


(hier erfolgt immer sprung 

3930 

“ 


bcc 

br necke 10 

(nach vstrina (neuer vergl etchaotrInt 

3940 

-1 





3930 

-l- lg - lg*l 





3960 

-zgleich 


clc 


(zur linken grenze 3 bytes 

397* 

- 


lda 

ig 

(addieren fuer den 

3980 



ade 

• •03 


3990 

— 


sta 

ia 


4O0P 

- 


bcc 

spr6 


4010 

— 


inv 



4020 

-spr 6 


sty 

lg*l 


4030 

~ 


cpy 

rg*l 

im*M> der grenzadrocaon vergleichen 

4040 



bcc 

bruecko 10 

(wenn rg .• lg sprung nach vstrlng 


“ 


bne 

zminus 

1 nenn rg ' ly sprung nach arnmus 

4060 

“ 


emp 

rg 

;lsb grenzadrencen vergleichen 

4070 

“ 


bcc 

brueckel 0 

»wenn rg > lg sprung nach vstrlng 


— 


6ch 

Zatlnus 


4090 

-1 





4100 

-zstu* on 


lda 

ig 

(vergleich llnko grenze mit 

4110 

“ 


ldy 

1 g * 1 

1 y-descr 1 ptoradr esse 

4120 

— 


cpy 

yadr * 1 

(msb-verglelch 

4130 



bcc 

stack 

(wenn yadr lg dann Sprung 

4140 

— 


bne 

zgleich 


4130 

- 


emp 

yadr 

(sonst lsb-vergleich 

4160 

" 


bcc 

stack: 

(wenn yadr > lg dann sprung 


4170 

41B0 

4190 

4200 

4210 

422« 

4230 

4240 

4230 

4260 

4270 

42Q0 

4290 

4300 

4310 

4320 

4330 

4340 

4330 

4360 

4370 

4300 

4390 

440O 

4410 

4420 

4430 

4440 

4430 

4460 

4470 

4480 

4490 

4300 

4310 

4320 


-1- »topp 

-stack 


cp» stmi 
bcs eplus 
stx stmi 
cp» stug 
bco splus 
Id» BtlO 
t»B 

bne bruecke? 


pl« 

*ta rg*l 
Dl« 
ata rg 
ld» rg*l 
CP» 4400 
bne «gl«rieh 


cueckkehr ln« beste 


-|- Stapel Zeiger - 


tKB 


-I 

- 1 - zaropage surueckhol an - 

ld» HS00 

-xprueck pla 

«ta « 0 a,» 

ln» 

~ cp» lila 

bcc zprueck 


Isonst aprung nach zgleich 


I aktuell an Stapelzeiger vergleichen 

jmlt stapeletni«um 

I wenn stmi <■ Stapel xeiger «prung 

Ineues Stapel mintmum 

(vergleich mit Stapeluntargrenze 

;wenn stug <■ Stapelzeiger dann mprung 

(sonst ruacksprung 

(zu« an«ang (sort) 


(letzte rechte grenze 
(vom Stapel holeni 
(bedeutet 
(Z-Z-l 

(prueian, ob 

(msb rechte grenze 

(ungleich null.dann sprung 


jzaehler initialisieren 

(wert von Stapel holen 

(und ln die zeropagestelle schreiben 

(naechster wert 


4340 

4330 -ende 
4360 - 
4370 -i 

4500 -|- verlassen und 

4390 -| 

4600 - 
4610 - 
4620 - 
4630 - 
4640 - 
«650 -i 

4660 -|— irndo des zu verschiebenden programmtel 1 es 
4670 -| 


lda «S 00 (kon-f 1 gurat 1 onsbyte fuer normal zustand 

st* er (Ins er schreiben 

:urueckladen des programmes -- - 

lda •<(1eave) (Indirekten sprungvektor laden (Isb) 

cfa Tuen1 

(msb 


sta zwspl 
lda SXleave) 
sta zwspl*l 

jmp (ZMspl) (indirekter sprung ins steuerprograam 


Listing 1. »Quicksort 128«-Quelltext (Schluß) 


S96R onun®«*/ 


NStTie 


prog 

obj 1300 

1300 1529 

13c0 

: 

00 

bl 

Oa 

85 

10 

ce 

bl 

Oa 

ee 

— 

- 

— 

— 

— 


— 

— 




13c 8 

: 

85 

11 

cS 

bl 

Oa 

85 

12 

a 2 

98 

1300 

: 

78 

20 

14 

13 

= 9 

00 

85 

fb 

98 

13d0 

: 

00 

a5 

10 

c5 

16 

90 

03 

e8 

23 

1308 

: 

3.9 

02 

85 

fc 

6c 

fb 

00 

20 

9a 

13d8 

: 

ä5 

16 

85 

ld 

aO 

00 

bl 

11 

80 

1310 


14 

13 

58 

60 

a9 

00 

85 

fb 

79 

13e0 

: 

dl 

17 

dO 

07 

c8 

C4 

ld 

90 

9a 

1318 

: 

39 

02 

85 

fc 

a9 

Zd 

85 

fd 

5a 

13e8 

: 

f5 

eO 

01 

bO 

1 1 

18 

a5 

Oa 

20 

1320 


a9 

13 

05 

1 e 

a2 

0! 

aO 

00 

49 

13f 0 

: 

69 

03 

85 

Oa 

90 

c9 

e6 

Ob 

86 

1328 

: 

bl 

fb 

48 

bl 

f d 

91 

fb 

68 

4c 

13f 8 

: 

bO 

c5 

dO 

Qf 

90 

8f 

aO 

00 

b9 

1330 


91 

fd 

c8 

dO 

f3 

e6 

fc 

©6 

44 

1400 

s 

bl 

Oc 

85 

13 

C8 

bl 

Oc 

85 

dO 

1338 

: 

(e 

ca 

fO 

ec 

60 

9d 

02 

ff 

ef 

1408 

: 

14 

c8 

bl 

Oc 

85 

15 

a 2 

00 

fa 

1340 

: 

ba 

86 

f C 

86 

f d 

8a 

38 

e9 

36 

1410 


a5 

16 

c5 

13 

90 

03 

©8 

a5 

a4 

134S 

s 

52 

bO 

03 

4c 

db 

03 

67 

02 

bc 

1418 


13 

B5 

ld 

aO 

00 

bl 

17 

dl 

d7 

1350 

: 

85 

<8 

a 2 

19 

b5 

Oa 

48 

ca 

82 

1420 


14 

dO 

07 

cB 

c4 

ld 

90 

f 5 

db 

1358 

! 

10 

fa 

ba 

86 

fc 

a9 

00 

48 

12 

1428 


©0 

01 

bO 

13 

38 

a5 

Oc 

e9 

cc 

1360 

: 

48 

18 

a5 

31 

69 

Oa 

85 

19 

73 

1430 

: 

03 

85 

Oc 

bO 

c9 

c6 

Od 

90 

37 

1368 

: 

a5 

32 

69 

00 

85 

la 

18 

aO 

4c 

1438 

s 

c5 

bO 

84 

90 

bf 

dO 

bb 

a5 

45 

1370 

: 

02 

bl 

31 

65 

31 

aa 

cB 

bl 

33 

1440 

: 

Od 

c5 

Ob 

90 

6d 

dO 

06 

a5 

c5 

1378 

: 

31 

65 

32 

a8 

38 

8a 

e9 

03 

83 

1448 

: 

Oa 

c5 

Oc 

bO 

67 

a 2 

02 

aO 

23 

1 380 

j 

85 

lb 

48 

98 

©9 

00 

85 

lc 

a5 

1450 

: 

02 

bS 

10 

91 

Oc 

h5 

13 

91 

41 

1388 

s 

48 

dO 

02 

dO 

dO 

a2 

03 

b5 

6d 

1458 

: 

Oa 

ca 

88 

10 

f 4 

18 

a5 

n 

b4 

1390 

s 

19 

95 

Oa 

ca 

10 

f 9 

18 

a5 

cc 

1460 


65 

10 

85 

if 

aS 

12 

69 

00 

a3 

1398 

: 

Oa 

65 

Oc 

aa 

a5 

Ob 

65 

Od 

10 

1468 

: 

85 

20 

18 

a3 

14 

65 

13 

85 

7c 

13a0 

: 

4a 

85 

Of 

8a 

6a 

90 

06 

e9 

d9 

1470 

: 

21 

aS 

15 

69 

00 

85 

22 

aO 

cc 

13a8 

: 

01 

bO 

02 

c6 

Of 

85 

Oe 

aO 

fl 

1478 

: 

01 

bl 

lf 

85 

le 

bl 

21 

91 

el 

13b0 

: 

00 

bl 

Oe 

85 

16 

c8 

bl 

Oe 

48 

1 480 

: 

lf 

aS 

le 

91 

21 

88 

fO 

fl 

2a 

I3b8 

* 

85 

17 

cS 

bl 

Oe 

□5 

18 

aO 

eO 

1488 

: 

18 

a5 

Oa 

69 

03 

B5 

Oa 

90 

c8 


1490 

: 

02 

e6 

Ob 

38 

a5 

Oc 

e9 

03 

38 

1498 

: 

85 

Oc 

bO 

02 

c6 

Od 

a5 

Od 

15 

14a0 

: 

c5 

Ob 

90 

3b 

dO 

93 

a5 

öc 

cf 

1 4aQ 


c5 

Oa 

bO 

Bd 

90 

31 

90 

8b 

3c 

14b0 

: 

dO 

3b 

90 

2b 

bO 

29 

aS 

lb 

fO 

14b8 

: 

48 

a5 

lc 

48 

a5 

Oc 

85 

lb 

ea 

14c0 

: 

aS 

Od 

85 

lc 

10 

90 

e7 

18 

37 

I4c8 

: 

a5 

19 

69 

03 

85 

19 

90 

01 

la 

14d0 


C0 

e4 

la 

c4 

lc 

90 

d7 

dO 

41 

14dB 

3 

26 

cS 

lb 

90 

dl 

bO 

20 

a5 

28 

14eO 

* 

19 

a4 

la 

c4 

Od 

90 

OS 

dO 

82 

14e8 

: 

de 

c5 

Oc 

90 

02 

bO 

d8 

ba 

3c 

14f0 

: 

e4 

fd 

bO 

c 2 

86 

fd 

94 

fe 

41 

1 4f 8 

: 

bO 

bc 

a6 

fc 

9a 

dO 

bl 

68 

17 

1300 

s 

85 

lc 

68 

85 

lb 

a6 

lc 

©0 

77 

1500 

2 

00 

dO 

bc 

a6 

fc 

9a 

a2 

00 

a3 

1510 

t 

6B 

95 

Oa 

©8 

eO 

la 

90 

f 8 

f 6 

1518 

X 

a9 

00 

8d 

00 

ff 

a9 

Of 

85 

b9 

1520 

» 

1 f 

.9 

13 

oa 

20 

bc 

lf 

oo 

6b 

1528 

J 

95 

00 

ff 

00 

ff 

00 

ff 

00 

bd 


Listing 2. »Quicksort 128« bitte 
mit dem MSE (Seite 158) im 
C64-Modus eingeben. 



10 REM «***»« DUICKSQRT C128 TESTPROGRAMM #»««*** 

** <A99> 
15 FAST < M2R > 
20 PRINT CHRf(147): C0LÜR 6,1* COLOR 5.6 <347> 
30 PRINT "QUICKSORT TEST"x <E97> 
40 PRINT "BEFINDET SICH DAS MASCHINENPROGRAMM SCH 

ON IM SPEICHER"» INPUT "<J/N)";A* <T9Q> 
50 IF A4 <> "J" THEN BLOAD "PROG 1 OBJ 1300" <0J7> 
60 PRINT i INPUT "WIEVIELE ELEMENTE ";MAX <VJN> 
70 DIM A*(MAX) <N0Q> 
BO GOSUB 200 : REM ERZEUGEN VON ZUFALLSSTRINGS <675> 
90 GOSUB 300 : REM AUSGABE DER STRINGS <7N1> 
100 PRINT : PRINT "JETZT WIRD SORTIERT" <FTI> 
110 T=TI <RRA> 
120 SYS DEC<"1300") <7IA> 
130 TT=TI <K2Q> 
140 GOSUB 30Ö: REM AUSGABE DER STRINGS <G31> 
150 ZT=(TT-T)/60 <9P1> 
160 PRINT : PRINT "DAS SORTIEREN VON "MAX" ELEMEN 

TEN DAUERTE "ZT" SEKUNDEN." <V5H> 
165 SLOW <NEQ> 
170 END <34E> 


200 

REM »«» 7UFALLSSTRINGS ERZEUGEN 

<J2C> 

210 

FOR 1-1 TG MAX 

<3GP> 

220 

A*U>-"" 

<FV5> 

230 

FOR J=1 TG 3 

<KVI> 

240 

X»INT(26«RND<X>)*65 

<7 J3> 

250 

A*(I)-A*(I)+CHR«(X) 

<SUG> 

260 

NEXT J 

<RV5> 

270 

NEXT I 

<JI4> 

280 

RETURN 

< 447 > 

300 

REM *«» AUSGABE DES STRINGFELDES *«* 

<JIE> 

310 

FOR 1-1 TG MAX 

< 7GP > 

320 

PRINT At(I), 

<59V> 

330 

NEXT I 

<3K4> 

340 

RETURN 

<4Q7> 



Listing 3. Ein kurzes Demoprogramm in Basic zum Testen 
des Quicksort-Programms 


60 
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C128 


TIPS&TRICKS 


Sonderzeidien in NbQ-Sdirift 
für Startexter 128 


Mathematische oder griechische Sonderzeichen 
mit dem Startexter 128 auszudrucken, war in ein¬ 
geschränkter Qualität bisher schon möglich. Mit 
unserer Erweiterung zum Startexter ist dies in 
NLQ-Qualität auch auf nicht NLQ-fähigen 
Druckern wie etwa dem Epson-FX-80 möglich. 

D as Programm Startexter von Sybex zeichnet sich 
durch eine große Anzahl frei definierbarer Sonderzei¬ 
chen aus, wodurch dieses Programm insbesondere 
für naturwissenschaftliche Arbeiten interessant wird, bei 
denen beispielsweise griechische oder mathematische 
Sonderzeichen benötigt werden. Will man diese Sonder¬ 
zeichen benutzen, so muß man den Grafik-Druck-Modus 


muß dabei gedrückt sein. Das Programm fordert Sie auf, 
die Startexter-128-Diskette, oder besser eine Sicherheits¬ 
kopie, einzulegen, um das Textverarbeitungsprogramm zu 
laden. Es erscheint am Bildschirm die Meldung »Working«. 
Danach werden Sie aufgefordert, eine Arbeitsdiskette ein¬ 
zulegen, auf der das Patch-Programm dann eine modifi¬ 
zierte Version des Startexter erstellt. Hierbei wird nur die 
80-Zeichen-Version unterstützt. Anschließend kopieren Sie 
noch Ihre Parameterdatei und Zeichensätze hinzu, und Sie 
können somit eine fast betriebsbereite NLQ-Startexter-128- 
Version Ihr eigen nennen, die mit 
BOOT "LADER" 

gestartet wird. Das »fast« bezieht sich auf den NLQ- 
Zeichensatz. Bevor das Programm ein Zeichen in NLQ- 
Qualität ausdrucken kann, muß ihm eine Tabelle mit den 


Tastatunbe 1 e;giar~igst.afc.e 1 1 <= - 


ESC 

TAB 

ALT 

DIN 


HLP 

LF 

40/ 

ND 



80 

SCR 


CRS 

CRS 

CRS 

CRS 

c 

4= 

— 



1 s 

ä 

— 

ö 

— 

Li 

13 

$ 6 

A 7 

n u 

- 

c 



7 

f r 

M co 

> 

9 

I A 

/ + 

4 

N i 

5 

z 

6 

o y 

R - 

1 

C 

s 

2 

V v 

LU 

OJ 

s. 

E 

N 

T 

E 

R 

0 

u 

3' . 


Bild 1. Diese sehr anschauliche Tastatur-Belegungstabelle wurde mit der neuen Version des Startexter geschrieben 


wählen, um den selbst definierten Zeichensatz zu Papier zu 
bringen. Dies bedeutet, daß alle Zeichen, so wie sie auf 
dem Bildschirm zu sehen sind, in einer Auflösung von 8*8 
Punkten ausgedruckt werden. Die Druckqualität ist dabei 
natürlich nicht überwältigend, von NLQ-Qualität ganz zu 
schweigen. Abhilfe bringt die hier vorgestellte Erweiterung 
zu Startexter 128 (Bild 1). Mit ihrer Hilfe stehen zwei neue 
Befehle zur Verfügung: 

<CBM 4> <n>: Einschalten des NLQ-Druck-Modus 
<CBM 5> <n>: Ausschalten des NLQ-Druck-Modus 

Sie müssen dabei beispielsweise für das Einschalten 
des NLQ-Modus die Tasten <CBM> und <4> gleichzei¬ 
tig drücken, anschließend loslassen und <h> drücken. 

Ferner ist es möglich, die Tastaturbelegung frei zu defi¬ 
nieren. Insgesamt stehen 178 Zeichen zur Verfügung; zirka 
14 Sonderzeichen können mehr verwendet werden, als ur¬ 
sprünglich vorgesehen. Dieser NLQ-Modus läßt sich zu¬ 
dem mit jedem anderen Druckmodus kombinieren, so zum 
Beispiel mit dem gewöhnlichen Grafik-Modus von Startex¬ 
ter oder einer anderen Schrift, die der Drucker bietet. 

Wie ist es nun möglich, diese Vorteile auszunutzen? Am 
einfachsten geht es mit dem »Patching«, wie man es von 
CP/M her kennt. Tippen Sie hierzu das Programm »PATCH 
NLQ« (Listing 1) und starten Sie es. Die ASCII/DIN-Taste 


entsprechenden Bitmustern zur Verfügung gestellt wer¬ 
den. Dieser NLQ-Zeichensatz umfaßt 256* 16* 10/8 = 5120 
Byte und kann individuell gestaltet sein. Die Nummer, die 
dieser spezielle NLQ-Grafik-Zeichensatz trägt, muß natür¬ 
lich auch im Parametermenü eingetragen und anschlie¬ 
ßend gespeichert werden, so daß dieser Zeichensatz bei 
jedem Neustart sofort zur Verfügung steht. Dieses Para- 
meter-File erstellt man zweckmäßigerweise mit der unver¬ 
änderten Startexter-Version und speichert es auf der Dis¬ 
kette mit der »gepatchten« Version. 

Neue Zeichensätze bequem erstellt 


Um das Entwerfen der neuen Zeichensätze so komfortabel 
wie möglich zu gestalten, finden Sie als Listing 2 das Pro¬ 
gramm »Charfont«. Dieser Zeicheneditor besteht aus zwei 
Teilen; einem Basic-Teil, der die Menüs enthält, und einem 
Maschinenspracheteil (Listing 3) mit den zeitkritischen 
Routinen. Der Zeicheneditor ist in der Bedienung im 
wesentlichen kompatibel zum Zeicheneditor »Starfont« und 
braucht hier daher nicht erklärt zu werden. Wenn Sie die 
Programmservice-Diskette bestellen, werden Sie darauf 
einen fertigen Zeichensatz mit mathematischen Symbolen 
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TIPS&TRICKS 


C128 


und entsprechender Tastaturbelegung finden. Des weite¬ 
ren befindet sich auf der Diskette noch ein Programm 
namens »Patch F-Key«, das die Tastaturtabelle an den 
neuen Zeichensatz anpaßt. Die NLQ-Erweiterung wurde 
für einen Epson-Drucker geschrieben und dürfte mit jedem 
Epson-kompatiblen Drucker, der über den Linear-Kanal 
des Interfaces angesteuert wird, Zusammenarbeiten. 

Nach Einschalten des NLQ-Modus durch <CBM 4> 
<n> werden alle folgenden Zeichen bis zu dem Befehl 
<CBM 5> <n> mit einer Auflösung von 16Zeilen und 10 
Spalten ausgegeben. Das entspricht 160 Pixel pro Zeichen 
im Gegensatz zu 64 im gewöhnlichen Grafikmodus (Faktor 
2,5). Bei Verwendung des Dual-Density-Modus (960 Spal¬ 
ten) sind dies 96 Zeichen pro Zeile, was der Elite-Schrift 
gleichkommt. Die Auflösung von 16 Zeilen wird erreicht, 
indem jede Zeile in zwei Durchgängen gedruckt und dabei 
das Papier vor dem zweiten Ausdruck um 1/216 Inch vorge¬ 
schoben wird. 

Die Steuersequenzen, die hierzu verwendet werden, 
können vor dem Patching dem jeweiligen Drucker ange¬ 
paßt werden. Man findet die Steuersequenzen in den Zei¬ 
len 2500 und 2530 des Programms »PATCH NLQ« (Listing 
1). Die Steuersequenz darf maximal sieben Byte lang sein 
und muß mit dem Byte $FF abgeschlossen werden. 

Zu beachten ist hierbei, daß beim Einschalten des Grafik- 
Modus auf eine Schriftbreite umgeschaltet werden muß, 
die der Breite eines NLQ-Zeichens entspricht (für den vor¬ 
eingestellten Grafikmodus ist dies die Elite-Schrift). Für die 
zweite Druckphase wird anstelle eines »CR« eine entspre¬ 
chende Anzahl an Backsteps an den Drucker gesandt, um 
das Umschalten der Druckmodi innerhalb einer Zeile zu 
ermöglichen. 

Um eine individuelle Tastaturbelegung zu ermöglichen, 
wurden die Tastatur-Dekodierungstabellen in den Bereich 
von $0c20 bis $0c30 verlegt. Die Adressen im einzelnen: 
Normal - Tabelle: $0c20 bis $0c78 
Shift - Tabelle: $0c79 bis $0cd1 
Commodore-Tabelle: $0cd2 bis $0d2a 


Die Tastaturbelegung kann von Startexter aus mit Hilfe 
des Maschinensprache-Monitors geändert und gespei¬ 
chert werden. Geben Sie hierzu folgendes ein: 

:monitor <control> (Einschalten des Monitors) 
m 0c20,0d2a (Auflisten der Tabellen) 

Ändern Sie nun die gewünschten Werte gemäß dem 
C128-Bedienungshandbuch (Anhang J). Danach können 
die veränderten Tabellen mit: 
s "§:c0" ,8,c00,ed0 
gespeichert werden. 

Eine Übersicht, welche Zeichen des Zeichensatzes von 
Startexter nicht benutzt und mit Sonderzeichen belegt wer¬ 
den können (dies sind immerhin 76 Zeichen), finden Sie in 
Tabelle 1. (Ingolf Kübler/sk) 



Tabelle 1. Der Zeichensatz von Startexter mit den von Ihnen 
noch frei definierbaren Zeichen im Überblick 


w+v+v+v+w 

1010 REM » tf .PATCHING jj,T ARIE X TER 12BC23SPACE>tf 
1020 REM " tf€47SPACE>tf 

1030 REM '* tf (1) FREI DEFINIERBARE JASTATURBELEGU 
NG (BSPACEJtf 

1O40 REM " tf <2> NOCH MEHR .§ONDERZEICHEN<19SPACE> 
tf 

1030 REM " tf (3) JlLft- SCHRIFT FtfR fLPJAN-JCCMPATIBLE 
DRUCKER <2SPACE>Tf 
IO60 REM '* tfC47BPACE>tf 

1070 REM " tf COPYRIGHT 1906 BY INGOLF JL7BLERU5SP 
ACE >tf 

1000 REM " f+V«»V+'•*•»'• ViV*V+"«•'+~+V4-'4 V-*- 11 ♦•F-F’V•FVFF v 4-' 

Twmvmfl 

1090 : 

1100 
1110 
1120 
1130 

1132 
1140 
1150 
1160 
1170 


1 

FAST : GRAPHIC 1 s GRAPHIC 0 l GRAPHIC 3 
PRINT "(2H0ME,CLR,CTRL+N5" TAB(25) "PATCHING 
ÄTARIEXTER 128" 

WINDOW 10,0,79,24 


REM 

REM 

REM 


tf SÄTEN FtfR PATCHING 'Bl 1 tf 


1180 : 

1190 DATA 1D53,4C,AS,0E,- 

1200 DATA 1DC8 

1210 DATA 0D,0D,0D,0E,2O,20,1F,A6,A6,A6,A6,A6,A6, 
A6,A6,A6 

1220 DATA A6,9A,A6,A6,A6,A6,A6,A6,05,72,A6,A6,A6, 
1E,A6,A6 

1230 DATA A6,A6,A6,A6,A6,A6,A6,A6,99,A6,A6,A6,A6, 
A6,A6,A6 

1240 DATA A6,A6,9E,A6,A6,A6,A6,A6,A6,A6,A6,A6,A6, 
95,A6,A6 

1250 DATA A6,A6,A6,A6,A6,A6,A6,96,A6,A6,A6,A6,A6, 
A6,A6,A6 

1260 DATA A6,A6,1C,A6,A6,A6,A6,A6,A6,A6,A6,A6,A6, 
09,09,20 

1270 DATA 20,05,66,A6,74,20,54,20,41,20,52,20,20, 
54,20,45 

1280 DATA 20,58,20,54,20,45,20,52,20,20,20,0E,9B, 
C3,4F,4D 


<340 

<3CD> 

<3KE> 

<. 3SF > 

<248> 

<2C9> 

<2KA> 

<2SB> 

< 144 > 
<5GN> 
<001 > 
<0G3> 
<EON> 

<5NA> 

< RVR > 
<209> 
<2SB> 
<248> 

< 2C9 > 
<40H> 
<958> 
<RFR> 

< 1HH> 
<NJM> 
<6PF> 
<GI7> 
<B7F> 
<KUJ> 
<SGP> 
<GEU> 


1290 DATA 4D,4F,44,4F,52,45,20,31,32,38,20,DO,C3, 
0D,1F,A6 

1300 DATA A6,A6,A6,A6,A6,A6,A6,A6,A6,9A,A6,A6,A6, 
A 6 ,A 6 ,A 6 

1310 DATA A6,05,A6,A6,A6,BE,67,OE,IE,A6,A6,A6,A6, 
A 6 ,A 6 ,A 6 

1320 DATA A6,A6,99,A6,A6,A6,A6,A6,A6,A6,A6,A6,9E, 
A 6 ,A 6 ,A 6 

1330 DATA A6,A6,A6,A6,A6,A6,Ad.,*?3,A6,A6,A6,A6^A6, 
A 6 ,A 6 ,A 6 

1340 DATA A6,96,A6,A6,A6,A6,A6,A6,A6,A6,A6,A6,IC, 
A 6 ,A 6 ,A 6 

1330 DATA A6,A6,A6,A6,A6,A6,A6,0D,OD,09,09,09,09, 
9D,9D,9B 

1360 DATA 36,4F,4E,20,20,D4,4F,4E,49,20,D3,43,48, 
57,41,49 

1370 DATA 47,43,52,OD,0D,09,09,09,9D,9D,95,4D,4F, 
44 47 Q(j 

1380 DATA 49,5A,49,43,32,34,20,36,4F,4E,9E,20,69, 
4E,47,4F 

1390 DATA 4C,46,20,6B,BD,42,4C,45,52,20,95,31,39, 
38,36,OD,- 

140O DATA 2039,7F,7F,7F,— 

1410 DATA 204C,7F,7F, 7F , — 

1480 : 

1490 REM " 

15O0 REM " 

1510 REM " 

1520 s 

1330 DATA 757E,20,— 

1540 DATA 7586,20,- 
1542 DATA 7004,85,OE,- 
1550 : 

1560 REM " 

1570 REM " tf SÄTEN FtfR PATCHING 1 B4’ tf 
15B0 REM " 

1590 : 

1600 DATA A5CA,4C,E5,0D,- 

1610 DATA A659,EA,4C,50,OD,- 

1620 DATA A6A4,09, — 

1630 DATA A6D3,20,73,0D,- 
1640 DATA A 6 FA,EA,4C,3F, 0E, - 
1650 DATA A7OB,A2,00,4C,OB,OE,— 

1660 DATA A76E,4C,4D,OE,- 


tf SÄTEN FtfR PATCHING 'B3' tf 


<5S9> 

<OUP> 

<MBT> 

<047> 

< 3AF > 
<E7M> 

<FSJ> 

<VLP> 

< 6G J > 

<S4M> 

<BC7> 

<GET> 

<E2K> 

< 105> 
<3CD> 

< 1K6> 

< 1S7> 
<50L> 
<08H> 
<N0l> 
<OKT> 
<6GR> 
<O40> 
<0C 1 > 
<3KE> 
<0G3> 
<'VBP> 
<K5P> 
<CCR> 
<LA0> 
<PUB> 
<PCK> 
<RCO> 
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C128 


TIPS&TRICKS 


1670 DATA A677,EA,4C,8D,0D,- <TMO> 
1680 DATA + <IIO> 
1690 i <3GF> 
1700 REH ” ^+ , ++-+V+VtV+V+V.VVV-»V*V4-V-.V-fV-.'*TJ <0K2> 
1710 REM “ Tf PATCHINB ' Bl ',..., ‘ B4 ', RB ' T <0S3> 
1720 REM " <04O> 
1710 : <7GV> 
1740 PRINT "SEGEN SIE DIE ORIGINAL STARIEXTER-JIS 

KETTE IN SAUFWERK fl" <TSF> 
1750 PRINT "UND DRÜCKEN SIE EINE IASTE. CCTRLKG1" <BKA> 
1760 BET KEY T* <0OO> 
1762 PRINT "ICLRJHORKING..." <MCI> 
1770 l <5GN> 
1780 BLOAD "Bl",ON B0 <01V> 
1790 BLDAD ”B2",0N B0 <02V> 
1800 BLOAD "B3",ON BO <HFO> 
1810 BLOAD ”B4",ON BO <PBQ> 
1820 BLOAD “RB",ON B0 <RDO> 
1830 1 <8H3> 
1832 PRINT “<CLR>i£GEN SIE JURE ßRBEITSDISKETTE I 

N AAUFWERK fl" <MMQ> 
1834 PRINT "UND DRÜCKEN SIE EINE IASTE.ICTRL»G>" <VIQ> 
1836 I <913> 
1840 RESTORE : BANK 0 <1MB> 
1830 DO <1C7> 
1860 I READ A* l IF A*="+" THEN EXIT <SQB> 
1870 I A=DEC<0*> <RSO> 
1880 i DO <CPN> 
1890 : : READ B* : IF B*-"-" THEN EXIT <RUC> 
1900 I ! POKE A, DEC<B*> l A=A+1 <OV7> 
1910 ■ LOOP <QNP> 
1920 LOOP <0O9> 
1930 s <9H7> 
1932 GET KEY T* <600> 


1933 

PRINT "(CLRJHPRKING..." 




<FVK> 

2700 

1934 

X 






<8H3> 


1940 

BSAVE "CI 1 
BO") ) 

»ON 

B0» P(DEC( 

1D00"! 1 

TO 

P <DEC <"21 

<204> 

2710 

1950 

BSAVE “C2’ 
20") ) 

»ON 

BO,P(DEC( 

2100”)1 

TO 

P(DEC("36 

<CKO> 

2720 

I960 

BSAVE "C3‘ 
50") ) 

»ON 

B0,P(DEC( 

7000") 1 

TO 

P(DEC("87 

<T9S> 

2730 

1970 

BSAVE "C4* 
50") ) 

»ON 

B0,P(DEC( 

A000"1) 

TO 

P(DEC("AC 

<OVC> 

2740 

1972 

BSAVE "RC‘ 

»ON 

BO,P(DEC("0B00")) 

TO 

P (DEC ( " 0B 


2750 


;ohc> 

<C1H> 

< 1C5> 
<1K6> 

< 1S7> 


AO") 1 
1980 : 

2050 REM 

2060 REM " TT HEUER LADER ERSTELLEN t 
2070 REM " I++4-++++++ . * i . .-*+*-t . -. .-♦♦o 
2080 : 

2090 RESTORE 2110 —<TSF>' 

2100 : <60P> 

2110 DATA 78,A9,62,8D,1B,03,A9,E0 I B5,2E,A9,FB,85, 

30,09,00 <H6N> 

2120 DATA BD.00,FF,85,FF,8D,00,E0,20,D9,51,A9,0E, 

8D,00,FF <FBL> 

2130 DATA A9,05,8D,06,D5,A5 t 00,09,40,85,00,A5,01, 

09,40,83 <8V7> 

2140 DATA 01,58,A9,0B,8D,11,D0,A9,01,8D,30,DO,A5, 

BA,AA,AO <LU3> 

2150 DATA 01,20,BA,FF,A9,02,A2,6F,A0,IC,20,BD,FF, 

A9,00,20 <572> 

216fe DATA D5,FF,A9,02,A2,71,AO,IC,20,BD,FF,A9,00, 

2@,DS,FF < J92> 

2170 DATA EE,72,IC,A9,02,A2,71,AO,1C,20,BD,FF,4C, 

73,IC,32 <KFO> 

2180 DATA 43,43,30,A9,00,20,D5,FF,20,00,0C,4C,00, 

1D,00,O0 <POJ> 

2190 A=DEC("1CO0"> i B=DEC <"1CB0") <T5C> 

2200 BANK 13 <2PD> 

2210 FOR I=A TO B-l <2EP> 

222© l READ A* <LCN> 

2230 t POKE I»DEC(A#> <LFR> 

2240 NEXT <IE0> 

2250 BSAVE "«LADER" ,UB,ON BO,P(A) TO P(B> <AOV> 

2260 : <60P> 

2270 REM " 7FTV+VF+V*5VF+VFVFWF+V <0S3> 

2280 REM •' T tILE C0 - ERSTELLEN ü <340 

2290 rem " ir mvm'w-mvm - m B <3 cd> 

2300 : <40H> 

2310 BANK 15 <IVD> 

2320 RESTORE 2340 <7BE> 

2330 l <3GN> 

2340 DATO AD,C3,0A,09,80,8D,C5.0A,A2,05,BD,1A,0C, 

9D,3E,03 <TD8> 

2330 DATO CO,10,F7,60,00,00,0O,00,0O,00,20,0C,79, 

0C.D2.0C <BM3> 

2360 i <70T> 

2370 A=DECC'0C00") i B=DEC (”0C20" ) <64G> 

2380 FOR I=A TO B-l <KEP> 

2390 i READ A* <K8N> 

Z40O : POKE I,DEC<A*> <3JD> 

2410 NEXT <MAG> 

2420 : <209> 

2430 REM "I2SPACE)IASTATURDECODIERTABELLEN AUS £E 

RNAL KOPIEREN <2SB> 

2440 i <10S> 

2450 A=DEC("0C20"1 i B=DEC("0D2C“) : C=DEC("FAB0" 

)-A <T9T> 

2460 FOR I=A TO B-l <KEP> 

2470 i POKE I,PEEK(C+I) <B4R> 

2400 NEXT <J E 0> 

2490 : <7GV> 

2500 DATA 1B,4D,1B,4C,FF,FF,FF,FF : REM " JRUC 

KERCODES FÜR SLITE-SCHRIFT EIN <5KF> 

2510 : ! REM " UND 

aUAL-DENSITY-SRAPHIC <28B> 


2520 : <30D> 

2530 DATO 1B,40,01,FF,FF,FF,FF,FF : REM " SRUC 

KERCODES FÜR EINMALIGES J.INEFEED <31D> 

2540 : i REM '• VON 

1/216 INCH <78V> 

2550 l <0B3> 

2560 DATO 00,00,00,00,00,00,00,00,00,00,00,00,00, 

00,00,00 <N77> 

2570 DATO C9.5A,D0,08,A9,08,8D,02,A7,4C.C7,A6,C9, 

4E,F0,03 <MA2> 

2580 DATO 4C,5D,A6,8C,46,0D,A9,00,8D,41,0D,A9,01, 

BD,40,0D <QOP> 

2590 DATA 8D,47,OD,D0,E1,AC,40,0D,D0,03,4C,F8,A8, 

A2,00,BD <ANN> 

2600 DATA 3O,0D,C9,FF,F0,06,20,01,AB,E8,D0,F3,60, 

C9.5A.D0 <9GG> 

2610 DATO O6,BE,40,0D,4C,B9,A6,C9,4E,F0,03,4C,7B, 

A6,AD,40 <LNT> 

2620 DATO 0D,F0,EE,AD,41,0D,D0,E9,EA,EA,EA,EA,EA, 

AE, 46,0D <203 > 

2630 DATO AD,47,OD,D0,02,CA,CA,8E,04,SF,09,01,8D, 

41,0D,A2 <ROI> 

2640 DATO 08,20,7F,0D,AE,42,0D,F0,08,A9,08,20,01, 

AB,CA,DO <T4C> 

2650 DATO FB,20,7F,0D,AD,44,00,20,01,AB,AD,45,0D, 

20,01,AB <3TE> 

2660 DATO A2,01,4C,B9,A6,CD,7B,BF,B0,03,4C,DD,A5, 

00,40,0D <4C1> 

2670 DATO D0,OE,A9,00,8D,41,0D.8D,46,0D,8D,47,0D, 

4C,CF,05 <7PN> 

2680 DATA AD,41,0D,D0,ED,EA,EA,EA,4C,AD,0D,AD,40, 

0D,D0,08 <OE0> 

2690 DATO A3,FD,20,01,AB,4C,10,07,SE,45,0D,A5,FD, 

8D,42,0D <FVL> 

DATA 0A,2E,45,0D,0A,2E,43,0D,65,FD,90,03,EE, 

45,0D,0A <0K3> 

DATO 2E,45,@D,8D,44,00,20,01,AB,AD,45,0D,4C, 

12,A7,C9 <EGL> 

DATO 5A,D0,03,4C,0B,O7,C9,4E,F0,F9,4C,FE,O6, 

AE,40,0D <TBU> 

DATO D0,03,4C,04,AS,85,FC,00,00,84,FD,0A,26, 

FD,0A,26 <DD3> 

DATO FD,65,FC,90,02,E6,FD,0A,26,FD,00,26,FD, 

AE,41,0D <R31> 

DATA F0,02,69,0A,85,FC,05,FD,69,EB,85,FD,AE, 

00,FF,SD <VL7> 

2760 DATA 01,FF,Bl,FC,8E,00,FF,20,01,AB,AE,76,BF, 

F 0,0E,AE <80J> 

2770 DATO 00,FF,8E,01,FF,B1,FC,8E,00,FF,20,01,AB, 

C8,C0,00 <A2N> 

2780 *i,i D0,DA,4C,F3,O7,20,D5,FF,A9,4E,8D,71,1C, 

09,00,20 <92N> 

2790 DATA DS,FF,4C,56,1D,A2,07,09,00,9D,40,0D,CA, 

10,FA,4C <BPU> 

2792 DATO 26,7F,00,00,00,00,00,00,00,00,00,00,00, 

00,00,00 <N1N> 

2800 • <F1T> 

2810 0=DEC("0D30") : B=DEC("0ED0") <V7L> 

2820 FOR I=A TO B-l <COP> 

2830 : READ AI , <NON> 

2840 1 POKE I,DEC(0*1 <4BV> 

2850 NEXT <64G> 

2860 ! <C1H> 

2870 BSAVE "C0",U8,ON B0,P(DEC("0C00"11 TO P(DEC( 

"OED0")1 <BSE> 

2880 : <B1D> 

2890 PRINT "C2H0ME,CLR>£ATCHING STARIEXTER 128 BE 

ENDET. !2D0WN>" <TOJ> 

2900 PRINT "KOPIEREN SIE NUN NOCH IHRE SORAMETERD 

ATEI UND JEICHENSfTZE AUF DIE" <G94> 

2910 PRINT "SRBEITSDISKETTE UND STARTEN SIE STARI 

EXTER WIE GEWOHNT.t2D0WN)” <F5F> 

Listing 1. »Patch NLQ« generiert eine Startexter-Version, 
die Sonderzeichen in NLQ-Qualität druckt. Bitte mit dem 
Checksummer 128 (Seite 158) eingeben. 


£ ++♦+* + • » I 

T SU-JEICHENSATZ-SDITOR FÜR STARTEXTER 

t VERSION: SEZEMBER 19B6(16SPACE1Ü 
TT 139SP ACE > TT 

lf COPYRIGHT 1986 BY INGOLF SÜBLER(7SPAC 


100 REM 
TU 

110 REM 

ir 

120 REM 
130 REM 
140 REM 
E)ü 
150 REM 

160 l 

1000 FAST : GRAPHIC 1 : GRAPHIC 0 : GRAPHIC 3 
1010 PRINT "(2H0ME,CLR,BROWN,2SPACEISTARTEXTERC2S 
PACE5£HAR£0NT(25SPACE)COPYRIGHT 1906 BY INGO 
LF JLÜBLERI2SPACE >" 

1020 PRINT - .W /AYW, 

YELLOW>" 

1030 i 

1040 IF LF=0 THEN BLOAD "CHORFONT.M",0N B0 
" SSSEMBLERROUTINEN LADEN 


< 11 A> 

< IQB> 
<CRC> 

< IA9> 

<JIE> 

<jof> 

<1C5> 

<EON> 


< B5R > 
<0G3> 


Listing 2. »CHARFONT«, der NLQ-Zeicheneditor. Bitte 
mit dem Checksummer 128 (Seite 158) eingeben. 
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TIPS&TRICKS 


C128 


1060 : 

1070 LF=B 
FWERK 

1060 SYS 5417 
N 

1090 GGSUB 240O 

IN LADEN 
1100 GOSUB 3000 
ZEIGEN 

1110 GOSUB 500O 
ZEIGEN 

1120 * 

1130 REM 

1140 REM 
N TT 
1130 REM 
TTB 

1160 x 

1170 XX«© : YY*0 : ED=0 
1100 PRINT "C2H0ME)" CHR*(27)"S" 

»24 
1190 DO 

1210 t IF XX<0 THEN XX-15 : YY*YY-1 * ELSE IF XX 
>15 THEN XX=© x YY-YY+1 
s IF YY<0 THEN YY-15 
13 THEN YY=0 
s Z=YY»16+XX 
: SYS 32625 : 


: REM " BEFAUI.T-1AU 
: REM " @ DEFINIERE 
: REM " ZEICHENSATZ 
: REM " ZEICHENSATZ 
i REM " UELP-SCREEN 

7 ZEICHEN AUSWAHLEN / JJXJMMANDO EINGEBE 
YV+V *V++~+»'*'*■'+>'*•"f J +"+>'■Kf»»'+V VV W+' 


WINDOW 62,6,79 


1220 


123© 

1240 


ELSE IF YY> 


SYS 52332,,YY,XX,0 : SYS 5740 


202© REM 
2O30 REM 
2040 x 
2050 PRINT "C2HQME)" 

2OA0 PRINT 


7 LILENAME / .LAUFWERK EINGEBEN 7 

T7mvmv+vmv*T*v+Tmv+vm , 5 


WINDOW 15,23,79,24,1 

2F- ICHPNRAT 2 *? " | 7S« 

2070 INPUT "(UP,12RIGHT>"|ZS* 

2000 PRINT "(2HQMEJ" x WINDOW 45,23,79,24 x PRINT 


REM " Ttt’VFTK 
REM " 7 SAVE 7 
REM 


TT 


TTB 


209© PRINT "<HOME)ZAUFWERK<4SPACE>? " CHR*(LF+185 
) 

21O0 DO s INPUT "(HOME,12RIGHT) "; U* : LOOP UNTIL 
INSTR("8 Afl9B.fi" , U*) 

211© IF INSTR("8Aß",U*> THEN LF-0 x ELSE LF-9 
2120 RETURN 
220 © ; 

2210 
2220 
2230 
2240 
225© 

2260 
227© 

2200 
2290 
23O0 
2310 

2320 

2330 
2332 
2340 
2350 

2360 

2370 
2300 


PRINT " C2H0ME)" CHR*(27)"M" s WINDOW 0,23,79 
»24,1 

PRINT "CLIG.RED>£PEICHERN:(YELLOW)" 

GOSUB 2000 

OPEN B,LF,9,"N"*ZS*+*',P,R" r CLOSE : U=DS 
OPEN 0,LF,0,"T"+ZS*+",P,R" x CLOSE 8 
IF DS“0 OR U-=0 THEN BEGIN 

: PRINT " CHOME,DOWN)ERSETZEN C4SPACE,CTRL-*-0> 

?" 

x DO x GET KEY U* x LOOP UNTIL INSTR("JN",U 

*> 

x IF U*="N" GOTO 2380 
: PRINT -«HOME,DOWN)” CHR*(27)"Q" 

BEND 

BSAVE <"@N"+ZS*>,U<LF) ON BO ,P(DEC("EBOO")> 
TO P(DEC("FEFF")) 

BSAVE ("@T"+ZS*),U(LF) ON BO ,P(DEC(”3800")) 
TO P(DEC("4000")) 

PRINT "(2HQME)" : WINDOW 0,23,79,24,1 x PRIN 
T "(2H0ME>" s WINDOW 62,6,79,24 


<209> 

<LA7> 

< VR0> 

<86F> 

< 56N > 

<877> 

<105? 

<3CD> 

< 2KA > 

<2SB> 

<30D> 

<F3C> 

<E9B> 

<VFV> 

<NAR> 

<091 > 

<G1M> 


mvmv 

7 LOAD 7 

r+v+v+vu 

'(2HQME)" CHR*(27)"M" ! WINDOW 0,23,79 


CLOSE B 



,z 




<69A> 

1250 

i DO 




<uvv> 

1260 

x : 

GET KEY B* 


<340 

1270 


IF 

B*=" (RIGHT3" THEN XX=XX*-1 ! EXIT 

<DÜ2> 

1280 

I t 

IF 

B*="CLEFT>" THEN XX = XX-1 

t EXIT 

<IS2> 

1290 

s : 

IF 

B*="(DOWN)" THEN YY=YY+1 

! EXIT 

<HBE> 

1300 

1 X 

IF 

B*="(UP>'' THEN YY=YY-1 : 

EXIT 

<AAE> 

1310 

3 3 

IF 

B*=“M" THEN SYS 3757,Z 


< J7T> 

1312 

: x 

IF 

B*="ü" THEN SYS 5070.Z : 

SYS 5320 

< 4A1 > 

1320 

3 3 

IF 

B*="K." THEN SYS 5639, Z : 

SYS 4890 : 



EXIT 




<QH9> 

1322 

s : 

IF 

B*="JL" THEN SYS 5106, Z : 

EXIT 

<S3P> 

1330 

: n 

IF 

B*="L" THEN GOSUB 2400 : 

EXIT 

<264> 

1340 

• • 

IF 

B*="S" THEN GOSUB 2200 : 

EXIT 

< 190 > 

1350 

3 : 

IF 

B*="V" THEN SY5 5639,Z : 

SYS 576 : 



SYS 576 : 

: SYS 489 : EXIT 


<421 > 

1352 

s : 

IF 

B*="Ä" THEN SYS 51%, Z : 

SYS 553 : 



SYS 532 x 

: EXIT 


< 11 A> 

1360 

: : 

IF 

B*=CHR*(13) THEN ED=0 : 

GOSUB 4000 



: EXIT 



<4GI> 

1370 


IF 

B*=CHR*(141) THEN ED= 1 : 

GOSUB 400O 


1390 

3 EXIT 

: LOOP L1NTII B*="E" 



1400 

s IF 

B*="£" THEN BEGIN 


<J1H> 

1410 

3 : 

PRINT "(2H0ME)" : WINDOW 0, 

23,79,24,1 

<0IS> 

1420 

; s 

PRINT "<LIG.RED)IDITOR VERLASSEN:tYELL 



0W,3SPACE)SIND 5.1 E SICHER 7 “: 


<5VT> 

1430 

: : 

DO 

: GET KEY B* : LOOP UNTIL INSTRC'JN 



" , B*) 




< AL J > 

1440 


IF 

B*="J" THEN EXIT 


<BEV> 

1450 

: : 

PRINT "<2H0ME>" : WINDOW 62 

,6,79,24 

<GTQ> 

1460 

: BEND 



<RJU> 

1470 

LOGP 




<S7P> 

1510 

BANK 

1 X 

SYS DEC("FC99"> 


<NC4> 

1520 

PRINT 

"(2H0ME,CLR)SYS 65366" CHR*(27)"L" 

<2JQ> 

1530 

POKE 

BA2. 

,19 : POKE 843,13 : POKE 

208,2 

< PVN > 

1540 

END 




<SNM> 

200O 

: 




<70T> 


<0K2> 

<0S3> 

<50L> 

<HR3> 

< BMD > 
<14V> 

<EBK> 

<H4V> 

<043> 
<M8S> 
<8C7> 
<S0L ; 

< 1C5> 

< 1K6> 

< 1S7> 
<70T> 

<6VA> 
<7GP> 
<MN1 > 
<2AF> 
<L4G> 
<3SF> 

<T3P> 

<UND> 
<7KV> 
•CURI > 

<HUE> 

<QCO> 

<TG6> 

<7GV> 


2390 RETURN 
2400 x 
2410 REM 
2420 REM 
2430 REM 
2440 : 

2450 PRINT 
»24,1 

2460 PRINT " (LIG. RED)i/*DENx (YELLOW)" 

2470 DO 

2480 x GOSUB 200O 
2490 : OPEN 8,LF,8,"T"+ZS*+",P,R" 

2500 LOOP UNTIL DS-0 
2510 BLOAD ("T"+ZS#>,U(LF> ,0N BO 
2320 : 

2330 OPEN B,LF,8,"N"*ZS*+",P,R" x CLOSE B 
2540 IF DS=0 THEN BLOAD ("N"+ZSf),U(LF),0N BO : E 
LSE SYS DEC("13O0") 

2530 BANK 1 x SYS DEC("131A"> x REM " ZEICHENSAT 
Z NACH KOPIEREN 

2560 x 

2570 PRINT "<2H0ME>" i WINDOW 0,23,79,24,1 : PRIM 
T "C2H0ME)" i WINDOW 62,6,79,24 
25B0 RETURN 
3000 : 

3010 REM " 74-W4V+TWVT4VTO-V+VTV+V 
3020 REM " 7 ZEICHENSATZ ANZEIGEN 7 
303O REM " 777+T77777ZT77T7T77T777& 

3040 t 

3050 PRINT "(2H0ME,2D0WN>" CHR*(27)"0"; 

3060 WINDOW 60,2,79,24 

307O PRINT "CLIG.GREEN,2SPACE)ZEICHENSATZ (YELLOW 
>" ZS* 

30Q0 PRINT "(DOWN,BROWN) TfOI234567S9ABCDEF" 

3100 DATA O,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 
311© RESTORE 310© 

312© FOR I=0 TO 15 
313© x READ A* 

3140 : PRINT "(BROWN)" A* "(YELLOW) <SYNTH.:142, 
165PACE, 17LEFT, CTRL+N, BROWN ) 7" 5 
3150 : FOR J=0 TO 15 
3160 : : SYS DEC("CDCA"),I*16+J 

3170 x NEXT 
318© s PRINT "(CTRL+N)" 

3190 NEXT 
320O s 

3210 SYS 5657 : REM " 5HAPES LACHEN 

3220 PRINT "CCTRL+N,2H0ME>" s WINDOW 48,3,79,24 
3230 PRINT "<LIG.GREEN) EDIT" 

32.40 "(BRQWNJiTT? 'fAVW" 

3250 P.." 7< YELLOW, RVSON )L (RVOFF, BROWN)7 7(YELL 
DW,RVSON)SAB(RVOFF,BROWN >7" 

3260 PRINT "TTÜ 7(YELL0W,RVSON)CDE«RVOFF,BROWNJT" 
3270 PRINT "<4SPACE>TTTT3C9D0WN>" 

3280 PRINT "(LIG.GREEN) J3EM0RY: " 

3290 PRINT " CBROWN,4SPACE>TFT5TJ" 

3300 PRINT "7m 7(YELLOW,RVSON)FGH{RVOFF,BROWN)TT" 
331© PRINT " 7 (YELLOW,RVSON>M{RVOFF,BROWN )7 7<YELL 
0W,RVSON >IJ K (RVOFF,BROWN)7" 

3320 PRINT "1TS IWT^HOME, YELLOW)" 

3330 s 
3340 RETURN 
4000 : 

4010 REM 
4020 REM 
4030 REM 
4O40 x 

4050 SYS 52652 s REM 
4060 PRINT "(2H0ME)" 

"C2HQME)" 

408O x 

>x«y?0 ir ED TUEN DEO IN 
4100 x x 

REM 
REM 
REM 


7 IDITOR 7 
TO T7T7B 


£URSOR AUS 
WINDOW 0,2,45,24,1 


4110 t 
4120 I 
4130 s 
4140 : 
4150 : 
4152 x 


7 10X16-EDITÜR 7 

y+'mvmvfvmv 


PR I NT " <2H0ME, 2D0WN, LIG. GREEN) flL£-£D I TOR" 
x PRINT " (BROWN,4SPACE)1C2SPACE)2(2SPACE)3( 
2SPACE)4(2SPACE>5(2SPACE>6 (2SPACE)7 <2SPACE)8 
C2SPACE)9 <2SPACE)10" 

4160 ; prin t " (2space>' fnmvmvmvwmvwv 
’+V+V-ftf" 

4170 x FOR 1-1 TO 16 

4180 r s PRINT MID*(STR*(I)+»(2SPACE)",2,2) "7( 
YELLOW,30SPACE,BROWN)T" MID*(STR*(I>,2) 

4190 : NEXT 

420O x PRIN T " C2SPACE)TTTFTT ; TTTTTTT7TTTT ,: I : TTTTT1^? : 

4202 : PRINT "(4SPACE)1(2SPACE>2 C2SPACE)3(2SPACE 
)4 (2SPACE)5(2SPACE >6 (2SPACE>7 C2SPACE)Q C2SPAC 
E)9(2SPACE)1O(2H0ME,YELLOW >" 

4210 x WINDOW 3,5,79,24 x PRINT " " 

4220 s X=0 x Y=0 
4230 x DO 

4240 t x IF X>9 THEN 
THEN X=9 : Y=»Y—1 
4250 : s IF Y>15 THEN 
15 

4260 s s POKE 208,0 x SYS 5751 : SYS 5344 
4270 : : SYS 52332,,Y,X*3.0 : PRINT " (RVSON,3SP 

ACE,RVOFF)"; 

4290 : : GET KEY A* : A=ASC(A*) 

430© : x IF A=29 THEN X=X+1 

4310 : : IF A=157 THEN X=X-1 

4320 : x IF A=17 THEN Y=Y+1 

4330 : : IF A=145 THEN Y=Y-l 


X=0 : Y-Y+l x ELSE IF X<0 
Y=0 x ELSE IF Y<0 THEN Y= 


<0I7> 

<30D> 

<2C9> 

<2KA> 

<2SB> 

<!05> 

<7FA> 

<RAO> 

<NEV> 

<PF2> 

<H02> 

(5RH> 

<85V> 

<30D> 

<E7S> 

< 9U0 > 

<RUL> 

< 105> 

< VA 1 > 
<887 ) 
<50L> 
<1C5> 
<1K6> 
<1S7> 
<70T> 
<^P8R> 
r9TL> 


<SJ9> 

<CCS> 

< DSV > 
<A7V> 
<OBA> 
■<UON> 
<LON> 

<OEB> 

<OJH> 

<7FE> 

<81G> 

<CLA> 

<E9G> 

<70T> 

<UJ0> 

<NOM> 

<62S> 

< VV5> 

<F8A> 
<GLC> 
<T4N> 
288 > 
<37 V> 
<OKK> 

<GMI> 

< 29E > 
<7GV> 
<807> 
<B1D> 
<6CP> 
<6KQ> 
<6SR> 
<915? 
<SFS> 

<FO0> 

<F1T> 

<FXL> 

< JAF > 

< AHB> 
<B1D> 
<BHF> 
<NAV> 
<SIC> 


<T15> 

< Q8G > 
<U00> 

<807> 

<0JG> 

<0GR> 


< 4R9> 
<ECP> 
<DHF> 
<ORF> 

<5JA> 

<N 11 > 

< GKN > 

<AA5> 

<JV8> 

< 0AN> 
<05L> 

< IQP> 
<OLN> 
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C128 


TIPS&TRICKS 


4332 

x 

: IF A=19 THEN X=0 : Y=0 

<VLU> 

4770 

4334 

t 

: IF A-13 THEN X=0 : Y=Y+1 

< M J 0 > 

5000 

4340 


: IF A=141 THEN EX IT 

< 90F > 

5010 

4350 

i 

s IF A=03 THEN SYS 5403,,X,Y 

<VNK> 

5020 

4360 

t 

: IF A=211 THEN SYS 5403,,X,Y : X=X+1 

<57R> 

5030 

4370 

i 

: IF A=6S THEN SVS 5496,,X,Y 

< 1OF > 

5040 

430O 


: IF A=196 THEN SYS 5496,,X,Y : X=X+1 

<R4S> 

5050 

4390 

i 

j IF A* 3 147 THEN SYS 5509 

<C79> 

506O 

4410 

: 

LOOP 

<APP> 

5070 

4420 

i 

SYS DEC("13E0"),Z 

<NGB> 


4430 

BEND : ELSE BEGIN 

<2BN> 

5080 

4440 

| 

| 

< TBN> 


4430 

: 

rem •• i 

<DHN> 

5090 

4460 

i 

REM " TT 8X0-£DITOR T 

<C1H> 

5092 

4470 

: 

rem " 

<CHJ> 


4480 

: 

* 

<HA7> 

510O 

4490 

i 

PRINT " C2HQME, 2D0WN,LIG. GREEN>2E1CHEN-JLDI 




TOR" 

<K30> 

5120 

4492 

: 

PRINT “(BRUWN,4SPflCE)l 2345670" 

<33E> 


4300 

x 

PRINT " C2SPACE)TTTTTTTTTTTTFT?T1TJ'' 

<HU2> 

5130 

4510 

: 

FOR 1-1 TO 0 

<365> 


4520 

: 

: PRINT I '* (LEFT ITflYELLOW, 16SPACE .BROWN) 


5140 



MID*1STR*(I),2) 

<VAO> 


4530 

t 

NEXT 

<8HD> 

3141 

4540 

x 

PR 1 NT " C2SPACE > 'iV+’+W4-W+V-fV+’W±TJ C2H0ME, Y 


5142 


ELLOW)" 

<ODF> 


4550 

I 

WINDOW 3,5,79,24 x PRINT - " 

<BCP> 

5150 

4560 

: 

X=0 l Y=0 

<F1F> 


4570 

: 

DD 

<EPV> 

5160 

45B0 

: 

: IF X>7 THEN X=0 I Y"YH : ELSE IF X<0 




THEN X=7 : Y*Y-1 

<Dun> 

5170 

4590 

: 

: IF Y>7 THEN Y=0 : ELSE IF Y<0 THEN Y= 


510O 


7 


< I A3 > 


4600 

: 

i SYS 5604 : SYS 3780 

<D24 > 

5200 

4610 

: 

: SYS 52332,,Y,X#2,0 : PRINT "CRVSON,2SP 




ACE,RVOFF)"; 

< J9Q> 

5210 

4630 

: 

: GET KEY At 

<QSF> 


4640 

: 

: IF A*="(RIGHT)" THEN X=X+1 

;bc7; 

5220 

4650 

s 

i IF A*=" (LEFT)" THEN X=X-1 

<8KB> 


4660 

: 

i IF A*=";DDWN>" THEN Y=Y+1 

<BST> 

5230 

4670 

: 

: IF A*=”CUP)" THEN Y=Y-1 

<84 I> 


4672 

t 

: IF At="(HOME)" THEN X=0 : Y=0 

<T1F> 

5232 

4600 

: 

: IF A*=CHR*(13) THEN X=0 : Y=Y+l 

<4F3> 


4602 

: 

: IF A*=CHR*(141) THEN EXIT 

<3EC> 

5240 

4690 


s IF AS="S" THEN SYS 5825,,X,Y 

<IJLB> 


4700 


: IF A*="£" THEN SYS 5825,,X,Y : X=X+1 

<0G8> 

5250 

4710 


: IF A*="D" THEN SYS 3835,,X,Y 

<PCS> 

5260 

4720 


: IF A*="S" THEN SYS 5835,,X,Y : X=X+1 

< J4A> 

5270 

4730 


: IF A*="CCLR>" THEN SYS 5845 

<MC6> 


4750 


LOOP 

<ORP> 


4760 

3 

SYS 5621,Z : SYS 4890 

<ür«> 

Listi 


BEND 

: 

REM " 
REM " 
REM " 


t+‘4-“+V+V4-V+'-*-“>VfV 

TT ÜELP-SCREEN 7 
•fV r +TW4-T+VV+V+y 


PRINT "<2H0ME,BROWN)" : WINDOW 0,2,45,24,1 

PRINT "TCRED> HELP fl£N7s CBROWNJTTTO^mTTTP 

PRINT "?<GREY3> REICHEN MIT SJJRSOR AUSWAHLEN 
( 14SPACE, BROWN >TT" 

PRINT "TrC43SPACE>‘ST" 

PRINT "1T<GREY3> " CHR*(2>"8X0 ffl0X1 67 .BEDEUT 
UNG 1 19SPACE >" CHR*(130)"C2SPACE,BROWN )V 
PRINT "TTCGREY3) <CR>TT<£Jl> 7 REICHEN EDITIERE 
NC13SPACE,BROWN)TT" 

PRINT '"jT(GREY3) M(3SPACE)TT fl(3SPACE>T AKTUEL 
LES ZEICHEN -> flEM0RY<3SPACE,BROWN) TT 
PRINT '"E’(GREY3> K(3SPACE)TT JU3SPACE)T EEMORY 
(2SPACE)-> AKTUELLES Z£TCHEN(2SPACE,BROWN)F' 
PRINT 'T<GREY3> V(3SPACE>TT £(3SPACE)TT ÜEMORY 
<-> AKTUELLES Z£ICHENC2SPACE,BROWN>?" 

PRI NT "TT<GREY3,43SPACE, BROWN >TT 

PRINT "ir<GREY3> L...1PAD<15SPACE)S...SAVE CI 1 

SPACE,BROWN>TT 

PRINT "TTCGREY3J £,. . . fROGRAMM BEENDEN C22SPACE 

, BROWN >T 

PRINT 


PRINT 

PRINT "TTCRED) ÜELP £DITOR: CBROWN)- iV4-V4-W-^VV 
PRINT "TCCGREY3} £IXEL MIT fiJJRSOR AUSWFHLENC1 

6SPACE,BROWN) TT 

PRINT "T?CGREY3> S.£IXEL SETZEN CI5SPAC 

E,SHF.SPACE,5SPACE,BROWN>TT 

PRINT "1fCGREY3> D.£1 XEL LOSCHEN (20SPA 

CE,BROWN)T" 

PRINT "Tf(GREY3> RETURN. . . NFCH5TE ZEILE C20SPA 
CE, BROWN) IT" 

PRINT "?<GREY3) KJLTUKH . . . ED I TI EREN BEENDEN - 

> UENYCSSPACE,BROWN)TT" 

PRINT "Y4W+V+ 


V+V+V+Vtf C2H0ME,YELLOW)" 
WINDOW 62,6,77,24 


oru 


Listing 2. (Schluß) 



(TNU> 

<913> 

<7CT> 

<7KU> 

<7SV> 

<B1D> 

<RQP> 

<G4G> 

<7Q9> 

<9ME > 
<5PG> 

<LMR> 

<NOR> 

<4DQ> 

<6N0> 

<30Q> 

< 4BF> 

<RKQ> 

<3LB> 

<BJ6> 

<02O> 

<KM3> 

<BAK> 

< VGQ> 

< H AS > 

<OUJ> 

<3EE> 

<71 V> 
<E?A> 
< 011 > 
<PI7> 


Name : charfont.m 1300 1700 


1300 : 

a9 

ob 

85 

65 

a9 

00 

85 

64 

26 

1308 : 

8d 

01 

ff 

a8 

91 

64 

c8 

dO 

2c 

1310 : 

fb 

06 

65 

a6 

65 

eO 

ff 

dO 

ab 

1318 

f 3 

60 

a9 

00 

8d 

00 

ff 

a2 

c4 

1320 : 

: 13 

a9 

00 

20 

cc 

cd 

a9 

20 

2e 

1328 : 

: ca 

20 

cc 

cd 

a9 

38 

85 

65 

2c 

1330 : 

: a9 

00 

85 

64 

aO 

00 

bl 

64 

61 

1338 : 

: 20 

ca 

cd 

c8 

cO 

08 

90 

f 6 

c6 

1340 

: a5 

64 

69 

07 

85 

64 

90 

02 

14 

1348 

: «6 

65 

a9 

00 

20 

ca 

ad 

ca 

70 

1350 : 

: a9 

07 

20 

cc 

cd 

a5 

65 

c9 

52 

1358 : 

: 40 

dO 

d9 

60 

00 

00 

00 

00 

83 

1300 : 

00 

00 

00 

00 

00 

00 

00 

00 

ßl 

1368 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

69 

1370 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

71 

1378 

00 

00 

00 

00 

00 

00 

00 

00 

79 

1380 : 

: 00 

00 

00 

00 

7c 

00 

82 

82 

57 

1388 

82 

00 

7c 

00 

00 

00 

78 

84 

14 

1390 : 

: 00 

00 

00 

84 

78 

00 

00 

00 

a9 

1398 

: 85 

64 

a2 

00 

86 

65 

Oa 

26 

00 

13a0 

: 65 

Oa 

26 

65 

65 

64 

90 

02 

00 

13a8 

: o6 

65 

Oa 

26 

65 

Oa 

26 

65 

92 

1 3b0 

: 85 

64 

a5 

65 

69 

eb 

85 

65 

54 

13b8 

: 8d 

01 

ff 

60 

20 

98 

13 

aO 

26 

13c0 

: 13 

bl 

64 

99 

70 

13 

88 

10 

da 

13o8 

: f 8 

o8 

8o 

00 

ff 

60 

20 

98 

fc 

13d0 

: 13 

aO 

13 

bl 

64 

99 

84 

13 

7a 

13d8 

: 88 

10 

f 8 

cB 

8c 

00 

ff 

60 

49 

13e0 

: 20 

98 

13 

aO 

13 

b9 

70 

13 

Oc 

13e8 

; 91 

64 

88 

10 

f 8 

c8 

8c 

00 

d7 

13f0 

: ff 

60 

20 

98 

13 

aO 

13 

b9 

30 

13f 8 

: 84 

13 

91 

64 

88 

10 

f ö 

c8 

75 

1400 

: 8c 

00 

ff 

60 

aO 

13 

b9 

70 

03 

1408 

: 13 

99 

5c 

13 

88 

10 

f 7 

60 

Ob 

1410 

: aO 

13 

b9 

84 

13 

99 

5c 

13 

ce 

1418 

: 88 

10 

f7 

60 

5c 

66 

5c 

66 

o9 

1420 

: 5c 

66 

5c 

66 

60 

6a 

60 

6a 

43 

1428 

: 60 

6a 

60 

6a 

64 

6e 

64 

6e 

4b 

1430 

: 64 

6e 

64 

6e 

5c 

66 

5c 

66 

e9 

1438 

■ 5c 

66 

5c 

66 

60 

6a 

60 

6a 

5b 

1440 

: 60 

6a 

60 

6a 

64 

6e 

64 

6e 

63 

1448 

: 64 

6e 

64 

6e 

04 

04 

04 

04 

43 

1450 

: 04 

04 

04 

04 

04 

04 

04 

04 

50 

1458 

: 04 

04 

04 

04 

02 

02 

02 

02 

lc 


1460 : 

: 02 

02 

02 

02 

04 

04 

04 

04 

9d 

1468 : 

: 04 

04 

04 

04 

04 

04 

04 

04 

68 

1470 : 

04 

04 

04 

04 

02 

02 

02 

02 

34 

1478 : 

02 

02 

02 

02 

20 

04 

14 

a9 

02 

1480 : 

; 00 

8d 

00 

ff 

a2 

13 

20 

cc 

24 

1488 : 

cd 

a9 

38 

ca 

20 

cc 

cd 

aO 

72 

1490 : 

00 

b9 

lc 

14 

8d 

aO 

14 

b9 

98 

1498 : 

4c 

14 

aa 

ca 

a9 

00 

ea 

le 

75 

14aO : 

6a 

13 

90 

04 

6a 

38 

6a 

2c 

a7 

14a8 : 

4a 

4a 

ca 

ea 

ea 

10 

fO 

20 

5a 

14bO : 

ca 

cd 

c8 

98 

29 

07 

dO 

Ob 

ca 

14b8 : 

a9 

00 

20 

ca 

cd 

a9 

07 

ca 

9f 

14cO : 

20 

cc 

cd 

cO 

30 

dO 

ca 

60 

'47 

14c8 : 

20 

10 

14 

a9 

00 

8d 

00 

ff 

97 

14d0 ; 

a9 

60 

aZ 

13 

20 

cc 

cd 

a9 

a7 

14d8 : 

38 

ca 

20 

cc 

cd 

4c 

8f 

14 

bd 

14e0 : 

20 

04 

14 

a9 

00 

8d 

00 

ff 

a9 

14e8 : 

a9 

13 

20 

d2 

ff 

aO 

00 

b9 

f 6 

14fO : 

19 

15 

8d 

fa 

14 

a2 

00 

a9 

00 

14f 8 : 

20 

lo 

66 

13 

90 

02 

a9 

40 

64 

1500 ; 

20 

d2 

ff 

20 

d2 

ff 

20 

d2 

eO 

1508 : 

ff 

e8 

cO 

Oa 

dO 

o9 

a9 

Od 

12 

1510 : 

20 

d2 

ff 

c8 

cO 

10 

dO 

d7 

32 

1518 : 

60 

5c 

66 

5c 

66 

5c 

66 

5c 

67 

1520 : 

66 

5c 

66 

5c 

66 

5c 

66 

5c 

75 

1528 : 

66 

a9 

00 

8d 

00 

ff 

a2 

13 

c5 

1530 ; 

20 

cc 

cd 

a9 

30 

ca 

20 

cc 

d2 

1538 : 

cd 

a9 

aa 

20 

ca 

cd 

ca 

a9 

22 

1540 : 

07 

4c 

cc 

cd 

86 

64 

84 

65 

c2 

1548 : 

98 

aO 

00 

29 

01 

fO 

02 

aO 

36 

1550 : 

Oa 

98 

18 

65 

64 

aa 

ab 

65 

56 

1558 : 

4a 

a8 

60 

80 

40 

20 

10 

08 

74 

1560 : 

04 

02 

01 

7f 

bf 

df 

ef 

f7 

40 

1568 : 

fb 

fd 

fo 

20 

44 

15 

b9 

5b 

bO 

1570 : 

15 

ld 

70 

13 

9d 

70 

13 

60 

fd 

1578 : 

20 

44 

15 

bd 

70 

13 

39 

63 

03 

1580 : 

15 

9d 

70 

13 

60 

a2 

13 

a9 

9d 

1588 : 

00 

9d 

70 

13 

ca 

10 

fa 

60 

af 

1590 : 

a2 

13 

a9 

00 

9d 

84 

13 

ca 

06 

1598 : 

10 

fa 

60 

a2 

13 

bd 

70 

13 

99 

15aO : 

9d 

64 

13 

ca 

10 

f 7 

60 

00 

eO 

15a8 ; 

00 

00 

00 

10 

00 

00 

00 

42 

2f 

15bO : 

66 

5a 

42 

42 

42 

42 

00 

00 

52 

15b8 : 

00 

00 

00 

00 

00 

00 

00 

85 

c4 

15cO : 

64 

a9 

00 

06 

64 

2a 

06 

64 

32 

15c8 : 

2a 

06 

64 

2a 

69 

38 

85 

65 

8d 


15d0 

: 60 

48 

20 

bf 

15 

aO 

07 

bl 

2a 

15d8 

: 64 

99 

a7 

15 

88 

10 

f 8 

68 

53 

1 beO 

: 4c 

bc 

13 

ea 

20 

bf 

15 

aO 

42 

15e8 

: 07 

bl 

64 

99 

af 

15 

88 

10 

fa 

15f0 

: f 8 

60 

4c 

ce 

13 

48 

20 

bf 

79 

15f 8 

: 15 

aO 

07 

b9 

a7 

15 

91 

64 

89 

1600 

: 88 

10 

f 8 

68 

4c 

eO 

13 

ea 

c9 

1608 

: 20 

bf 

15 

aO 

07 

b9 

af 

15 

88 

1610 

: 91 

64 

88 

10 

f 8 

60 

4c 

f 2 

al 

1618 

: 13 

a9 

00 

8d 

00 

ff 

a2 

13 

62 

1620 

: 20 

co 

cd 

a9 

38 

ca 

20 

cc 

43 

1628 

: cd 

a9 

00 

20 

ca 

cd 

a9 

df 

4f 

1630 

: ca 

4c 

cc 

cd 

a9 

00 

8d 

00 

de 

1638 : 

: ff 

a9 

cO 

a2 

13 

20 

ce 

cd 

91 

1640 

: 09 

38 

ca 

20 

cc 

cd 

aO 

00 

7 a 

1648 

: b9 

a7 

15 

20 

ca 

cd 

c8 

cO 

de 

1650 

: 08 

dO 

f 5 

60 

a9 

00 

8d 

00 

lb 

1658 : 

: ff 

a9 

dO 

a2 

13 

20 

cc 

cd 

b5 

1660 

: a9 

38 

ca 

20 

cc 

cd 

aO 

00 

9a 

1668 : 

: b9 

af 

15 

20 

ca 

cd 

c8 

cO 

02 

1670 

: 08 

dO 

tB 

80 

20 

dl 

15 

20 

8f 

1678 : 

; 34 

16 

4c 

7c 

14 

20 e-3 

15 

56 

1680 : 

: 4c 

54 

16 

4c 

c8 

14 

*0i 

iQ7 

■c3 

1688 : 

: b9 

a7 

15 

99 

af 

16 

88 

10 

?3 

1690 

: f 7 

60 

oa 

ea 

aO 

00 

8c 

00 

Oft 

1698 ; 

: ff 

a9 

13 

20 

d2 

ff 

b9 

a7 

98 

I6a0 

: 15 

85 

65 

a2 

08 

o-a 

20 

06 

80 

16a8 

: 65 

90 

02 

a9 

40 

20 

d2 

f« 

5b 

16b0 

: 20 

d2 

ff 

ca 

dO 

af 

aS> 

Od' 

eO 

16b8 : 

: 20 

d2 

ff 

o8 

cO 

08 

dO 

de 

a7 

16c0 

: 60 

b9 

a7 

16 

ld 

5b 

16 

99 

be 

16c8 : 

: a7 

15 

60 

b9 

a7 

15 

3d 

63 

28 

16d0 : 

: 15 

99 

a7 

15 

60 

aO 

07 

a9 

b9 

16d8 : 

00 

99 

a7 

15 

88 

10 

fa 

60 

e7 

16e0 ; 

: 00 

00 

00 

00 

00 

00 

00 

00 

el 

16e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

16f 0 : 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

16f8 : 

00 

00 

00 

00 

00 

00 

00 

00 

f 9 


Listing 3. .»CHARFONT.M«, 
der Maschinenspracheteil zu 
»CHARFONT«. Bitte mit dem MSE 
(Seite 158) im C64-Modus 
eingeben. / 
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C128 


Assembler mit Doppelherz 



Darauf haben viele gewartet: Ein Assembler für 
beide Prozessoren des C128 mit jeder Menge 
nützlicher Funktionen, der bis zu 58 KByte Quell¬ 
code im Speicher verarbeitet. 

M it »Double-Ass« erhalten Sie einen leistungsfähigen 
2-Pass-Assembler, mit dem Sie Maschinencode für 
den Z80- und den 8502-Prozessor (CPU) generie¬ 
ren können. In Tabelle 1 finden Sie einen Überblick über die 
wichtigsten Eigenschaften von Double-Ass. 

Der Assembler ist vollständig in Maschinensprache 
geschrieben und belegt zirka 9 KByte in Bank 1 des Com- 
modore 128 und nimmt somit keinen Platz des Basic- 
Programmspeichers ein. Allerdings werden etwa 48 KByte 
des Variablenspeichers vom Assembler für Labels reser¬ 
viert. Dieser Speicherbereich wird aber beim Arbeiten mit 
dem Assembler ohnehin nicht anderweitig benötigt. 

Nach der Eingabe von Listing 1 mit dem MSE (bitte 
beachten Sie die Eingabehinweise auf Seite 158) und 
Speichern kann der Assembler durch 
DLOAD "DOUBLE-ASS" 

RUN 

gestartet werden. 

Mit einem Boot-Sektor-Programm - Sie finden ein sehr 
komfortables auf Seite 52 - kann der Boot-Sektor der Dis¬ 
kette so bearbeitet werden, daß der Assembler nach Ein¬ 
schalten des Rechners automatisch gestartet wird. 


Nach einem Reset wird der Assembler durch Eingabe 
von, 

BANK 1: SYS 5376 

neu initialisiert. 

Der Assembliervorgang selbst wird - wie in Basic - mit 
»RUN« gestartet, wenn in der ersten Zeile der Befehl »* =« 
(siehe unten) zusammen mit der Adresse, ab der das Pro¬ 
gramm generiert werden soll, steht. 

Double-Ass fest im Speicher integrieren 


Es besteht die Möglichkeit, den Assembler in ein 16K- 
EPROM (27128) zu brennen und in den freien Steckplatz 
(U36) des C128 zu stecken. Dies empfiehlt sich besonders 
bei häufigem Arbeiten mit dem Assembler, aber auch für 
gelegentliches Benutzen, da so alle anderen Programme 
völlig unbeeinflußt laufen. Die Kompatibilität bleibt voll 
erhalten. Um den Assembler auf den Steckplatz U36 zu 
bannen, benötigt man lediglich ein 16K-EPROM und einen 
EPROM-Brenner. Das Programm »Double-Ass« kann ohne 
Änderungen auf das EPROM gebrannt werden. 

Schalten Sie bitte anschließend Ihren Computer aus, 
schrauben ihn auf und stecken Sie das EPROM in den 
freien Steckplatz U36. Beachten Sie dabei unbedingt die 
Einbaurichtung (die Kerbe am EPROM muß der Kerbe am 
Sockel entsprechen). Nach dem Einstecken in U36 des 
C128 kann der Assembler durch Eingabe von 
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BANK 4: SYS 58449 

initialisiert werden. 

Wo sich der freie Steckplatz U36 auf der Platine befindet 
und in welchen weiteren Varianten er selektiert werden 
kann, erfahren Sie in dem Artikel »Der freie Steckplatz« auf 
Seite 88. 

So bedient man den Assembler 


ln das Betriebssystem wurden zwei zusätzliche Editorfunk¬ 
tionen eingefügt: Die Routinen »FIND« und »MERGE«. 
»FIND« ermöglicht dem Benutzer, Zeichensequenzen 
innerhalb eines Quelltextes zu finden. Der Befehl hat fol¬ 
gendes Format: 

FIND (Zeichenkettel 

Nach dem Befehlswort folgt ohne Leer- oder Anfüh¬ 
rungszeichen die gesuchte Zeichenfolge. 

Mit Hilfe des MERGE-Befehls können verschiedene 
Quellprogramme aneinandergefügt werden. Er hat fol¬ 
gende Syntax: 

MERGE " Dateiname" ,GN 
wobei »GN« die Geräteadresse ist. 

Außerdem wurde ein zusätzlicher Basic-Befehl einge¬ 
baut, der es ermöglicht, den Assembliervorgang von einem 
Programm aus zu starten. Er lautet »* =« und wird, gefolgt 
von der Adresse, ab der das Maschinenprogramm gene¬ 
riert werden soll, eingegeben. 

Wie gibt man Source-Code ein? 


- Mischen von Z80- und 8502-(6510-)Maschinencode 

- Editierung und Assemblierung von bis zu 58 KByte Quellcode im 
Speicher 

- File-Verkettung möglich (endloses Assemblieren!) 

- automatische Anpassung an 40/80-Zeichen-Darstellung 

- tormatfreie Eingabe über Basic-Editor 

- gleichzeitige Verwaltung von bis zu 7000 Labels 

- komfortable Ausgabesteuerung durch umfangreiche Pseudocodes 

- erweiterter Editor 

- auf Wunsch immer resident im Speicher vorhanden 

Tabelle 1. Die Leistungsmerkmale unseres Assemblers 


»!« logisches OR 
»&« logisches AND 
»t« logisches XOR 

Die Ausdrücke werden in der Reihenfolge ihres Auftre¬ 
tens abgearbeitet. Falls dies nicht gewünscht wird, so müs¬ 
sen Klammern gesetzt werden. 

Die Operanden können folgende Formate haben: 

$1000 (Hexadezimal) 

4096 (Dezimal) 

%10000000 (Binär) 

"Z" (ASCII) 

($1000+345*2) zusammengesetzter Ausdruck 

Ist das erste Zeichen des Parameters ein »>« oder ein 
»<«, so wird entsprechend das High- oder Low-Byte des 
gesamten nachfolgenden Ausdrucks verarbeitet. 

Zu den folgenden Pseudo-Opcodes eine Anmerkung 
vorab: Die Parameter in eckigen Klammern sind optional, 
müssen also nicht unbedingt eingegeben werden. Aber 
nun die Opcodes 


Ein Maschinenprogramm wird - wie ein Basicprogramm - 
mit Zeilennummern eingegeben, wobei auch sämtliche 
Editierfunktionen des Basic-Editors zur Verfügung stehen. 
Es ist auch möglich, mehrere Befehle durch Doppelpunkt 
getrennt in eine Zeile zu schreiben, wodurch sich die Über¬ 
sichtlichkeit der Programme wesentlich erhöhen läßt. 

Der Assembler erkennt außerdem, ob der 40-, oder 
80-Zeichen-Modus aktiviert ist. Die Ausgabe von Symbol¬ 
tabellen etc. wird entsprechend angepaßt. 

Unser Assembler besitzt eine Vielzahl von Pseudo- 
Opcodes. Das sind Befehle, die dem Assembler zusätzli¬ 
che Anweisungen für den Assemblierungsablauf, für die 
Ausgabe von Listings, das Nachladen von Symboltabellen, 
und so weiter, geben. 

Zunächst sollen einige Begriffe, die im Zusammenhang 
mit den Pseudo-Opcodes Verwendung finden, erklärt wer¬ 
den. 

LABEL: Ein Label ist eine Zeichenkette, die für eine 
Adresse oder einen Wert steht. Das erste Zeichen des 
Labels muß ein Buchstabe sein. Die folgenden Zeichen 
können Buchstaben oder Zahlen sein. 

Beispiel: VIC001 = $D000 

Bei einem Label sind die ersten 40 Zeichen relevant (in 
Basic sind es nur die ersten beiden). Wichtig: Ein Label darf 
nicht mit einem reservierten Befehlswort übereinstimmen. 
Reservierte Befehle sind Pseudo-Opcodes (siehe unten) 
und Maschinenbefehle des Z80 und 8502. 

OPCODE: Die Opcodes sind Befehlswörter für einen 
Prozessor (z.B. LDA). 

PARAMETER: Parameter sind Daten, die der Befehl für 
seine Ausführung benötigt. Ein Parameter kanp auch aus 
mehreren verknüpften Elementen bestehen. Für die 

Zusammensetzung eines Parameters lassen sich folgende 

Operatoren verwenden: 

»+« addiert Werte 
»-« subtrahiert Werte 
»*« multipliziert Werte 


Format. _abel = Parameter 
Dieser Pseudo-Opcode weist einem Label einen festen 
Wert zu. Beispiel: 

VIC = $D000 

weist dem Label »VIC« den Wert $D000 zu. 

Format: Label == Parameter 
Dieser Opcode weist einem bereits existierenden Label 
einen neuen Wert zu. 

Beispiel: 

LAUF = $0001 
LAUF == LAUF + 1 


Z80-Opcodes: 

ADC 

ADD 

AND 

BIT 

CALL 

CCF 

CP 


CPD 

CPDR 

CPI 

CPIR 

CPL 

DAA 

DEC 


Dl 

DJNZ 

El 

EX 

EXX 

HALT 

IM 


IN 

INC 

IND 

INDR 

INI 

JP 

JR 


LD 

LDD 

LDDR 

LDI 

LDIR 

NEG 

NOP 


OR 

OTDR 

OTIR 

OUT 

OUTD 

OUTI 

POP 


PUSH 

RES 

RET 

RETN 

RL 

RLA 

RLCA 


RLC 

RLD 

RR 

RRA 

RRC 

RRCA 

RRD 


RST 

SBC 

SCF 

SET 

SLA 

SRA 

SRL 


SUB 

XOR 







8502-Opcodes: 

ADC 

AND 

ASL 

BIT 

BPL 

BMI 

BVC 

BVS 

BCC 

BCS 

BNE 

BEQ 

CMP 

CPX 

CPY 

DEC 

EOR 

INC 

JMP 

JSR 

LDA 

LDX 

LDY 

LSR 

NOP 

ORA 

PHA 

PHP 

PLA 

PLP 

RTI 

RTS 

ROL 

ROR 

SBC 

SEC 

SED 

SEI 

TAX 

TAY 

TSX 

TXA 

TXS 

TYA 

STA 

STX 

STY 


Pseudo-Opcodes: 

= 

= = 

• = 

•ASC 

BYT 

.WOR 

.MOD 


.OBJ 

•LIS 

.SYM 

.LST 

SST 

.END 

•FIL 


.LF 

,IF= 

IF < 

.SLO 

.FAS 

■ ERR 




Tabelle 2. Liste aller reservierten Befehle (Z80- und 
8502-Opcodes und Pseudo-Opcodes des Assemblers) 
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Format: * = Parameter 

Weist dem Program-Counter »PC« einen neuen Wert zu. 
Achtung! Nach diesem Befehl werden sämtliche durch 
».OBJ« geöffnete Dateien geschlossen. 

Beispiel: 

*= $8000 

gibt dem »PC« die Startadresse, ab der das Programm 
generiert werden soll, an. 

.US 

Für diesen Befehl gibt es die folgenden drei Formate: 

.US SCREEN oder ,LIS S 

Veranlaßt den Assembler, ein formatiertes Listing des 
Quelltextes auf dem Bildschirm auszugeben. 

•US NOTHING oder .US N 

Veranlaßt den Assembler, ohne Ausgabe eines Listings 
zu assemblieren. 

.LIS GA [,SA] [,FN] 

Dieser Opcode veranlaßt den Assembler, ein formatier¬ 
tes Listing auf einem Peripheriegerät (Drucker, Floppy) aus¬ 
zugeben. 

GA = Geräteadresse 
SA = Sekundäradresse 
FN = Dateiname 

Dateiname und Sekundäradresse können weggelassen 
werden. Diese Kürzel gelten auch für weitere Opcodes. 
Beispiel: 

.LIS 4,7 

gibt ein formatiertes Listing des Quellcodes in Kleinschrift 
(diese nur auf MPS-Druckern und kompatiblen) auf dem 
Drucker aus. 

.OBJ 

Auch für den Befehl ».OBJ« gibt es mehrere Formate: 
.OBJ MEMORY [,bank] oder .OBJ M [,bank] 

(bank = 0 bis 15) 

Ist der Wert »bank« nicht angegeben, wird Bank 0 ange¬ 
nommen. ».OBJ« schreibt den generierten Maschinen- 
Code im Speicher in die festgelegte RAM-BANK. 

.OBJ NOTHING oder .OBJ N 
Veranlaßt den Assembler, einen Quelltext lediglich auf 
Fehler zu überprüfen ohne Maschinencode zu generieren. 
.OBJ GA [,SA] [,FN] 

Mit diesem Opcode wird der generierte Code auf einem 
Peripheriegerät ausgegeben. 

Beispiel: 

.OBJ 8,1,"TEST" 

schreibt den generierten Maschinen-Code unter dem 
Dateinamen »Test« auf Diskette. 

.SYM 

Folgende Formate sind möglich: 

.SYM SCREEN oder .SYM S 
Dieser Opcode veranlaßt den Assembler eine formatierte 
Symboltabelle auf dem Bildschirm auszugeben. 

.SYM GA [,SA] [,FN] 

Damit wird eine formatierte Symboltabelle auf ein Peri¬ 
pheriegerät ausgegeben. 

Beispiel: 

.SYM 4, 7 

gibt eine Symboltabelle auf dem Drucker aus. 

.LST (Load Symbol Table) 

Format: .LST GA, SA, FN 

Wobei »SA« normalerweise »0« ist (für »PRG«-Dateien). 

Dieser Opcode veranlaßt den Assembler, eine bereits 
gespeicherte Symboltabelle in den Speicher zu laden und 
mit zu verarbeiten. Beispiel: 

.LST 8,0, "TABELLE" 

lädt die Symboltabelle mit dem Namen »TABELLE«. 

.SST (Save Symbol Table) 

Format: .SST GA, SA, FN 


»SA« ist normalerweise »1« (für »PRG«-Dateien). 

Dieser Befehl bewirkt, daß die im Speicher befindliche 
Symboltabelle unter dem Dateinamen »FN« auf Diskette 
gespeichert wird. 

Beispiel: 

.SST 8,1, "TABELLE" 

schreibt die Symboltabelle unter dem Namen »TABELLE« 
auf Diskette. 

.MOD 

Format: .MOD 1 beziehungsweise .MOD 2 
Dieser Opcode schaltet zwischen den beiden Assem¬ 
blierungsmodi des Assemblers um. ».MOD 1« schaltet auf 
den Z80-Modus um. Das heißt, nach diesem Opcode darf 
nur Z80-Code folgen, entsprechend nach ».MOD 2« nur 
8502-Code. Die Pseudo-Opcodes bleiben in beiden Modi 
gleich erhalten. 

.FIL 

Format: .FIL GA, FN 

Dieser Befehl lädt einen weiteren Quelltext nach und 
assembliert diesen (siehe auch ».END«). 


Assemblierung mehrerer Programmfeile 


.LF 

Format: .LF GA, FN 

Den Pseudo-Opcode ».LF« leitet »PASS 2« ein (bei meh¬ 
reren Programmteilen). Besteht ein Quellprogramm aus 
mehreren Teilen (weil nicht alle gleichzeitig in den Speicher 
passen), so muß am Ende des ersten Teils der Opcode 
».FIL« mit dem Namen des zweiten Teils folgen, welcher 
dann in. ,.rsten Pass assembliert wird. Dies passiert so oft, 
wie Teile vorhanden sind. Im letzten Teil muß dann am Ende 
des Quellprogramms der Opcode ».LF GA,FN« stehen, 
wobei für »FN« der Dateiname des ersten Teils steht, der 
sodann nachgeladen und im 2. Pass assembliert wird. 
.END 

Format: .END (optional) 

Nach diesem Befehl beginnt der Assembler mit »PASS 
2«. Der Befehl wird nur benötigt, wenn kein Assemblerbe¬ 
fehl als letzter Befehl im Listing steht. Es kann also bei¬ 
spielsweise ein Basic-Programm einfach an den Source- 
Code angehängt werden. 

.FAS 

Format: .FAS 

Dieser Pseudo-Opcode schaltet den Prozessor in den 
2 MHz-Modus (nur für die Assemblierung). Hierbei wird der 
Bildschirm ausgeblendet. Am Ende des Assemblierungs¬ 
prozesses wird automatisch in den 1 MHz-Modus zurück¬ 
geschaltet. 

.SLO 

Format: .SLO 

Schaltet den Prozessor in den 1 MHz-Modus. 

.ERR 

Format: .ERR 

Ist der Prozessor im 2-MHz-Modus, der Bildschirm also 
ausgeblendet, so können Fehler nicht gesehen werden. 
Durch diesen Pseudo-Opcode wird, sobald ein Fehler auf- 
tritt der Bildschirm eingeblendet. Nach einem beliebigen 
Tastendruck wird wieder fortgesetzt. 

.BYT 

Format: .BYT byte, byte, ... 

Nach ».BYT« folgen, durch Komma getrennt, beliebig 
viele Parameter bis zum Ende der Zeile. Hier können also 
alle Operatoren verwendet werden, »byte« kann Werte von 
dezimal 0 bis 255 annehmen. 

.WOR 

Format: .WOR wort, wort, ... 
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Dieser Befehl ist weitgehend identisch mit »BYT«, nur 
»wort« kann Werte von dezimal 0-65535 annehmen. 

.ASC 

Format: .ASC " text'' 

»text« ist eine Zeichenkette, deren Länge lediglich durch 
die Länge der Eingabezeile begrenzt ist (160 Zeichen), 
»text« kann aus allen ASCII-Zeichen bestehen (groß und 
klein). Die Werte der letzten drei durch die Befehle ».BYT«, 
».WOR« und ».ASC« festgelegten Parameter werden direkt 
im Speicher abgelegt. 

.IF< 

Format: .IF< Wert 1, Wert 2, Zeilennummer 
Dieser Befehl dient zur bedingten Assemblierung. »Wert 
1« wird mit dem »Wert 2« verglichen. Ist »Wert 1« kleiner als 
»Wert 2«, so wird der Assemblierungsvorgang bei der ange¬ 
gebenen Zeilennummer fortgesetzt. Anderfalls wird mit 
dem ».IF« folgenden Befehl fortgesetzt. 

.IF= 

Format: .IF= Wert 1, Wert 2, Zeilennummer 
Wie »,IF< nur wird hier bei Gleichheit von »Wert 1« und 
»Wert 2« verzweigt. Mit Hilfe der Befehle ».IF< »,IF=« und 
»==« können Schleifen aufgebaut werden. 

Tips für die Befehlseingabe 

Nun noch einige Hinweise zum Eingabeformat: Zwischen 
Labels und Opcodes (bzw. Pseudo-Opcodes) muß ein Leer¬ 
zeichen stehen. Ebenso zwischen Opcodes (bzw. Pseudo- 
Opcodes) und Parametern. 

Beispiele: 

falsch : * =$8000 richtig : * = $8000 

falsch : LDA#1 richtig : LDA #1 

Dies dient zusätzlich der Übersichtlichkeit. 

In Tabelle 2 finden Sie alle Z80- und 8502-Opcodes sowie 
die Pseudo-Opcodes des Assemblers im Überblick. 

Hinweis zur Zeropage-Adressierung: Der Assembler 
erkennt selbständig (im 8502-Modus), ob eine Zeropage- 
Adressierung möglich ist. Sollte dies der Fall sein, benutzt 
er diese auch. Falls dies nicht gewünscht wird, muß dem 
gesamten Ausdruck ein Ausrufezeichen »!«vorangehen. 
Beispiel: 

LDA !$80 

Im Speicher steht dann: 

AD 80 00 

(»AD« entspricht »LDA« absolut) 

So werden beide 
Prozessor-Codes gemischt 


30 .OBJ MEMORY 
10000 SEI 

10010 LDA FF00:PHA 
10020 LDA #$C3 :STA $FFEE 
10030 LDA #(Z80:STA $FFEF 
10040 LDA #)Z80:STA $FFF0 
10050 LDA #$3E :STA $FFOO 
10060 LDA $D505:PHA 
10070 LDA #$B0 :STA $D505 
10080 N0P 

10090 PU :STA $D505 
10100 PLA :STA $FF00 
10110 CLI :RTS 
11000 Z80 .MOD 1 
11010 LD A,$3F 
11020 LD ($FF00),A 
11030 LD A,$51 
11040 LD ($6000),A 
11050 JP $FFE0 
11060 


=R Of 


Nach dem Starten des Assemblers befindet sich dieser im 
8502-Modus. Um den Assembler auf die Maschinenspra¬ 
che des Z80 bzw. 8502 umzuschalten, existieren die 
Pseudo-Opcodes ».MOD 1« und ».MOD 2«. Zusätzlich muß 
dem einen Prozessor aber auch noch mitgeteilt werden, 
daß er die Kontrolle nun dem anderen Prozessor überge¬ 
ben muß. Dieses wird nicht durch den Pseudo-Opcode 
».MOD« erledigt, da dieser sich nur auf die Steuerung des 
Assemblers bezieht. Die Umschaltung muß vom Source- 
Programm selbst erfolgen. Nach der Umschaltung mit 
».MOD 1« auf Z80-Code dürfen nur noch Z80-Maschinen- 
befehle folgen. Umgekehrt nach ».MOD 2« nur noch 
8502-Befehle. 

Die Vorbereitung zur Übergabe der Kontrolle muß also 
vorher in 8502-Maschinencode erfolgt sein. Zu dieser Kon- 
trollübergabe nun ein Beispielprogramm: 

10 *= $8000 ; PROGRAMM NACH $8000 

20 .LIS S ; LISTING AUF BILDSCHIRM 


OBJEKTCODE IN SPEICHER 
INTERRUPT VERHINDERN 
KONFIG.REG. RETTEN 
Z80-BEFEHL JP (JUMP) 
L0W-BYTE 
HIGH-BYTE 

SETZEN D. KONFIG.REG. 

MCR RETTEN 

MMU-REGISTER: Z80 EIN 
WARTEN (WICHTIG !!!) 

MCR KORRIGIEREN 
KONFIG.REG. KORRIGIEREN 
INTERRUPT ERLAUBEN, RETURN 
ES FOLGT Z80-C0DE 
SETZEN DES KONFIGURATIONS¬ 
REGISTERS 
Z80 - 

PROGRAMM — 
BETRIEBSSYSTEMROUTINE: 

8502 AKTIVIEREN 


An diesem Beispiel wollen wir uns einmal genau anse- 
hen, wie das Umschalten gemacht wird. Zunächst ist der 
8502-Prozessor aktiv. Nach »STA $D505« in Zeile 10070 
wird der 8502 angehalten und der Z80 übernimmt die Kon¬ 
trolle. Das folgende »NOP« (Zeile 10080) ist notwendig, um 
gewisse Timing-Probleme der MMU (Memory Managing 
Unit; dieser Baustein kümmert sich um die Speicherver¬ 
waltung) zu überbrücken. Nachdem in Zeile 10100 auch 
das Konfigurationsregister entsprechend gesetzt wurde, 
bearbeitet nun die Z80-CPU die Befehle ab Adresse $FFEE 
f h 2 ”e der Z80 nach dem Bootversuch von CP/M aufge- 
zu arbeiten). Diese Tatsache wird genutzt, um die 
Übergabe noch im 8502-Modus vorzubereiten. So wurde in 
der Zeile 10020 ein Z80-Sprungbefehl ($C3 = JP) in die 
Adresse $FFEE eingegeben. Es folgen das Low-Byte (Zeile 
10030) und High-Byte (Zeile 10040) des eigentlichen 
Z80-Programms. Der Z80-Prozessor springt dann quasi in 
die Zeile 11010 und arbeitet ab dort weiter. 

Um wiederden 8502-Prozessor zu aktivieren, genügt ein 
Sprung in die Betriebssystem-Routine »$FFE0« (Zeile 
11050). Danach fährt der 8502 mit dem »CLI« in Zeile 10110 
fort. 

Auf diese Weise können Sie die teilweise höhere Arbeits¬ 
geschwindigkeit des Z80 nutzen oder auf Befehle zurück¬ 
greifen, die der 8502-Prozessor nicht hat. Beispielsweise 
kann der Z80 mit einem Befehl einen kompletten Speicher¬ 
block verschieben. Auf der Seite 91 finden Sie übrigens 
eine Einführung in die Z80-Programmierung. 

Welche Möglichkeiten sich insgesamt durch das 
Mischen der beiden Prozessor-Codes dem Programmierer 
eröffnen, können wir hier nur erahnen. Die Anwendung 
bleibt Ihrer eigenen Kreativität überlassen. 

Interessante Programme können Sie uns gern ein¬ 
schicken. Wir sind schon gespannt darauf. Übrigens, auch 
das Spiel »Vektors« (Seite 150) wurde mit diesem Assem¬ 
bler geschrieben. (Harald Beine/Arne Jansen/M. Jobst) 
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4c 

10 

29 

21 

33 

38 

33 

45 

48 

3d41 


cO 

cO 

ae 

Od 

00 

dd 

20 

20 

5e 

4049 


48 

20 

fl 

37 

68 

aB 

4c 

3f 

80 

3a41 


33 

64 

3 S 

77 

33 

89 

33 

ad 

Oa 

3d49 


20 

20 

20 

20 

20 

20 

20 

20 

49 

4051 


91 

08 

78 

*9 

lf 

Bd 

00 

ff 

98 

3*49 


33 

cl 

33 

d3 

33 

f b 

33 

lc 

bc 

3d51 


20 

20 

20 

20 

20 

20 

20 

20 

51 

4059 


a9 

01 

85 

fc 

a9 

00 

85 

fa 

2 a 

3*51 


34 

2d 

34 

45 

34 

5b 

34 

74 

a9 

3d59 


20 

20 

dd 

Od 

00 

dd 

20 

5a 

c6 

4061 


a9 

lc 

85 

fd 

a9 

cO 

85 

fb 

G8 

3a59 


34 

8a 

34 

ab 

34 

ba 

34 

ca 

d4 

3d61 


3B 

30 

2f 

38 

35 

30 

32 

2d 

7c 

4069 


a 2 

26 

aO 

00 

bl 

fa 

91 

fc 

7a 

3*61 


34 

dl 

34 

21 

33 

21 

33 

21 

fa 

3d69 


41 

53 

53 

45 

4d 

42 

4c 

45 

74 

4071 


c8 

dO 

f 9 

e6 

fb 

e6 

fd 

ca 

81 

3a69 


33 

21 

33 

21 

33 

21 

33 

21 

69 

3d71 


52 

20 

dd 

Od 

00 

dd 

20 

20 

9c 

4079 


dO 

f2 

a9 

00 

Bd 

01 

lc 

Bd 

99 

3*71 


33 

21 

33 

21 

33 

21 

33 

df 

ef 

3d79 


20 

20 

20 

20 

20 

20 

20 

20 

79 

4081 


02 

lc 

4c 

14 

lc 

dO 

f 2 

a9 

Be 

3*79 


34 

sa 

34 

ff 

34 

42 

45 

46 

26 

3d81 


20 

20 

20 

20 

20 

20 

20 

20 

81 

4089 


00 

Bd 

01 

lc 

Bd 

02 

lc 

4c 

06 

3*81 


45 

4B 

4c 

20 

45 

58 

49 

53 

e4 

3d89 


20 

20 

dd 

Od 

00 

dd 

20 

20 

82 

4091 


14 

lc 

a2 

05 

bd 

al 

40 

9d 

22 

3aB9 


54 

49 

45 

52 

54 

20 

4e 

49 

30 

3d91 


20 

20 

48 

41 

52 

41 

4c 

44 

e5 

4099 


ea 

Oa 

ca 

10 

f 7 

4c 

00 

Ob 

35 

3*91 


43 

48 

54 

00 

5 h 

45 

52 

4d 

81 

3d99 


20 

42 

45 

49 

4e 

45 

20 

20 

25 

40a 1 


Bd 

03 

ff 

4c 

f 3 

4a 

44 

45 

66 

3*99 


49 

53 

53 

45 

20 

27 

29 

27 

38 

3dal 


20 

20 

dd 

Od 

00 

dd 

20 

20 

9a 












3**1 


00 

4b 

45 

49 

4e 

45 

20 

50 

f 2 

3da9 


20 

20 

20 

20 

20 

20 

20 

20 

*9 










1 

y 

3a*9 


41 

52 

41 

4d 

45 

54 

45 

52 

be 

3dbl 


20 

20 

20 

20 

20 

20 

20 

20 

bl 










l 


3ab 1 


20 

49 

4g 

20 

44 

45 

52 

20 

05 

3db9 


20 

20 

dd 

Od 

00 

dd 

20 

20 

b2 












3ab9 

: 

4b 

4c 

41 

4d 

4d 

45 

52 

00 

6d 

3dc 1 


20 

20 

20 

20 

20 

20 

20 

26 

cd 

Listing 1. 

»Double-Ass« (Schluß; 
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C128 


Master - Basic meisterhaft 


Echte Windows, eine vielseitige RAM-Disk, Hilfen 
zur Behandlung von Variablen und einiges mehr 
bietet Ihnen »MASTER«, eine sehr komfortable 
Befehlserweiterung zum Abtippen. 

W o die üblichen Basic-Erweiterungen an ihre Gren¬ 
zen stoßen, setzt MASTER an. Es bietet eine kom¬ 
fortable Ausgabe von Variablen und Feldern, macht 
das Generieren von Tabellen einfach und unterstützt die 
Fenstertechnik für menügesteuerte Programme. Neben 
weiteren speziellen Befehlen und Funktionen realisiert 
MASTER aber vor allem eine RAM-Disk, in der Programme 
und Daten abgelegt werden können. 

Die Basic-Erweiterung MASTER knüpft an die bereits 
veröffentlichte Erweiterung »Butler« (64’er Sonderheft 
10/86) an und ist nur zusammen mit dieser lauffähig. Sie 
arbeitet sowohl im 40- als auch im 80-Zeichen-Modus des 
C128. Eine Übersicht aller Befehle sehen Sie in Tabelle 1. 
MASTER profitiert von den vielen grundlegenden Möglich¬ 
keiten des Programms »Butler« und kann sich deshalb 
komplexeren Aufgaben zuwenden. Falls Sie Butler noch 
nicht besitzen, müssen Sie zusätzlich Listings 1 und 2 mit 
dem MSE im C64-Modus eingeben. Bitte beachten Sie 
dazu die Eingabehinweise auf Seite 158. Sie finden außer¬ 
dem in Tabelle 2 eine kurze Übersicht über aller Befehle 
von »Butler«. 

Das eigentliche Programm MASTER besteht aus zwei 
Teilen, welche Sie in Listing 3 und 4 finden. Diese müssen 
ebenfalls mit dem MSE im C64-Modus eingegeben wer¬ 
den. Der kleinere Teil liegt in einem von »Butler« bereits 
reservierten Bereich und der größere Teil belegt den Spei¬ 
cherbereich von $E000 bis $EFFF in Speicherbank 0. Zur 
Erinnerung sei erwähnt, daß »Butler« sowohl den dahinter¬ 
liegenden Bereich von $F000 bis $FEFF als auch den von 
$1300 bis $1BFF beansprucht. 

»Diskettenlaufwerk« im RAM 


Das Bemerkenswerteste an MASTER ist sicherlich die Rea¬ 
lisierung einer »RAM-Disk«. Dazu wird ein bestimmter 
Speicherbereich als »Diskette« verwendet. Auf dieser kön¬ 
nen Sie Dateien speichern, wieder laden und löschen. Dies 
geschieht sehr schnell, allerdings sind die Daten auf der 
RAM-Disk beim Ausschalten des Computers verloren. Die 
zur Verfügung stehende Speicherkapazität dieser RAM- 
Disk ist im Vergleich zu der einer Diskette natürlich relativ 
gering, doch soll durch sie ja kein Diskettenlaufwerk 
ersetzt, sondern nur sinnvoll ergänzt werden. Wer nur ein 
Kassettengerät besitzt, wird natürlich besonders von der 
RAM-Disk profitieren. 

Doch MASTER bietet noch mehr als diese RAM-Disk. So 
ist es möglich, alle Variablen und Felder mit ihren Werten 
ausgeben zu lassen, um einen schnellen Überblick der ver¬ 
wendeten Variablen zu erhalten. Außerdem können Tabel¬ 
len mit Hilfe nützlicher Befehle einfach gestaltet werden 
und die Programmierung von Menüs wird unterstützt. 
Daher lassen sich recht einfach und schnell Programme 
erstellen, die auch optisch einiges bieten. Zusätzlich liefert 

MASTER für Tüftler noch neue Befehle, mit denen selbst¬ 
modifizierende Programme erstellt und Basic-Zeilen ent¬ 
schlüsselt werden können. Aber dazu später mehr. 

Wie oben bereits erwähnt, ist MASTER nur zusammen 
mit »Butler« lauffähig. Das kleine Basic-Ladeprogramm 


MEMUE9,5,34,20 
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Bild 1. Ein mit »MASTER« erstelltes Menü-Fenster. Im 
aktiven Fenster befindet sich das Directory der RAM-Disk. 

»MASTER.LADER« (Listing 5) lädt und aktiviert daher 
zunächst »Butler«, bevor dann mittels BOOT-Befehl die 
Dateien »/MASTER.1 "« (Listing 3) und »/MASTER.2« 
(Listing 4) geladen und aufgerufen werden. Daher müssen 
sich alle Programmteile von »Butler« und MASTER auf 


_ 

Befehle und Funktionen zur RAM-DISK 
(Parameter in eckigen Klammern optional) 

RAMDIR 


RAMSAVE 

Name [,P Anfangsadresse TO P Endadresse+1] 
[,ON B Bank] 

RAMLOAD 

Name [,P Anfangsadresse ],ON B Bank» 

RAMRUN 

Name 

RAMSCR 

RAMNEW 

RAMDEV 

Name 

RAMIN 

Name [,U Gerät) [,D Laulwerk] 

RAMOUT 

Name j,U Gerät) [,D Laufwerk) 

RAMCONF 

Anzahl 

RAMUSED 

(Nummer) 

RAMFREE 

(Nummer) 

RAMSIZE 

(Name) 

RAMLOC 

(Name) 

RAMRES 

Name,Anzahl 

Variablenbehandlung 

DUMP 

Liste 

AR RAY 

Liste 

SHOW 

String 

Erzeugen von Menüs 

FRAME 

X.Y.X^Y, 

VERTI 

X.Y.Y, 

HORIZ 

YX.X, 

MENUE 

PURGE 

PURGEALL 

X.Y.XlY, 

Sonstige Befehle 

INSERT 

String 

BASIC® 

(String) 

BASLNS 

(Adresse) 

MEMS 

(Ad resse,Anzahl) 

MEMDEF 

Adresse,String 


Tabelle 1. Befehle und Funktionen mit den benötigten 
Parametern von »MASTER« im Überblick 
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einer Diskette befinden. Das Ladeprogramm wird am ein¬ 
fachsten mit »RUN "MASTER"« geladen und gestartet. 
Nach erfolgtem Laden ist MASTER aktiviert. 

Wie schon bei »Butler«, bleibt die Erweiterung aktiv, bis 
die RESET-Taste betätigt oder mittels Basic-Aufruf »SYS 
DEC("1303")« die Abschaltung veranlaßt wird. Eine 
erneute Aktivierung ist mit »SYS DEC("1300")« möglich. 
Der Inhalt der RAM-Disk geht dabei nicht verloren. 

Die Befehle von MASTER 


Nach Aktivierung von MASTER stehen 40000 Bytes zur 
Verfügung, um Programme oder Speicherbereiche in der 
RAM-Disk abzulegen. Hierfür wird ein Teil des Variablen¬ 
speichers benutzt. Falls der Variablenspeicher nicht 
reichen sollte, kann die RAM-Disk natürlich verkleinert 
werden. Andererseits kann sie aber auch bis auf 58112 
Bytes vergrößert werden, wenn man mit 1024 Bytes Varia¬ 
blenspeicher zufrieden ist. 

Die RAM-Disk erlaubt es, mehrere Basic-Programme 
oder Programmteile im Speicher zu halten, und diese auf 
Wunsch blitzschnell in den Programmspeicher zu laden 
und automatisch zu starten. Eine andere Anwendung wäre, 
das gerade editierte Programm kurz in die RAM-Disk zu 
speichern, um einen Blick in ein anderes Programm zu wer¬ 
fen. Nach dem erneuten Laden kann es dann mit dem Edi¬ 
tieren weitergehen. 

Die RAM-Disk kann aber auch dazu dienen, Speicherbe¬ 
reiche abzulegen, um sie stets schnell zur Verfügung zu 
haben. Denkbar wäre es also, Textseiten, Grafikbilder, 
Funktionstastenbelegungen oder ähnliches auf der FiAM- 
Disk zu sichern. 

Die RAM-Disk legt die Dateien unmittelbar hintereinan¬ 
der in der Speicherbank 1 ab $1800 ab. Jede neue Datei 
wird hinter den vorhandenen im Speicher abgelegt. Beim 
Löschen einer Datei werden alle nachfolgenden nach 
vorne geschoben, um die entstandene Lücke zu schließen. 

Das gilt auch für die Einträge des Inhaltsverzeichnisses 
der RAM-Disk, welches ebenfalls in Bank 1, jedoch geson¬ 
dert ab $1200 abgelegt ist. 

Jeder Eintrag im Inhaltsverzeichnis umfaßt 20 Bytes: 
Byte 0, 1 : Dateilänge Low, High-Byte 

2 : unbenutzt 

3 : Länge des Dateinamens 

4 bis 19 : Dateiname 

Insgesamt sind bis zu 12 Einträge im Inhaltsverzeichnis 
möglich. Diese Einschränkung ergibt sich aus programm¬ 
technischen Gründen, um das Verzeichnis auf einer Spei¬ 
cherseite unterzubringen. 

Alle Basic-Befehle im Zusammenhang mit der RAM-Disk 
beginnen mit dem Kürzel »RAM«. Ansonsten gelten für 
Namen und sonstige Parameter die für die Diskettenbe¬ 
fehle des Basic 7.0 üblichen Bezeichnungen. 

Zunächst seien die Befehle vorgestellt, die dazu dienen 

- Programe auf der RAM-Disk zu speichern, 

- Programme von der RAM-Disk zu laden; eventuell mit 

automatischem Programmstart, 

- einzelne oder alle Dateien auf der RAM-Disk zu löschen 

- oder ein Inhaltsverzeichnis ausgeben zu lassen. 
RAMDIR 

Inhaltsverzeichnis auflisten (die Größe der Dateien wird 
in Bytes ausgegeben). 

RAMSAVE "Name" 

Aktuelles Basic-Programm unter dem angegebenen 
Namen auf der RAM-Disk speichern. 

RAMSAVE "@Name" 

Wie zuvor, nur wird eine eventuell existierende Datei glei¬ 
chen Namens zuvor gelöscht. 


BANKS 

BankNr1,BankNr2 

MEMFILL 

Ad ressel, Ad resse2,Wert 

MEMCOPY 

Adresse1a,Adresse1b,Adresse2a 

MEMSWAP 

Adresse1a,Adresse1b,Adresse2a 

MEMINV 

Adresse1,Adresse2 

MEMROT 

Adresse1,Adresse2,Anzahl 

MEMLOC 

(Adresse1,Adresse2,String) 

CHG 

Ad resse,Wert 

VEC 

(Adresse) 

LOW 

(Wert) 

HIGH 

(Wert) 

OLD 


HIDE 

(Nummer) 

UNITE 


TRANS 

Nummer1a,Nummer1b,Nummer2 

Z80CALL 

Adresse 

NEWESC 

Wert,Adresse 

NEWCMD 

Name,Adresse 

NEWFN 

Name,Adresse 

CLRNEWS 


RESET 



Tabelle 2. Die Befehle und Funktionen der Basic- 
Erweiterung »Butler« aus dem Sonderheft 10/86 im Über¬ 
blick. Diese funktionieren natürlich auch bei MASTER. 


RAMLOAD "Name" 

Datei von der RAM-Disk in den Programmspeicher 
laden. 

RAMRUN "Name" 

Datei von der RAM-Disk in den Programmspeicher laden 
und staken. 

RAMSort "Name" 

Datei auf der RAM-Disk löschen (SCR=scratch). 

RAMNEW 

Alle Dateien der RAM-Disk löschen (mit Sicherheitsab¬ 
frage). 

Für die meisten Anwendungen würden diese Befehle 
bereits ausreichen. Doch ist man erst einmal mit der RAM- 
Disk vertraut, wachsen auch die Ansprüche. Möglicher¬ 
weise möchte man statt Programmen auch bestimmte 
Speicherbereiche - zum Beispiel ein Grafikbild - abspei¬ 
chern und wieder laden. 

Dazu dienen ebenfalls die bereits vorgestellten Befehle 
RAMSAVE und RAMLOAD, nur sind diese wie bei den 
Befehlen BSAVE und BLOAD bei Basic 7.0 um zusätzliche 
Parameter zu ergänzen: 

RAMSAVE "Name",P Anfangadresse TO P Endadresse+1 
Speicherbereich von der mittels BANK-Befehl vorgewähl¬ 
ten Speicherbank auf der RAM-Disk ablegen. 

RAMSAVE " Name ",P Anfangadresse TO P Endadresse+1, 
ON B Bank 

Wie zuvor, nur werden die Daten aus der angegebenen 
Speicherbank geholt, unabhängig davon, welche Bank mit 
dem BANK-Befehl vorgewählt wurde. 

RAMLOAD "Name",P Anfangadresse 
Datei aus der RAM-Disk in den Speicherbereich ab der 
angegebenen Adresse auf die mittels BANK-Befehl vorge¬ 
wählte Speicherbank kopieren. 

RAMLOAD "Name",P Anfangadresse,ON B Bank 
Wie zuvor, nur werden die Daten auf die angegebene 
Speicherbank kopiert. 

Im Gegensatz zur üblichen Speicherung auf Diskette 
wird bei der RAM-Disk die ursprüngliche Anfangsadresse 
der Daten nicht mit gespeichert. Beim Laden von Daten ist 
diese deshalb stets anzugeben. Fehlt sie, wird angenom¬ 
men, daß es sich um ein Basic-Programm handelt und es 
wird in den dafür üblichen Bereich geladen. Zur Erläute¬ 
rung seien zwei Beispielanwendungen angefügt: 
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Grafik speichern und laden: 

BANK 0:GRAPHIC 2,1 

MEMCOPY 0,8191,8192 

RAMSAVE "BILD1",P8192 TO P16384 

MEMCOPY 16384,24575,8192 

RAMSAVE "BILD2'',P8192 TO P16384 

RAMLOAD "BILD1",P8192 

RAMLOAD "BILD2 ",P8192 

Funktionstastenbelegung für die RAM-Disk: 

A$=CHR$(34):R$=CHR$(13) 

KEY 1, "RAMLOAD"+A$+ "KEYS2"+A$+ ",P4096,ON BO"+R$ 

RAMSAVE "KEYS1",P4096 TO P4351,ON BO 

KEY 1,"RAMLOAD"+A$+"KEYS1"+A$+",P4096,0N BO"+R$ 

KEY 2,"RAMLOAD"+A$ 

KEY 3,"RAMDIR"+R$ 

KEY 4,"RAMSCR"+A$ 

KEY 5,"RAMSAVE"+A$ 

KEY 6,"RAMRUN"+A$ 

RAMSAVE "KEYS2",P4096 TO P4351,ON BO 

Über die Taste <F1 > kann nun zwischen der bisherigen 
und der neuen Funktionstastenbelegung gewechselt wer¬ 
den (die jeweils nicht verwendete Funktionstastenbele¬ 
gung liegt in der RAM-Disk). 

Die bisherigen Befehle bezogen sich nur auf den Daten¬ 
transferinnerhalb des Rechners. Natürlich ist es auch mög¬ 
lich, Dateien von der RAM-Disk auf Diskette oder Kassette 
zu speichern. Genauso kann man umgekehrt Dateien von 
Diskette oder Band direkt in die RAM-Disk holen. Hierfür 
stehen drei Befehle zur Verfügung: 

RAMDEV Nummer 

Verändern der voreingestellten Geräteadresse (device), 
auf welche sich die Befehle »RAMIN 
beziehen. Voreingestellt ist der Wert 8. 

Mögliche Werte: 1,4,5,6,...,30. 


frage durchgeführt, da in diesem Fall die RAM-Disk 
gelöscht wird. 

Zum Schluß seien noch einige spezielle Funktionen und 
ein zusätzlicher Befehl aufgeführt, die für geübte Program¬ 
mierer sehr interessant sein dürften. Die Anweisungen 
»RAMUSE«, RAMFREE, RAMSIZE und RAMLOC« stellen 
Funktionen dar, das heißt, sie liefern einen Zahlenwert der 
entweder mit PRINT ausgegeben oder einer Variablen 
zugewiesen werden muß. 

RAMUSED (Nr) 

Abhängig vom Funktionsargument »Nr« liefert die Funk¬ 
tion folgende Daten: 

Nr = 0: Größe des Programms im Programmspeicher 
Nr = 1: belegter Speicher auf der RAM-Disk 
Nr = 2: Anzahl belegter Einträge auf der RAM-Disk 
RAMFREE (Nr) 

Wiederum abhängig vom Argument »Nr«, liefert die 
Funktion bestimmte Daten: 

Nr = 0: freie Bytes im Programmspeicher 
Nr = 1: freier Speicher auf der RAM-Disk 
Nr = 2: Anzahl noch möglicher Einträge auf der RAM-Disk 
RAMSIZE ("Name") 

Funktion, die die Größe einer Datei der RAM-Disk in 
Bytes liefert. Falls diese nicht existiert, ist das Ergebnis 

»— 1 «. 

RAMLOC ("Name") 

Funktion zur Lagebestimmung einer Datei der RAM- 
Disk. Liefert die aktuelle Anfangsadresse oder »-1«, wenn 
die angegebene Datei nicht existiert. 

RAMRES "Name".Anzahl 


Legt eine Datei mit der angegebenen Größe an und 
und »RAMOUT« reservier* die gewünschte Anzahl an Bytes. Zu beachten 
ist, daß sich deren Lage ändert, wenn davorliegende 
Dateien gelöscht werden. 


RAMIN "Name" 

Datei in die RAM-Disk laden. Das Überschreiben eines 
bereits unter dem selben Namen existierenden Files durch 
ein vorangestelltes »@« ist möglich. Wie bei DLOAD kann 
mit angehängtem Parameter »,U Nummer« ein vom vorein¬ 
gestellten Laufwerk verschiedenes und mit angehängtem 
»,D Nummer« bei einem Doppellaufwerk das gewünschte 
Laufwerk ausgewählt werden. Beim U-Parameter sind nur 
Werte von 4 bis 30 zulässig, so daß man bei Verwendung 
eines Kassettengeräts die Gerätenummer 1 mit dem Befehl 
»RAMDEV« einstellen muß (siehe oben). 

RAMOUT "Name" 


Datei der RAM-Disk auf dem voreingestellten Gerät spei¬ 
chern, das Überschreiben per Klammeraffe (»@«) ist zuläs¬ 
sig. Für diesen Befehl gelten die selben Hinweise zur Ver¬ 
wendung von »U«- und »D«-Parametern, wie sie beim 
Befehl »RAMIN« gemacht wurden. 

Nun noch ein einfaches Beispiel, an dem die Verwen¬ 
dung eines Kassettengeräts im Zusammenspiel mit der 
RAM-Disk gezeigt werden soll: 


10 PRINT "TEST" 
RAMSAVE "TEST" 
RAMDEV 1 
RAMOUT "TEST" 
RAMSCR "TEST" 
RAMIN "TEST" 
RAMRUN "TEST" 
RAMDEV 8 


Beispielprogramm 

auf RAM-Disk speichern 

Kassette als Fixeinstellung 

auf Kassette speichern 

löschen 

wieder laden 

und starten 

Disk als Fixeinstellung 


Variablenliste ausgeben 

Eine von jedem Basic-Programmierer oft schmerzlich ver¬ 
mißte Möglichkeit ist die Auflistung von aktuellen Variablen¬ 
werten. Mit der Erweiterung MASTER wird dies möglich! 

Je nach Bedarf können einzelne Variablen, alle Varia¬ 
blen eines bestimmten Typs oder einfach alle vorhandenen 
Variablen ausgegeben werden. Hierzu dient der Befehl 
DUMP 

Ohne zusätzliche Angaben werden alle Variablen ausge¬ 
geben. Möchte man über spezielle Variablen oder alle 
Variablen bestimmter Typen informiert werden, so sind 
durch Kommas getrennt die betreffenden Variablennamen 
bzw. die Nummern der gewünschten Variablentypen anzu¬ 
geben. Die Typzuordnung ist hierfür wie folgt festgelegt: 


Typnummer 

Variablentyp 

0 

Funktionen 

1 

Fließkommavariablen 

2 

Integervariablen 

3 

Stringvariablen 


Anmerkung: Funktionen lassen sich nicht einzeln mit 
dem Funktionsnamen sondern nur über die Typnummer 
ansprechen. 

Am einfachsten läßt sich der Befehl »DUMP« an einigen 
Beispielen erläutern. Geben Sie dazu folgende Anweisun¬ 
gen ein: 


Zu Beginn wurde angesprochen, daß sich die Größe der 
RAM-Disk den Bedürfnissen anpassen läßt. Der Befehl 
RAMCONF Anzahl der Bytes 
legt die Größe der RAM-Disk fest. Der sich an die RAM- 
Disk anschließende Variablenbereich wird neu initialisiert. 
Falls die neue Ausdehnung kleiner als die Anzahl der 
momentan verwendeten Bytes ist, wird eine Sicherheitsab- 


CLR:XY%=-123:XYZ=1.23:XY$="123"+CHR$(13):X=l/3 

Nun können Sie die in der nächsten Tabelle (Seite 77) 
angegebenen Eingaben testen. 

Wie am Beispiel der Variablen »XYZ« zu ersehen ist, kön¬ 
nen Variablennamen natürlich nur an den ersten zwei 
Buchstaben erkannt werden, da Basic Basic 7.0 nur diese 
speichert. 
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Eingaben Ausgaben 


DUMP 

XY°/o 

= -123 


XY 

= 1.23 


XY$ 

= "123" + CHR$(13) 


X 

= .333333333 

DUMP XYZ 

XY 

- 1.23 

DUMP 3 

XY$ 

= "123" +CHR$(13) 

DUMP XVS,1,2 

XY$ 

- "123"+CHR$(13) 


XY 

= 1.23 


X 

= .333333333 


XY% 

= -123 


Bei der Ausgabe von String-Variablen werden einzelne 
Zeichen, die nicht sinnvoll oder nicht eindeutig darstellbar 
sind, durch die entsprechenden ASCII-Werte ausgedrückt. 

Werden Zeichenketten zur Speicherung von beliebigen 
Daten verwendet, dann ist in der Regel stets der ASCII-Wert 
von Interesse. Für diesen Fall ist der Befehl 
SHOW String 

gedacht, der den angegebenen String als Liste der ent¬ 
sprechenden ASCII-Werte ausgibt. Beispiel: 

A$= "" 

FOR 1=0 TO 31:A$=A$+CHR$(I):NEXT 
SHOW A$ 

Außer den einfachen Variablen können in Basic dimen¬ 
sionierte Variablen, sogenannte Felder, verwendet werden. 
Natürlich ermöglicht MASTER auch die Ausgabe von Fel¬ 
dern. Hierfür ist der Befehl 

ARRAY 

vorgesehen. Werden keine zusätzlichen Angaben 
gemacht, werden alle Felder zusammen mit der Angabe 
ihrer Dimensionierungen ausgegeben. Jeder zusätzlich 
angegebene Feldname veranlaßt die Ausgabe aller Werte 
des Feldes, und jede Typnummer führt zur Ausgabe def 
Dimensionierungen aller Felder des betreffenden Typs. 

Als Typnummern sind bei Feldern nur die Werte 1 bis 3 
möglich. Die Zuordnung erfolgt wie bei »DUMP«: 


Typnummer 

; Feldertyp 

1 

: Fließkomma-Felder 

2 

: Integer-Felder 

3 

: String-Felder 

Die Möglichkeiten des Befehls seien wieder an einigen 
Beispielen aufgezeigt. Geben Sie dazu folgende Befehls- 
: olgen nacheinander ein: 

CLRrDIM A(2,l):DTM A$(3):DTM A*(0,0,0,0,0,0,0,0) 

FOR 1=0 TO 2:FOR J 

=0 TO 1:A(I,J)=I-J:NEXT:NEXT 

FOR K=1 TO 3 :A$(K) 

=LEFT$("MASTER",2#K):NEXT 

Mit dem ARRAY-Befehl kann man sich einen Überblick 

über die gespeicherten Felder verschaffen. Sie können die 
n folgender Tabelle angegebenen Eingaben testen: 

Eingaben 

Ausgaben 

ARRAY 

DIM A (2,1) 

DIM A$ (3) 

DIM A°/o (0,0,0,0,0,0,0,0) 

ARRAY 2,3 

DIM A°/o (0,0,0,0,0,0,0,0) 

DIM A$ (3) 

ARRAY A 

A(0,0) = 0 

A(1,0) = 1 

A(2,0) = 2 

A(0,1) = -1 

A(1,1) = 0 

A(2,1) = 1 

ARRAY A$,A°/o 

A$(0) = ' ' 

A$(1) = "MA" 

A$(2) = "MAST" 

A$(3) = "MASTER" 

A°/o(0,0,0,0,0,0,0,0) = 0 


Die Reihenfolge der Ausgabe der Werte eines Feldes 
entspricht der Reihenfolge der Werte im Speicher. 

Mit MASTER wird die Programmierung von Menüs und 
Datenfenstern einfach und elegant zugleich. Die Befehle 
hierfür sind schnell erklärt: 

MENUE X.Y.XlY, 

zeichnet auf dem aktuellen Textbildschirm ein Rechteck 
mit den diagonal gegenüberliegenden Eckpunkten [X,Y] 
(links oben) und [X,,Y,] (rechts unten). Die darinliegende 
Fläche wird gelöscht und als aktuelles Fenster definiert. 
Dabei ist zu beachten, daß die angegebenen Eckpunkte 
sich auf den Rahmen und nicht auf das umschlossene Fen¬ 
ster beziehen. Würde man die innerhalb des Rahmens lie¬ 
gende Fläche mit dem »WINDOW«-Befehl des Basic 7.0 
definieren, so würde dieser lauten: »WINDOW X+1.Y+1, 

XHYH«. 

In Bild 1 sehen Sie ein mit »MENUE« erstelltes Fenster, 
in dem gerade das Directory der RAM-Disk sichtbar ist. 
Wird das Fenster nicht mehr benötigt, läßt es sich mit 

PURGE 

wieder entfernen, und der ursprüngliche Bildschirminhalt 
wird wiederhergestellt. Dies ist möglich, weil der Inhalt in 
einem Teil der RAM-Disk, der gerade nicht zur Speicherung 
von Dateien benötigt wjrd, zwischengespeichert wird. Der 
Befehl »MENUE« setzt also voraus, daß noch genügend 
Platz auf der RAM-Disk frei ist, um dort vorübergehend 
Daten abzulegen. Die für ein Fenster erforderliche Anzahl 
an Bytes errechnet sich wie folgt: 

ANZAHL=2# (X^X+l) # (Yj—Y+l) +54. 

Solange im Speicher genügend Platz vorhanden ist, kön¬ 
nen Fenster beliebig verschachtelt werden. Diese lassen 
sich entweder mit aufeinanderfolgenden PURGE-Befehlen 
Fenster für Fenster wieder verlassen - oder man benutzt 
den Befehl 

PURGEALL 

der dasselbe bei einmaliger Anwendung bewirkt. 

Das Zusammenspiel der neuen Befehle soll folgendes Bei¬ 
spiel zeigen: 

FOR 1=1 TO 12:MENUE 2*I,I,10+2#I,10+I:NEXT 

PURGE 

PURGEALL 

Möchte man im Textmodus Tabellen darstellen und diese 
schön gestalten, dann ist man in Basic 7.0 auf den »PRINT«- 
und den »CHAR«-Befehl angewiesen. Doch mit diesen 
Befehlen allein ist es umständlich und langsam, senk¬ 
rechte und waagrechte Linien für Tabellen zu generieren. 
Im Grafikmodus dagegen wäre dies einfach, da für diesen 
Modus spezielle Befehle existieren. 

MASTER bietet nun auch für den Textmodus Befehle an, 
um Linien zu ziehen oder Rechtecke zu zeichnen. Beim 
Befehl »MENUE« war ja bereits zu sehen, daß MASTER 
Rechtecke zeichnen kann, doch erledigt der Befehl 
»MENUE« bekanntlich noch mehr. Soll nur ein Rechteck 
gezeichnet werden, dann ist der Befehl 
FRAME XYXjY, 

zu verwenden. Es wird ein Rechteck mit den Eckpunkten 
[X,Y] (links oben) und [X n ,Y,] (rechts unten) ausgegeben. 
Denkbar wäre nun, dieses Rechteck durch senkrechte und 
waagrechte Linien weiter zu unterteilen. Auch hierfür exi¬ 
stieren Befehle: 

VERTI XYY, 

für vertikale Linien; Zieht eine Linie vom Punkt [X,Y] zu 
[X,Y,]. Gezeichnet wird von oben nach unten, das heißt, 
der Anfangspunkt muß über dem Endpunkt liegen. 
HORIZ Y,X,X, 

für horizontale Linien. Zieht eine Linie vom Punkt [Y,X] zu 
[Y,X,]. Gezeichnet wird von links nach rechts, daher muß 
der Anfangspunkt links vom Endpunkt liegen. 
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Die Tabelleneinträge für die so erzeugten Gerüste lassen 
sich mit dem »CHAR«-Befehl des Basic 7.0 vornehmen. 

Die Rechtecke und Linien werden durch Grafikzeichen 
dargestellt. Diese Grafikzeichen haben allerdings im DIN- 
Zeichensatz andere Werte als im ASCII-Code. Master paßt 
sich dem an und verwendet für den beim Zeichnen aktivier¬ 
ten Zeichensatz die jeweils richtigen Codes. 

Wie man beobachten kann, verschmelzen Grafikzeichen 
an Schnittpunkten von Linien zu neuen Zeichen. Beim 
Zeichnen von Rechtecken werden jedoch stets alle Linien¬ 
abschnitte, die in das Rechteck weisen, entfernt. Daher 
sollte in der Regel zuerst das Rechteck gezeichnet werden, 
bevor die unterteilenden Linien gezogen werden. Beispiel: 
10 SCNCLR 

20 FRAME 1, 4,38,24 
30 VERTI 10, 4,24 
40 VERTI 30, 4,24 
50 HORIZ 8, 1,38 
60 HORIZ 6,10,30 
70 VERTI 20, 6,24 

Decodieren von Programmen 


Bekanntlich werden Basic-Programme nicht rein als Text, 
sondern codiert gespeichert. Befehle und Funktionen wer¬ 
den als Zahlen oder Zahlenpaare abgelegt. Dies hat den 
Vorteil, daß Programme schneller laufen und weniger Spei¬ 
cherplatz benötigen. Wer jedoch Basic-Programme nicht 
per »LIST«-Befehl ausdrucken lassen will, weil das Listing 
schön formatiert werden soll, hat dadurch einen enormen 
Aufwand für die Decodierung. 

MASTER vereinfacht diese Decodierung erheblich: 
BASIC$ (String) 

verwandelt einen Basic-String zurück in die leserliche 
Form, wie dies beim LIST-Befehl geschieht. Das Ergebnis 
der Entschlüsselung wird als Zeichenkette geliefert. 

Ein Beispiel dazu: 

PRINT BASIC$(CHR$(235)+CHR$(58)+CHR$(236)) 

gibt die zugehörigen Basic-Wörter der Codes »235«, »58« 
und »236« aus. 

Es existiert aber auch eine abgewandelte Version dieser 
Funktion, die speziell an das Format von Basic-Zeilen 
angepaßt ist. Vor dem codierten Zeilentext stehen nämlich 
stets vier Bytes, von denen zwei die Zeilennummer darstel¬ 
len. Dieser Zeilenkopf wird nach anderen Regeln decodiert 
und dann dem entschlüsselten Zeilentext vorangestellt. Als 
Parameter für die angesprochene Funktion wurde zweck¬ 
mäßigerweise die Anfangsadresse der Basic-Zeile 
gewählt, da es zu aufwendig wäre, die codierte Basic-Zeile 
zunächst in eine Zeichenkette zu übertragen: 

BASLN$ (Adresse) 

Die Basic-Zeile wird dabei auf der mittels »BANK«-Befehl 
vorgewählten Speicherbank erwartet. 

Ein Anwendungsbeispiel: 

10 A=45;BANK 0 

20 A=VEC(A):IF VEC(A)=0 THEN END 
30 PRINT BASLN$(A):G0T0 20 

Dieses kurze Listing decodiert sich selber und gibt das 
Ergebnis auf dem Bildschirm aus. 

Zuvor wurde angesprochen, daß es in Basic aufwendig 
ist, einen Speicherbereich in eine Zeichenkette zu über¬ 
nehmen. Da dies bisweilen aber nützlich sein kann, exi¬ 
stiert auch hierfür eine Funktion: 

MEM$ (Adresse,Anzahl) 

Faßt ab der angegebenen Adresse die gewünschte 
Anzahl von Bytes zu einer Zeichenkette zusammen, die 
gewünschte Speicherbank muß vorgewählt werden. 

Umgekehrt ist auch ein Befehl von Interesse, mit dem ein 
String irgendwo im Speicher plaziert werden kann: 


MEMDEF Adresse,String 

kopiert einen String in den Speicherbereich ab der angege¬ 
benen Adresse. Die gewünschte Bank ist vorzuwählen. 

Auch zu den zwei letzten Befehlen seien wieder Bei¬ 
spiele angeführt: 

Text aus dem Speicher holen: 

BANK 15:PRINT MEM$(16831,9) 

Funktionstastenbelegung neu initialisieren: 

BANK 15:MEMDEF 4096,MEM$(52904,77) 

Anmerkung: Bei den Anweisungen »BASIC$, BASLNS 
und MEM$« handelt es sich wieder um Funktionen. Sie lie¬ 
fern also einen Zahlenwert der entweder mit PRINT ausge¬ 
geben, oder einer Variablen zugewiesen werden muß. 

Es ist normalerweise nicht möglich, ein Basic-Programm 
zu schreiben, das sich während des Ablaufs selbst modifi¬ 
ziert - also beispielsweise neue Programmzeilen auf¬ 
nimmt, alte ersetzt oder ganz löscht. Für manche Anwen¬ 
dungen ist dies aber recht sinnvoll oder gar notwendig. 
Daher bietet MASTER auch diese Möglichkeit: 

INSERT String 

behandelt den angegebenen String als Basic-Zeile, wer¬ 
tet die Zeilennummer aus, codiert den Zeilentext und fügt 
die entstandene Programmzeile in das laufende Programm 
ein. Besteht der String nur aus einer Zeilennummer, dann 
wird die betreffende Programmzeile gelöscht. 
Einschränkungen: 

Der Befehl kann nur Zeilen einfügen, löschen oder aus- 
tauschen, wenn deren Zeilennummer höher ist als die der 
gerade ausgeführten Zeile. Ferner darf der Befehl nicht 
innerhalb von Unterroutinen, FOR-NEXT-Schleifen, DO- 
LOOP-Schleifen oder ähnlichen Strukturen liegen. Alle 
diese Situationen führen zu Fehlermeldungen. 

Dazu ei.’, kurzes Beispiel: 

10 INSERT "20 LIST" 

Mit MASTER und dem Basic 7.0 des C128 haben sie auch 
ohne Assembler die Chance, umfangreiche Programme zu 
erstellen, welche sich durch hohe Ablaufgeschwindigkeit 
und ein großes Maß an Benutzerfreundlichkeit auszeich¬ 
nen. Wir wünschen Ihnen viel Spaß bei der Arbeit mitdieser 
äußerst nützlichen Erweiterung! 

(Hans-Jürgen Blechinger/Axel Pretzsch) 


Eingabehinweise zu »Master« 

Wenn Sie »Butler« schon aus dem Sonderheft 10 abgetippt haben, 
lassen Sie im Folgenden die Lade- und Speicheranweisung für »/BUT¬ 
LER. 2« einfach weg. 

Die beiden Programme »/BUTLER.2« (Listing 2) und »/MASTER.2« 
(Listing 4) sind mit dem MSE im C64-Modus einzugeben und zu spei¬ 
chern. Anschließend muß der C128 aus- und wieder eingeschaltet 
werden. Laden Sie nun die beiden Programme mit 

LOAD "/BUTLER.2",8,1 
LOAD "/MASTER.2",8,1 

im C128-Modus, ist das geschehen, sind folgende Schritte erforder¬ 
lich: 

1. Mit dem Befehl MONITOR < RETURN > in den eingebauten 
Monitor springen. 

2. Mit »T 2000 3CEB E000« die beiden Programme zusammen 
nach $E000 verschieben. 

3. Eine leere Diskette einlegen 

4. Mit 

S ' /BUTLER. 2 ",08,F000,FCEB 

S "/MASERT.2”,OS,EOOO,FOOO 

die beiden Programme auf Diskette speichern. 

5. Die restlichen Programme (Listing 1, 3 und 5) auf die gerade 
bespielte Diskette kopieren. 

Falls Sie die Leserservice-Diskette haben, 
entfallen diese Hinweise 

Von nun an kann das Programm mit RUN " MASTER" geladen und 
gestartet werden. 
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Name : /butler.l 1300 173e 


1300 : 

4o 

06 

13 

4c 

34 

13 

08 

78 

8b 

1308 : 

20 

34 

13 

20 

64 

13 

28 

60 

4a 

1310 : 

-3f 

7f 

bf 

ff 

16 

56 

96 

d6 

lb 

1318 : 

2a 

6a 

aa 

ea 

06 

Oa 

01 

00 

34 

1320 : 

08 

48 

a9 

00 

8d 

00 

ff 

68 

60 

1328 : 

28 

60 

08 

48 

a9 

3f 

8d 

00 

56 

1330 : 

ff 

68 

28 

60 

08 

78 

20 

20 

7f 

1338 : 

13 

20 

51 

42 

a2 

lf 

bd 

73 

f9 

1340 : 

aO 

9d 

14 

03 

ca 

10 

f 7 

a2 

a7 

1348 : 

09 

bd 

65 

cO 

9d 

34 

03 

ca 

ba 

1350 : 

10 

f7 

28 

60 

20 

b7 

14 

20 

c2 

1358 : 

: c7 

13 

00 

e2 

02 

20 

c7 

13 

6c 

1360 i 

; 01 

e2 

02 

60 

00 

28 

43 

29 

00 

1368 : 

; 48 

4a 

42 

01 

06 

56 

d8 

a9 

50 

1370 ; 

: 7f 

8d 

Od 

dd 

ac 

Od 

dd 

30 

cO 

1378 ; 

: la 

20 

3d 

f6 

20 

el 

ff 

dO 

83 

1380 : 

: 12 

20 

68 

eO 

20 

09 

el 

20 

66 

1388 

: 00 

cO 

20 

06 

13 

20 

20 

13 

8a 

1390 : 

: 4c 

5c 

fa 

4c 

5f 

fa 

08 

48 

dl 

1398 . 

: 8a 

48 

98 

48 

ba 

bd 

05 

01 

25 

13a0 : 

: 85 

CG 

bd 

06 

01 

85 

of 

aO 

79 

13a8 

: 02 

fe 

05 

01 

dO 

03 

fe 

06 

b8 

13b0 

: 01 

bl 

ce 

99 

e9 

03 

88 

dO 

eb 

13b8 

: fO 

a9 

01 

8d 

ed 

03 

68 

a8 

59 

13c0 

: 68 

aa 

a9 

00 

4c 

e4 

03 

08 

fO 

13c8 

: 48 

8a 

48 

98 

46 

ba 

bd 

05 

d6 

13d0 

: 01 

85 

ce 

bd 

06 

01 

85 

cf 

ld 

13d8 

: aO 

03 

dO 

03 

99 

e9 

03 

fe 

81 

13e0 

: 05 

01 

dO 

03 

fe 

06 

01 

bl 

82 

13e8 

: ce 

88 

dO 

fO 

aa 

bd 

10 

13 

4b 

13f0 

: 85 

ce 

a9 

01 

8d 

ed 

03 

68 

8c 

13f 8 

: a8 

68 

aa 

a5 

ce 

4c 

e4 

03 

lc 

1400 

: 8d 

00 

ff 

68 

28 

20 

00 

00 

le 

1408 

: 8d 

01 

ff 

60 

a2 

Ob 

bd 

00 

9b 

1410 

: 14 

9d 

e4 

03 

ca 

10 

f 7 

60 

5a 

1418 

: 8d 

aa 

02 

48 

bd 

10 

13 

8d 

48 

1420 

: 27 

14 

68 

60 

86 

79 

a2 

00 

36 

1428 

: 20 

a2 

02 

08 

a6 

79 

28 

60 

b3 

1430 

: 8d 

b9 

02 

48 

bd 

10 

13 

8d 

e7 

1438 

: 40 

14 

68 

60 

08 

86 

79 

a2 

88 

1440 

: 00 

20 

af 

02 

a6 

79 

28 

60 

14 

1448 

: 8d 

c8 

02 

48 

bd 

10 

13 

8d 

87 

1450 

: 57 

14 

68 

60 

86 

79 

a2 

00 

96 

1458 

: 20 

be 

02 

08 

a6 

79 

28 

60 

fl 

1460 

: aO 

ff 

8d 

ea 

03 

8c 

eb 

03 

Ob 

1468 

: a9 

01 

8d 

ed 

03 

60 

20 

7c 

60 

1470 

: 14 

8d 

01 

ff 

60 

20 

7c 

14 

ac 

1478 

: 8d 

02 

ff 

60 

20 

20 

13 

6c 

3a 

1480 

: ea 

03 

20 

89 

14 

8d 

01 

ff 

d7 

1488 

: 60 

8d 

02 

ff 

6c 

ea 

03 

20 

9a 


1490 : 

20 

13 

20 

cf 

ff 

8d 

01 

ff 

ac 

1498 : 

60 

20 

20 

13 

20 

d2 

ff 

8d 

27 

14a0 : 

01 

ff 

60 

20 

20 

13 

20 

el 

9c 

14a8 : 

ff 

8d 

01 

ff 

60 

20 

20 

13 

5c 

14b0 : 

20 

e4 

ff 

öd 

01 

ff 

60 

20 

c6 

14b8 : 

20 

13 

20 

7d 

41 

20 

ee 

eO 

ac 

14c0 : 

20 

Oc 

14 

20 

e2 

02 

20 

e2 

74 

14c8 : 

02 

a9 

6e 

8d 

18 

03 

a9 

13 

53 

14d0 : 

8d 

19 

03 

a9 

fd 

8d 

3c 

03 

23 

14d8 : 

a9 

14 

Bd 

3d 

03 

a9 

42 

8d 

38 

14e0 : 

38 

03 

a9 

15 

8d 

39 

03 

4c 

ee 

14e8 : 

bl 

15 

ed 

14 

04 

00 

9e 

aa 

72 

14f0 : 

bd 

00 

51 

ca 

14 

00 

3c 

ca 

23 

14f8 : 

94 

00 

60 

15 

13 

48 

8a 

29 

37 

1500 : 

Of 

c9 

08 

68 

bO 

03 

4o 

ad 

b3 

1508 : 

06 

a6 

dO 

e8 

ec 

20 

Oa 

bO 

cc 

1510 : 

Ob 

9d 

4a 

03 

a9 

lb 

9d 

49 

59 

1518 : 

03 

c8 

86 

dO 

4c 

c4 

c6 

aa 

a6 

1520 : 

ad 

ea 

14 

85 

da 

ad 

eb 

14 

eb 

1528 : 

85 

db 

ad 

ec 

14 

fO 

11 

Oa 

c5 

1530 : 

Oa 

a8 

8a 

8d 

01 

ff 

88 

dl 

b8 

1538 : 

da 

fO 

06 

88 

88 

88 

dO 

f6 

lb 

1540 : 

18 

60 

20 

lf 

15 

bO 

06 

20 

a4 

1548 : 

20 

13 

4c 

cl 

c9 

a9 

02 

48 

cO 

1550 : 

a9 

de 

48 

88 

bl 

da 

48 

88 

af 

1558 : 

bl 

da 

48 

88 

bl 

da 

4c 

df 

7c 

1560 : 

02 

46 

ef 

a6 

e4 

86 

eb 

4c 

21 

1568 : 

: bl 

cb 

a4 

06 

84 

ec 

20 

7d 

30 

1570 : 

: c7 

20 

8d 

15 

20 

63 

c3 

4c 

12 

1578 : 

4e 

ca 

a4 

e6 

84 

ec 

20 

7d 

5c 

1580 ; 

: c7 

20 

b5 

cb 

20 

99 

15 

20 

al 

1588 : 

: b5 

cb 

4c 

4e 

ca 

e6 

eb 

20 

d3 

1590 : 

: 74 

cb 

bO 

f 9 

c6 

eb 

4c 

5c 

Ob 

1598 : 

: cl 

a6 

e5 

e4 

eb 

bO 

03 

4c 

ab 

15a0 

: 70 

c8 

24 

f 8 

10 

05 

a5 

e4 

26 

15a8 

: 4c 

6f 

c3 

20 

7c 

c3 

4c 

85 

c3 

15b0 

: cb 

a9 

21 

8d 

fc 

02 

a9 

16 

fd 

15b8 

: 8d 

fd 

02 

a2 

05 

bd 

c9 

15 

a8 

15c0 

: 9d 

Oc 

03 

ca 

10 

f 7 

4c 

92 

95 

15c8 

: 16 

f 8 

15 

db 

15 

46 

16 

Ob 

Od 

15d0 

: 28 

89 

89 

16 

16 

8c 

8c 

16 

06 

15d8 

: 16 

75 

59 

c9 

02 

90 

16 

e8 

07 

15e0 

: dd 

cf 

15 

bO 

10 

7d 

d9 

15 

7f 

15e8 

: 85 

79 

bc 

d5 

15 

bd 

d7 

15 

de 

15f0 

: a6 

79 

4c 

6a 

51 

4c 

32 

51 

96 

15f 8 

: fO 

Od 

48 

ac 

d5 

15 

ad 

d7 

83 

1600 

: 15 
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Listing 1. Der erste Teil von 
»Butler«. Bitte mit dem MSE 
(Seite 158) im C64-Modus einge¬ 
ben. Das Programm »Butler« 
erschien bereits im 64’er Sonder¬ 
heft Ausgabe 10/86, wird aber vom 
Programm »MASTER« benötigt. Es 
muß ebenso wie Listing 2 nur dann 
eingegeben werden, wenn Sie 
»Butler« nicht besitzen. 
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ec 

cf 

fc 

ae 

ec 

3cb8 

ca 

fc 

bd 

cf 

15 

dd 

c8 

fc 

c7 

3cc0 

90 

e9 

ce 

ca 

fc 

ro 

e4 

60 

fd 

3cc8 

lb 

57 

00 

Of 

e2 

02 

40 

40 

31 

3cd0 

40 

00 

28 

43 

29 

48 

4a 

42 

05 

3cd8 

01 

06 

56 

20 

c7 

13 

00 

e2 

51 

3ce0 

02 

20 

c7 

13 

01 

e2 

02 

20 

bß 

3co8 

al 

fc 

60 

00 

86 

00 

86 

79 

95 


Listing 2. »/BUTLER.2« 

Der zweite Programmteil (Schluß) 


80 


SONDERHEFT 22 










C128 


PROGRAMMIERHILFEN 


Name : 

/master. 1 

. 



173d 1800 

173d : 

4c 

ef 

17 

20 

83 

16 

20 

5c 

6d 

1745 : 

cl 

20 

58 

cb 

8d 

01 

ff 

60 

47 

174d : 

48 

20 

83 

16 

20 

5c 

cl 

68 

06 

1755 : 

20 

32 

cc 

8d 

01 

ff 

60 

00 

05 

175d ; 

00 

00 

00 

00 

ad 

02 

03 

8d 

70 

1765 : 

5c 

17 

ad 

03 

03 

8d 

5d 

17 

59 

176d : 

a9 

8a 

8d 

02 

03 

a9 

17 

8d 

f4 

1775 : 

03 

03 

a5 

3d 

8d 

00 

12 

a5 

77 

177d : 

3e 

8d 

01 

12 

a9 

ff 

85 

3d 

30 


1785 

a9 

Ob 

85 

3e 

60 

ad 

5c 

17 

fO 

178d 

8d 

02 

03 

ad 

5d 

17 

8d 

03 

5d 

1795 

03 

a5 

7f 

dO 

03 

6c 

02 

03 

06 

179d 

ad 

00 

12 

85 

3d 

ad 

01 

12 

e9 

17a5 

85 

3e 

4c 

f 6 

4a 

85 

ef 

98 

fd 

17ad 

48 

8a 

48 

ae 

60 

17 

a5 

ef 

57 

17b5 

9d 

00 

Od 

ee 

60 

17 

fO 

08 

06 

17bd 

68 

aa 

68 

a8 

a5 

of 

18 

60 

a4 

17c5 

20 

e2 

17 

4c 

ed 

a5 

a9 

00 

58 

17cd 

8d 

60 

17 

ad 

26 

03 

8d 

5e 

73 

17d5 

17 

ad 

27 

03 

6d 

5f 

17 

a2 

63 


17dd : aa aO 17 dO 06 ae 5e 17 35 
17e5 : ao 5f 17 8a 26 03 8c 27 d3 
17ed : 03 60 20 83 16 24 d7 10 9b 
17f 5 : 06 20 b3 77 4c ff 17 20 48 
17fd : c4 77 60 ff 00 ff 00 ff 95 


Listing 3. Der erste Teil des 
Programms »MASTER«. 

Bitte mit dem MSE (Seite 158) 
Im C64-Modus eingeben. 



Name : 

/master. 




2000 3000 

2298 

00 

9d 

80 

Oc 

9d 

cO 

Oc 

e8 

ea 

2540 

52 

41 

4d 

52 

55 

4c 

00 

01 

9a 











22a0 




dd 

38 


a2 



2548 

00 

79 

eB 

52 

41 

4d 

53 

43 

de 

















2000 : 

a9 

86 

8d 

08 

16 

a9 

a9 

Bd 

dd 

22aB 

86 

Of 

86 

10 

20 

e4 

16 

85 

e6 

2550 

52 

00 

01 

00 

22 

e8 

52 

41 

18 

2008 

ea 

f 3 

a9 

la 

aO 

eO 

8d 

df 

aO 

22b0 

47 

20 

09 

e3 

bO 

03 

4c 

ad 

76 

2558 

4d 

52 

45 

53 

00 

01 

00 

ac 

OC 

2010 

fc 

8c 

oO 

fc 

20 

ad 

e4 

4c 

c7 

22bB 

fO 

20 

da 

16 

90 

05 

20 

09 

f 5 

2560 

o5 

52 

41 

4d 

43 

4 f 

4e 

46 

dd 

2018 

00 

fO 

a9 

00 

aO 

eO 

8d 

12 

66 

22c0 

e3 

90 

Ob 

aa 

20 

da 

16 

90 

56 

2568 

00 

00 

00 

41 

c6 

52 

41 

4d 

31 

2020 

12 

8c 

13 

12 

aO 

30 

a2 

eO 

57 

22c8 

fb 

20 

09 

e3 

bO 

f 6 

c9 

24 

c4 

2570 

53 

49 

ba 

45 

00 

00 

()() 

61 

6a 

2028 

a9 

04 

20 

38 

f 2 

4c 

dO 

e4 

81 

22d0 

dO 

06 

a9 

ff 

85 

Of 

dO 

Oc 

3a 

2578 

06 

52 

41 

4d 

4c 

4 f 

43 

00 

ce 

2030 

01 

00 

a3 

eO 

44 

55 

4d 

50 

fb 

22d8 

c9 

25 

dO 

Of 

a9 

80 

85 

10 

lf 

2580 

00 

00 

75 

e6 

52 

41 

4d 

55 

ca 

2038 

00 

01 

00 

d8 

oO 

41 

52 

52 

da 

22e0 

05 

47 

85 

47 

8a 

09 

80 

aa 

lb 

2588 

53 

45 

44 

00 

00 

00 

aa 

e6 

07 

2040 

41 

59 

00 

01 

Of 

e2 

02 

40 

df 

22e8 

20 

da 

16 

86 

48 

20 

e4 

16 

11 

2590 

52 

41 

4d 

46 

52 

45 

45 

00 

03 

2048 

23 

40 

00 

01 

00 

85 

oO 

53 

02 

22f0 

fO 

04 

c9 

2c 

dO 

cO 

aü 

00 

94 

2598 

00 

18 

00 

18 

40 

b4 

40 

b4 

bc 

2050 

48 

4f 

57 

00 

a9 

61 

2c 

a9 

bf 

22f 8 

85 

4c 

a5 

47 

Oa 

26 

4c 

4a 

8d 

25a0 

00 

00 

00 

00 

12 

00 

08 

00 

e2 

2058 

5a 

2c 

a9 

16 

a2 

01 

4c 

18 

89 

2300 

aa 

ab 

48 

Oa 

26 

4c 

4a 

a8 

Of 

25a8 

00 

00 

00 

00 

20 

db 

fO 

aa 

a2 

2060 

14 

20 

11 

fl 

a6 

24 

a4 

25 

6f 

2308 

60 

c9 

41 

90 

05 

e9 

5b 

38 

2d 

25b0 

18 

98 

6d 

98 

eb 

a8 

8a 

6d 

2b 

2068 

86 

5a 

84 

5b 

85 

5c 

a9 

5a 

3o 

2310 

e9 

ab 

60 

aO 

00 

20 

24 

14 

b2 

25b8 

99 

g5 

aa 

bO 

64 

84 

ba 

86 

eb 

2070 

a2 

01 

20 

18 

14 

aO 

00 

a5 

30 

2318 

c8 

c5 

47 

dO 

05 

20 

24 

14 

b9 

25c0 

5b 

18 

98 

69 

ff 

a8 

8o 

69 

bd 

2078 

5c 

60 

84 

59 

a8 

a9 

00 

20 

69 

2320 

c5 

48 

60 

20 

54 

eO 

a6 

2f 

6b 

25c8 

03 

bO 

56 

e4 

39 

e5 

3a 

bO 

63 

2080 

ad 

e4 

a4 

59 

60 

20 

61 

eO 

42 

2328 

a5 

30 

86 

61 

85 

62 

e4 

31 

14 

25d0 

50 

a6 

ba 

ec 

9a 

eb 

aA 

5b 

ca 

2088 

fO 

13 

20 

24 

14 

c8 

20 

7a 

8b 

2330 

e5 

32 

bO 

11 

20 

13 

e3 

fO 

89 

25d8 

98 

ed 

9b 

e5 

bO 

Oc 

20 

3b 

6d 

2090 

eO 

c4 

5c 

bO 

05 

20 

96 

e4 

75 

2338 

H 

ab 

61 

18 

69 

07 

aa 

ab 

3c 

25e0 

e6 

dO 

57 

a6 

ba 

a4 

5b 

20 

51 

2098 

90 

fO 

20 

88 

e4 

20 

96 

13 

89 

2340 

62 

69 

00 

90 

e5 

a9 

d2 

aO 

al 

25e8 

29 

e6 

8e 

9e 

eb 

8c 

9f 

eb 

09 

20a0 

98 

55 

60 

fO 

16 

20 

09 

e3 

67 

2348 

03 

60 

20 

96 

13 

57 

7c 

60 

f 5 

25f 0 

20 

15 

<=6 

4c 

fa 

eb 

a6 

2f 

bG 

20a8 

90 

06 

20 

07 

el 

4c 

cO 

eO 

6a 

2350 

20 

5a 

eO 

a6 

31 

a5 

32 

86 

cO 

25f 8 

a4 

30 

86 

2f 

84 

30 

86 

31 

82 

20b0 

20 

f 9 

fO 

eO 

04 

bO 

le 

bd 

df 

2358 

16 

85 

17 

e4 

33 

e5 

34 

bO 

28 

2600 

84 

32 

86 

33 

84 

34 

a6 

39 

9c 

20b8 

6d 

e3 

2c 

a9 

80 

20 

35 

el 

f 9 

2360 

Oa 

20 

13 

e3 

fO 

06 

20 

d4 

25 

2608 

a4 

3a 

86 

35 

84 

36 

60 

ae 

ea 

20e0 

90 

10 

20 

e4 

16 

c9 

2c 

dO 

ff 

2368 

el 

90 

ec 

18 

60 

02 

00 

03 

ec 

2610 

9g 

eb 

ac 

9f 

eb 

8e 

9c 

eb 

dl 

20c8 

06 

20 

da 

16 

4c 

a5 

eO 

20 

Od 

2370 

01 

20 

24 

5e 

25 

05 

03 

00 

dd 

2618 

Bc 

9d 

eb 

a9 

00 

8d 

aO 

eb 

de 

20 dO 

9a 

eO 

4c 

88 

e4 

4c 

bO 

fO 

54 

2378 

02 

aO 

00 

84 

4c 

20 

24 

14 

d9 

2620 

60 

4c 

bO 

fO 

20 

3b 

e6 

dO 

Oa 

20d8 

fO 

19 

20 

09 

e3 

90 

06 

20 

99 

2380 

Oa 

26 

4c 

4a 

aa 

c8 

20 

24 

b3 

2628 

11 

a9 

00 

8d 

ab 

eb 

ad 

98 

31 

20e0 

16 

e2 

4c 

f 8 

eO 

20 

f 9 

fO 

72 

2388 

14 

Oa 

26 

4c 

4a 

a8 

a5 

4b 

CC 

2630 

eb 

8d 

9a 

eb 

ad 

99 

eb 

8d 

99 

20e8 

8a 

fO 

ea 

eO 

04 

bO 

e6 

bd 

9e 

2390 

30 

05 

29 

03 

c5 

4c 

60 

Oa 

42 

2638 

9b 

e5 

60 

20 

96 

13 

el 

a7 

bb 

20f0 

6d 

e3 

2c 

a9 

80 

20 

79 

el 

42 

2398 

60 

20.9a 

eO 

8a 

ll 

QQ 

14 

03 

2640 

60 

20 

ld 

fl 

20 

cl 

e8 

20 

2a 

20f 8 

90 

d8 

20 

e4 

16 

c9 

2c 

dO 

9b 

23a0 

98 

08 

fO 03 

20 

R9f 

a6 

45 

2648 

9a 

ea 

dO 

Oc 

20 

02 

ea 

ac 

24 

2100 

ce 

20 

da 

16 

4c 

da 

eO 

20 

b7 

23a8 

4c 

bd 

71 

e3 

20 

99 

14 

28 

lb 

2650 

b3 

12 

ad 

b4 

12 

4c 

05 

n 

8a 

2108 

a3 

14 

fO 

27 

20 

a6 

e2 

20 

d9 

23b0 

dO 

03 

20 

9c 

e4 

aO 

00 

60 

b2 

2658 

a9 

ff 

a8 

20 

96 

13 

3c 

79 

15 

2110 

23 

e3 

20 

96 

13 

7b 

79 

20 

33 

23b8 

20 

5a 

eO 

a6 

4c 

dO 

Oc 

ab 

d9 

2660 

60 

20 

ld 

fl 

20 

cl 

e8 

20 

4a 

2118 

f 6 

e2 

20 

99 

e3 

20 

Oa 

17 

50 

23c0 

16 

a4 

17 

20 

96 

13 

85 

7a 

ff 

2668 

9a 

ea 

dO 

ec 

ac 

al 

eb 

ad 

14 

2120 

20 

3d 

20 

00 

24 

Of 

10 

06 

ee 

23c8 

4c 

Oc 

e4 

aO 

00 

ca 

dO 

lb 

37 

2670 

a2 

e5 

4c 

05 

fi 

20 

d5 

fO 

12 

2128 

20 

10 

e4 

4c 

31 

el 

20 

bO 

17 

23d0 

20 

24 

14 

48 

c8 

20 

24 

14 

57 

2678 

8a 

dO 

Of 

38 

ad 

10 

12 

eb 

ab 

2130 

e4 

38 

60 

18 

60 

85 

4b 

20 

eb 

23d8 

aa 

c8 

20 

24 

14 

a8 

68 

20 

db 

2680 

2d 

a8 

ad 

11 

12 

eb 

2e 

4c 

30 

2138 

5a 

eO 

a6 

2f 

a5 

30 

86 

16 

b4 

23e0 

68 

eO 

20 

18 

e4 

20 

ba 

eO 

3e 

2688 

05 

fl 

ca 

dO 

11 

38 

ad 

9a 

11 

2140 

85 

17 

e4 

31 

e5 

32 

bO 

30 

c3 

23e8 

4c 

Of 

e4 

ca 

dO 

11 

c8 

20 

47 

2690 

e5 

ed 

98 

«5 

a8 

ad 

9 b 

e5 

81 

2148 

20 

a3 

14 

fO 

e6 

20 

79 

e3 

7a 

23f0 

24 

14 

aa 

88 

20 

24 

14 

a8 

9f 

2698 

ed 

99 

eb 

4c 

05 

n 

ca 

dO 

01 

2150 

08 

a5 

16 

18 

69 

02 

85 

16 

9c 

23f 8 

8a 

20 

05 

fl 

4c 

Oc 

g4 

20 

Ob 

26a0 

06 

ac 

ab 

ob 

4c 

ff 

fO 

4 c 

43 

2158 

90 

02 

e6 

17 

28 

dO 

Od 

20 

03 

2400 

24 

14 

aa 

c8 

20 

24 

14 

a8 

b7 

26a8 

bO 

ro 

20 

d5 

fO 

8a 

dO 

11 

5c 

2160 

99 

e3 

20 

Oa 

17 

20 

3d 

20 

de 

2408 

8a 

20 

al 

e4 

20 

bO 

o4 

60 

B3 

26b0 

38 

ad 

12 

12 

ed 

10 

12 

a8 

7 f 

2168 

00 

20 

b8 

e3 

a5 

16 

18 

69 

61 

2410 

20 

96 

13 

81 

87 

20 

64 

eO 

3d 

26b8 

ad 

13 

12 

ed 

ii 

12 

4c 

05 

Oc 

2170 

05 

aa 

a5 

17 

69 

00 

90 

c6 

7d 

2418 

84 

5d 

c4 

5c 

bO 

51 

20 

24 

66 

26cO 

n 

ca 

dO 

ii 

38 

ad 

9e 

e5 

9c 

2178 

60 

85 

4b 

20 

5a 

eO 

a6 

31 

lb 

2420 

14 

c9 

fr 

ro 

12 

48 

29 

7 f 

3e 

26c8 

cd 

9a 

ab 

a8 

ad 

9d 

eb 

ed 

CC 

2180 

a5 

32 

86 

16 

85 

17 

e4 

33 

ae 

2428 

c9 

60 

68 

bO 

16 

a2 

06 

dd 

9c 

26dO 

9 b 

e5 

4c 

05 

n 

ca 

dO 

cf 

6a 

2188 

e5 

34 

bO 

47 

20 

a3 

14 

fO 

ee 

24 30 

81 

o4 

ro 

Of 

ca 

10 

f 8 

24 

9b 

26d8 

a9 

Oc 

38 

ed 

ab 

eb 

aB 

4c 

18 

2190 

41 

20 

79 

c3 

<10 

37 

20 

Oa 

39 

2430 

5d 

30 

05 

40 

20 

09 

<s4 

ea 

2b 

26o0 

rr 

ro 

20 

f 9 

fO 

Oa 

fO 

Of 

«4 

2198 

eO 

20 

Oa 

17 

44 

49 

4d 

20 

f 2 

2440 

38 

bO 

24 

24 

5d 

10 

06 

20 

Od 

26e8 

ca 

fO 

OB 

c9 

04 

90 

08 

c9 

do 

21a0 

00 

20 

9c 

e3 

20 

e4 

el 

a9 

58 

2448 

Oa 

17 

22 

2b 

00 

20 

Oa 

17 

23 

26f 0 

if 

bo 

04 

8d 

a6 

eb 

60 

q2 

7a 

21a8 

28 

2c 

a9 

2c 

20 

99 

14 

86 

02 

24 50 

43 

48 

52 

24 

28 

00 

20 

7 a 

c8 

26f 8 

09 

4c 

bo 

fO 

a9 

7 f 

20 

7 f 

Ob 

21b0 

5d 

bc 

40 

Oc 

bd 

00 

Oc 

38 

79 

2458 

uO 

cO 

c4 

5c 

88 

o9 

29 

bO 

35 

2700 

e7 

20 

o.Q 

c8 

a9 

00 

ac 

9ü 

d9 

21b8 

e9 

01 

aa 

98 

e9 

00 

20 

a7 

4e 

2460 

05 

20 

99 

14 

a9 

2b 

18 

66 

7 f 

2708 

e5 

ac 

9b 

e5 

20 

96 

13 

d5 

96 

21c0 

o4 

a6 

5d 

08 

o4 

5e 

90 

e2 

b5 

2468 

5d 

20 

99 

14 

c8 

dO 

ab 

a4 

c9 

2710 

ff 

08 

20 

96 

13 

43 

92 

28 

d4 

21c8 

a9 

29 

20 

99 

14 

20 

d4 

el 

9a 

2470 

5c 

dO 

06 

20 

99 

o4 

20 

99 

2e 

2718 

bO 

32 

20 

96 

13 

51 

92 

29 

15 

21d0 

90 

bO 

18 

60 

aO 

02 

18 

20 

85 

2478 

t<4 

24 

5d 

10 

03 

20 

99 

c4 

29 

2720 

bf 

dO 

2e 

8o 

aa 

o6 

8c 

ab 

08 

21d8 

24 

14 

65 

16 

aa 

cB 

20 

24 

de 

2480 

60 

00 

Od 

14 

lb 

22 

8d 

de 

5d 

2728 

e5 

8a 

38 

od 

9a 

o5 

8d 

b3 

9b 

21e0 

14 

65 

17 

60 

aO 

04 

20 

24 

6c 

2488 

a5 

9a 

c9 

03 

dO 

f 2 

a9 

ib 

cf 

2730 

12 

98 

od 

9b 

u5 

8d 

b4 

12 

3f 

21o8 

14 

fO 

22 

c9 

41 

bO 

lo 

85 

53 

24 90 

20 

99 

14 

a9 

51 

2c 

a9 

2c 

2d 

2738 

ad 

9c 

e5 

cd 

aa 

ob 

ad 

9d 

32 

21f0 

be 

aa 

ca 

c8 

20 

24 

14 

9d 

le 

2498 

2c 

a9 

22 

2c 

a9 

20 

4c 

99 

a7 

2740 

eb 

od 

ab 

eb 

90 

10 

20 

2a 

22 

21f8 

40 

Oc 

c8 

20 

24 

14 

9d 

00 

CO 

24a0 

14 

20 

96 

13 

3c 

79 

60 

20 

lo 
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a9 

64 

a2 

01 

20 

30 

46 

2978 

ed 

9b 

e5 

a8 

8a 

20 

93 

o9 

8d 

2c88 

ce 

aO 

e5 

20 

c7 

ec 

ad 

aO 

00 


2f 28 

: 14 

68 

20 

ff 

ee 

4c 

29 

fl 

52 

2980 

20 

Oa 

17 

20 

42 

59 

54 

45 

3a 

2c90 

e5 

dO 

f 5 

60 

ad 

9c 

e5 

85 

c9 


2f 30 

: 20 

17 

fl 

a8 

a9 

00 

39 

00 

6e 

2988 

53 

20 

46 

52 

45 

45 

2e 

00 

fc 

2c98 

24 

ad 

9d 

e5 

85 

25 

a9 

24 

27 


2f 38 

: Oc 

98 

fO 

05 

48 

20 

ca 

f 2 

04 

2990 

4c 

88 

c4 

aa 

cO 

10 

98 

c9 

73 

2ca0 

a2 

0! 

20 

30 

14 

20 

e9 

ec 

95 


2f40 

: 68 

60 

20 

96 

13 

d9 

84 

20 

06 

2998 

27 

bO 

le 

20 

9c 

e4 

eO 

e8 

c9 

2ca8 

a2 

03 

b5 

da 

95 

e4 

ca 

10 

60 


2f48 

: 11 

fl 

20 

33 

of 

a5 

7d 

c9 

76 

29a0 

98 

«9 

03 

bO 

14 

20 

9c 

c4 

82 

2cb0 

f 9 

20 

19 

ed 

20 

de 

ed 

e6 

3c 


2f 50 

: ff 

dO 

29 

a5 

7e 

c9 

09 

dO 

b2 

29a8 

oO 

64 

98 

c9 

00 

bO 

Oa 

20 

Oc 

2cb8 

06 

e6 

e5 

c6 

e7 

c6 

o4 

20 

ec 


2f 58 

: 23 

20 

61 

17 

20 

da 

16 

bO 

59 

29b0 

9c 

c-4 

c-0 

Oa 

bO 

03 

20 

9c 

15 

2cc0 

96 

13 

42 

c 1 

4c 

de 

ec 

ad 

73 


2f 60 

: 18 

20 

96 

13 

aO 

50 

a5 

3b 

2a 

29b8 

e4 

98 

20 

96 

13 

32 

8e 

60 

81 

2cc8 

9c 

e5 

85 

24 

ad 

9d 

e5 

85 

a7 


2fRB 

: o5 

16 

a5 

3a 

o5 

17 

bo 

Oo 

lb 

29c0 

öa 

48 

ad 

b3 

12 

ac 

U4 

1 2 

ce 

2cd0 

25 

a9 

24 

a2 

01 

20 

18 

14 

cl 


2f 70 

: a9 

4d 

48 

a9 

o4 

48 

4c 

dd 

85 

29c8 

20 

93 

c9 

20 

Oa 

17 

20 

22 

4e 

2ed8 

20 

40 

ed 

20 

03 

ed 

a5 

24 

16 


2f 78 

: 02 

4c 

ad 

fO 

a2 

la 

4c 

be 

d3 

29d0 

00 

aO 

00 

b9 

b7 

12 

20 

99 

17 

2ce0 

8d 

9c 

e5 

a5 

25 

8d 

9d 

e5 

ea 


2f 80 

: fO 

20 

30 

ef 

fO 

26 

a9 

00 

71 

29d8 

14 

c8 

CC 

b6 

12 

90 

f 4 

a9 

27 

2ce8 

60 

a2 

00 

b5 

cO 

20 

77 

ed 

19 


2f 86 

: 85 

01 

a9 

Oc 

85 

62 

aö 

4 b 

42 

29e0 

22 

20 

99 

14 

20 

9a 

eO 

60 

26 

2cf0 

08 

oO 

Od 

90 

fB 

a2 

00 

bd 

9e 


2f 90 

: 48 

a5 

4c 

48 

20 

cb 

17 

aO 

c5 

29o8 

aa 

60 

aO 

13 

b9 

b3 

12 

99 

02 

2cf 8 

54 

03 

20 

77 

od 

eö 

cO 

Oo 

8b 


2f 98 

: 00 

84 

ii 

20 

96 

13 

49 

51 

ec 

29f0 

00 

01 

88 

10 

f 7 

60 

aO 

13 

cO 

2d00 

90 

f 5 

60 

a2 

Oe 

20 

6b 

ed 

63 


2fa0 

: 20 

e2 

17 

68 

85 

4c 

68 

85 

6c 

29f 8 

b9 

00 

01 

99 

b3 

12 

88 

10 

33 

2d08 

ca 

9d 

54 

03 

dO 

f 7 

a2 

Od 

88 


2faB 

: 4b 

ad 

60 

17 

48 

a9 

00 

85 

a2 

2a00 

f7 

60 

8a 

48 

20 

6b 

ea 

20 

lc 

2dl0 

20 

6b 

ed 

ca 

95 

aO 

dO 

CB 

50 


2fb0 

: 16 

a9 

Od 

85 

17 

a9 

16 

a2 

eb 

2a08 

18 

14 

aO 

13 

20 

24 

14 

99 

5c 

2dl 8 

60 

a4 

o5 

84 

eb 

a6 

e6 

86 

71 


2fb8 

: 00 

20 

18 

14 

68 

4c 

le 

of 

92 

2al0 

b3 

12 

88 

10 

f 7 

68 

aa 

60 

if 

2d20 

ec 

20 

40 

17 

20 

77 

ed 

a5 

dO 


2fc0 

: 20 

ea 

f 4 

a9 

16 

ao 

d5 

03 

f c 

2al8 

8a 

48 

20 

6b 

ea 

20 

30 

14 

d4 

2d28 

f 2 

20 

77 

ed 

eB 

ec 

a5 

e7 

02 


2fc8 

: 20 

18 

14 

aO 

00 

20 

24 

14 

c7 

2a20 

a0 

13 

b9 

b3 

12 

20 

3c 

14 

6a 

2d30 

c5 

ec 

bO 

ed 

e6 

ob 

a5 

e4 

83 


2fd0 

: 99 

00 

Oc 

c8 

dO 

f 7 

a9 

00 

r9 

2a28 

88 

10 

f 7 

68 

aa 

60 

ad 

b6 

95 

2d38 

c5 

eb 

bO 

el 

20 

o9 

ec 

60 

21 


2fd8 

: 85 

61 

a9 

Oc 

85 

62 

a5 

4b 

92 

2a30 

12 

18 

69 

04 

8d 

a9 

eb 

8a 

fc 

2d40 

20 

03 

ed 

a4 

e4 

84 

eb 

a6 

61 


2fe0 

: 48 

q5 

4c 

48 

20 

cb 

17 

ae 

31 

2a38 

48 

20 

6b 

ea 

20 

18 

14 

68 

ac 

2d48 

e7 

86 

ec 

20 

6b 

od 

85 

f 2 

d4 


2fe8 

: 02 

Oc 

ad 

03 

Oc 

20 

96 

13 

fe 

2a40 

aa 

aO 

03 

20 

24 

14 

d9 

b3 

bl 

2d50 

20 

6b 

ed 

20 

4d 

17 

c6 

GC 

28 


2ff0 

: 23 

51 

4c 

aO 

ef 

28 

43 

29 

83 

2a 4 8 

12 

dO 

08 

c8 

CC 

a9 

e5 

90 

bO 

2d5B 

30 

06 

a5 

ec 

c5 

06 

bO 

eb 

cO 


2ff 8 

: 48 

4a 

42 

01 

Ob 

56 

00 

60 

3a 

2a50 

f 2 

fO 

17 

aO 

00 

20 

24 

14 

4e 






















2a58 

18 

6d 

al 

e5 

8d 

al 

e5 

c8 

5b 

Listing 4. 





















2a60 

20 

24 

14 

6d 

a2 

e5 

8d 

a2 

la 





















2a68 

e5 

c8 

60 

Oa 

Oa 

8d 

a8 

e5 

86 

uer zweite len 



100 PRINT 











<T."5II> 

2a70 

Oa 

Oa 

6d 

a8 

e5 

6d 

u3 

e5 

14 

von »MASTER« 



110 PRINT "**« <3SPACE>MASTER<3SPACE>«h»* 




<QBC> 

2a78 

85 

26 

ad 

a4 

e5 

69 

00 

85 

c5 

fSrhlnm 





120 PRINT ” (C>HJB!«SPACE>01 

11 .B6 






<4UB> 

2a80 

27 

a9 

26 

a2 

01 

60 

ce 

a5 

f 3 


/ 




130 BANK 

0 











<SFR> 

2a88 

e5 

ec 

a5 

e5 

bO 

Ob 

08 

20 

51 


/ 




140 BOGT 

"/BUTLER.1 

" 









<VLK> 

2a90 

02 

ea 

ca 

20 

18 

oa 

e8 

dO 

de 


/ 




150 BGOT 

"/BUTLER.2 









/ 

<V9N> 

2a98 

10 

60 

ad 

90 

e5 

8d 

dl 

c5 

54 

\ 

/ 




160 BOOT 

"/MASTER.1" 








/ 

<72L> 

2aa0 

ad 

99 

e5 

8d 

a2 

e5 

a2 

00 

29 

V 

/ 




170 BOOT 

"/MASTER. 









/ 

<7UM> 

2aa8 

ec 

a5 

e5 

bO 

08 

20 

2e 

ea 

06 






180 NEW 












<032> 

2ab0 

2ab8 

fO 

ad 

05 

9a 

e8 

e5 

dO 

85 

f 3 
5e 

a2 

ad 

ff 

9b 

60 

e5 

8c 

6a 






Listing 5. Das Programm 

»MASTER.LADER« sorgt für den 
















Aufruf und die Initialisierung von 

»MASTER« 

und »Butler« 
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C128 


PROGRAMMIERHILFEN 


Basic »de luxe« 
auf engstem Raum 


Dieses kurze Programm erweitert das ohnehin 
schon komfortable Basic 7.0 um etliche sehr hilf¬ 
reiche Befehle. Außerdem erfahren Sie, wie man 
mit geringem Aufwand eigene Befehle in die 
Interpreterschleife des C128 einbinden kann. 

D er C128 besitzt das bislang leistungsfähigste Basic 
aller Commodore-Computer, doch entdeckt man bald 
einige Mängel, die der anfänglichen Programmier- 
Begeisterung gewisse Grenzen setzen. So mancher Basic- 
Programmierer und C128-Besitzer hegt deshalb den 
Wunsch, den Befehlsumfang seines Computers zu erwei¬ 
tern. Oftmals scheitern die Bemühungen an ungenügen¬ 
den Kenntnissen über den Interpreter des C128. 

Daß es jedoch auf einfachste Weise möglich ist, eigene 
Befehle und Funktionen in die Interpreterschleife des C128 
einzubinden, zeigt die Erweiterung »xBasic 128«, die dem 
Anwender 52 neue und interessante Befehle zur Verfügung 
stellt. Wir werden sie sogleich in der anschließenden 
Befehlsbeschreibung vorstellen. Alle Anweisungen, die in 
der Form »v=BEFEHL(x)« aufgeführt sind, stellen Funktio¬ 
nen dar, das heißt, sie liefern einen Zahlenwert, der entwe¬ 
der mit PRINT ausgegeben oder einer Variablen zugewie¬ 
sen werden muß. 

Sound-Befehle 


Die folgenden Befehle wirken auf alle mit PLAY oder 
SOUND erzeugten Klänge. 

SSOUND 

läßt den gerade gespielten Ton ausklingen. 

CSOUND 

bricht den gerade gespielten Sound ab. Dabei verschwin¬ 
det auch das bisweilen lästige Brummen im Hintergrund. 

RSOUND 

kompletter Sound-Reset. Die nach dem Einschalten vorge¬ 
gebenen Werte, zum Beispiel für die Hüllkurven, werden 
wiederhergestellt. 


Grafisch in Höchstform 


SPRINV n (n: 1 bis 8) 
invertiert das Sprite mit der Nummer »n«. 

SPRPOINT n,w (n: 1 bis 8, w: 0 bis 255) 
setzt den Sprite-Pointer für Sprite »n« auf den Wert »w«. 
Damit lassen sich Sprites animieren, indem ihnen ver¬ 
schiedene Bit-Muster zugeordnet werden. 
v=RSPOINT (n) (n: 1 bis 8) 

liefert den momentanen Wert des Pointers für Sprite »n«. 

v=SBUMP (n,m) (n und m: 1 bis 8) 

Der normale BUMP-Befehl liefert leider nur den gleichen 
Wert wie das Kollisions-Register des VIC-Chips, in dem für 
jedes Sprite ein Bit reserviert ist. Mit SBUMP läßt sich nun 
gezielt prüfen, ob seit der letzten Abfrage Sprite »n« mit 
Sprite »m« kollidiert ist. Dann liefert die Funktion den 


Wert 1, ansonsten 0. Eine Abfrage setzt das Bump-Flagdes 
Interpreters auf 0 zurück. 
v=DBUMP(n) (n: 1 bis 8) 

Dieser Befehl ähnelt SBUMP, nur wird hier geprüft, ob 
Sprite »n« mit Bildschirmdaten kollidiert ist. 

Fürdie folgenden Befehle, mit Ausnahme der Anweisung 
CHARSET, muß die Grafik aktiviert sein. Andernfalls wird 
deren Anwendung mit einem »MO GRAPHICS AREA 
ERROR« quittiert, damit ein im Speicher befindliches 
Basic-Programm nicht versehentlich zerstört wird. 
INVERT 

invertiert die Hires-Grafik. Im Multicolor-Modus bewirkt 
diese Anweisung lediglich ein Vertauschen der Farben. 

SETCOLOR 

Farbeinstellungen, die mit dem COLOR-Befehl vorgenom¬ 
men werden, wirken normalerweise nicht auf eine bereits 



Bild 1 Eine Multicolor-Grafik wurde zunächst mit GREY 
umgewandelt und mit HCOPY gedruckt 


fertige Grafik, sondern erst bei Löschen des Bildschirms. 
SETCOLOR setzt die neuen Farben, ohne die Grafik zu zer¬ 
stören. 

GREY 

wandelt eine Multicolor-Grafik in eine Hires-Grafik mit ver¬ 
schiedenen Grautönen um. Falls nach Umschalten in den 
Hires-Modus nichts auf dem Bildschirm zu sehen ist, müs¬ 
sen Sie einmal den SETCOLOR-Befehl anwenden. Die 
Umwandlung läßt sich jedoch nicht wieder rückgängig 
machen! 

HCOPY 

gibt eine Hardcopy der 40-Zeichen-Grafik auf einem MPS 
801-Drucker und Kompatiblen aus. In Bild 1 sehen Sie 
einen Beispielausdruck. 

CHARSET n (n: 0 oder 1) 

Im Grafik-Modus steht für den CHAR-Befehl normaler¬ 
weise nur der Groß/Grafik-Zeichensatz zur Verfügung. 
CHARSET 1 schaltet den Klein/Groß-Zeichensatz ein. 
CHARSET 0 schaltet zurück in den Groß-Grafik-Modus. 

Die folgenden Befehle erleichtern den Umgang mit dem 
80-Zeichen-Videochip VDC. 

VSET n,w (n: 0 bis 36, w: 0 bis 255) 
schreibt den Wert »w« in das Register »n« des VDC-Chips. 
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v=VREG(n) (n: 0 bis 36) 
liefert den Inhalt des VDC-Registers »n«. 

VPOKE a,w1[,w2,w3,..„] (a: 0 bis 65535, wx: 0 bis 255) 
schreibt den Wert »wl« in die Adresse »a« des VDC-RAMs. 
Da das VDC-RAM nur 16 KByte groß ist, sind für »a<< nur 
Werte bis 16383 sinnvoll, mit »a=16384« wird wieder 
peicherstelle 0 angesprochen. Dieser Befehl nutzt die 
Eigenschaft des VDC, das Adreß-Register selbständig zu 
erhöhen, so daß hinter »wl« beliebig viele weitere Werte 
angegeben werden können, die in die auf »a« folgenden 
Adressen geschrieben werden. Dies ist besonders für 
Änderungen des Zeichensatzes nützlich. 

v=VPEEK(a) (a: 0 bis 65535) 
liefert den Inhalt der Adresse »a« des VDC-RAMs. Für die 
Werte von »a« gilt das unter VPOKE Gesagte. 

Mathematische Leckerbissen 


v=COT(x) 

liefert den Cotangens von »x«, der Wert »x« ist im Bogen¬ 
maß anzugeben. 

v=DLOG(x) 

liefert den dekadischen Logarithmus von »x«. Der Wert »x« 
muß größer als 0 sein. 

v=RAD(x) 

liefert das Bogenmaß von »x«. Der Wert »x« ist als Gradzahl 
anzugeben. 

v=DEG(x) 

liefert das Gradmaß von »x«. Der Wert »x« ist im Bogenmaß 
anzugeben. 

v=DIV(x,y) 

liefert den ganzzahligen Teil der Division »x/y«. 

v=MOD(x,y) 

liefert den Rest der Division »x/y«. 

v=LOW(x) 

liefert das niederwertige Byte der 16-Bit-lntegerzahl »x«. 

v=HIGH(x) 

liefert analog zu LOW das höherwertige Byte. 

Speichermanipulationen wie mit TEDMON 


SETBOT b,a (b: 0 oder 1, a: 0 bis 65535) 
setzt die Untergrenze des für Basic verfügbaren Speichers 
in Bank »b« auf die Adresse »a«. 

SETTOP b,a (b: 0 oder 1, a: 0 bis 65535) 
setzt analog zu SETBOT die Obergrenze. Falls Sie mit die¬ 
sen Befehlen im Programm-Modus den Variablenspeicher 
(Bank 1) manipulieren, sollten Sie diesen ein CLR folgen 
lassen, um ein Chaos bei der Verarbeitung der Variablen zu 
vermeiden. 

v=RBOT(b) (b: 0 oder 1) 

liefert die aktuelle Untergrenze des für Basic in Bank »b« 
zur Verfügung stehenden Speichers. 

v=RTOP(b) (b: 0 oder 1) 
liefert analog zu RBOT die Obergrenze. 

MOVE b1,a,e,b2,z (bl, b2: 0 bis 15; a, e, z: 0 bis 65535) 
verschiebt den Speicherinhalt von Adresse »a« bis Adresse 
»e« in Bank »bl« an die Adresse »z« in Bank »b2«. 

Die folgenden Befehle wirken jeweils auf die mit dem 
BANK-Befehl eingestellte Speicherbank. 

DOKE a,w (a und w: 0 bis 65535) 
schreibt die 16-Bit-lntegerzahl »w« in Low/Byte-Format an 
die Adressen »a« und »a+1«. 

v=DEEK(a) (a: 0 bis 65535) : : . 1 

interpretiert den Inhalt der Adressen »a« und »a+1« als 
16-Bit-lntegerzahl im Low/High-Formät und liefert deren 
Wert. 


FILL a,e,w (a und e: 0 bis 65535, w: 0 bis 255) 
füllt den Speicher von Adresse »a« bis Adresse »e« mit dem 
Wert »w«. 

Ladebefehle und Programmsprünge 


Die folgenden zwei Befehle dienen dazu, ein Basic- 
programm an ein bereits im Speicher befindliches anzu¬ 
hängen. 

MERGE " <filename> " [,g] 

Dieser MERGE-Befehl wird wie der LOAD-Befehl ange¬ 
wendet. Somit ist »g« die Gerätenummer für ein Disket- 
ten-Laufwerk oder die Datasette. Dieser Parameter muß 
nicht angegeben werden, voreingestellt ist hier Geräte¬ 
nummer 1. Wird auch kein Filename angegeben, wird das 
nächste Programm von Kassette geMERGEt. Ein absolu¬ 
tes Laden durch Anhängen von »,1« hinter der Gerätenum¬ 
mer ist zwar möglich, aber wohl in den wenigsten Fällen 
sinnvoll. 

DMERGE * <filename> *[,D lw][, U g] 

Die Parameter dieses Befehls entsprechen denen des 
DLOAD-Befehls. Hinter dem File-Namen kann also mit »D« 
die Laufwerksnummer (Iw; 0 oder 1) angegeben werden, 
mit »U« die Geräte'nummer (g). 

Für die File-Namen sind die üblichen Abkürzungen 
erlaubt. 

VGOTO x und VGODUB x 

Diese Befehle entsprechen den bekannten Anweisungen 
GOTO und GOSUB. Die Sprungadresse kann aber hier 
auch in einer Variablen übergeben werden, also etwa: 

10 x=100:vgoto x 

nun*» 

Sonstige Befehle und Funktionen 


SCNSWAP 

schaltet vom 40- auf den 80-Zeichen-Bildschirm und 
zurück. 

FULLSCREEN 

hebt jedes bestehende Bildschirmfenster auf. Die Cursor- 
Position wird nicht beeinflußt. 

FKEY [n," <String > "] (n: 1 bis 10) 
entspricht im wesentlichen dem bekannten KEY-Befehl. 
Mit FKEY sind jedoch alle Tasten, die belegbar sind, auch 
ansprechbar. Hierbei entspricht »n=9« der RUN/STOP- 
Taste und »n=10« der HELP-Taste. FKEY ohne Parameter 
gibt die Belegung aller 10 Tasten auf dem Bildschirm aus. 
FKEY 

stellt die nach dem Einschalten vorhandene Belegung aller 
10 Funktionstasten wieder her. 

REPEAT ON/OFF 

Mit REPEAT OFF wird die automatische Tastaturwiederho¬ 
lung ausgeschaltet. REPEAT ON schaltet sie wieder ein. 

CURSOR 

Dieser Befehl kann in verschiedenen Formen angewendet 
werden. Für den 80-Zeichen-Bildschirm gilt: 

CURSOR FAST: schnell blinkender Cursor 
CURSOR BLOCK: Block-Cursor 
CURSOR OFF: Cursor verschwindet völlig 
CURSOR SLOW: normaler, langsam blinkender Cursor 
Auf dem 40-Zeichen-Bildschirm schaltet CURSOR 
BLOCK den Block-Cursor ein, CURSOR OFF den norma¬ 
len Cursor. 

OLD 

stellt ein durch NEW oder eines Reset gelöschten Basic- 
Programm wieder her. Nach einem Reset muß zunächst 
durch SYS 4864 die Basic-Erweiterung wieder aktiviert 
werden. War zuvor die Grafik eingeschaltet, müssen Sie 
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vor Anwendung des OLD-Befehls zunächst »GRAPHIC 1: 
GRAPHIC 0« eingeben. 

PAUSE 

hält den Programmablauf an, bis eine Taste gedrückt wird. 

SETUSR a (a: 0 bis 65535) 
setzt den USR-Vektor auf die Adresse »a«. 


Befehl Abkürzung 


Befehl Abkürzung 

chr$ chR 

def keine 

inpul inP 

load loA 

print# prl 

read reA 

char keine 

concat coN 

bload bloA 

dload dloA 


dopen doP 

filter filT 

graphlc grA 

movspr movS 

record reC 

rsppos rsP 

scnclr scnC 

sprite spriT 

xor keine 


Tabelle 1. Die neuen Befehle führen zu einer Änderung eini¬ 
ger Basic-Abkürzungen. Die Tabelle zeigt die davon betrof¬ 
fenen'Anweisungen 


$1300 

INIT 

Initialisierung der Basic-Erweiterung 

$135d 

CRUNCH 

Neuen Befehl in Token umwandeln 

$1381 

LIST 

Neuen Befehl listen 

$13aa 

EXEC 

Neuen Befehl auslühren 

$13d0 

COMADR 

Liste der Adressen (-1) der neuen Befehle 

$1414 

FNADR 

Liste der Adressen der neuen Funktionen 

$143c 

CMDLST 

Liste der Schlüsselwörter (Befehle) 

$14f2 

FNLST 

Liste der Schlüsselwörter (Funktionen) 

$1548 

CSOUND 

Hier beginnen die Routinen zu den neuen 
Anweisungen 

S1b57 

HCERR 

(Hier kann eine eigene Hardcopy-Routine 
beginnen) Ausgabe von »DEVICE NOT 
PRESENT ERROR«, wenn bei HCOPY 
der Drucker nicht eingeschaltet ist 

$1b5f 

HCOPY 

Beginn der eigentlichen Hardcopy-Routine 

xBasic 128 benutzt außerdem die Adressen $77/78 und $(a bis Sfe als 
Zwischenspeicher sowie den Bereich ab $100 (normalerweise für File¬ 
namen reserviert) als Bytepuffer für HCOPY 


Tabelle 2. Die wichtigsten Adressen von xBasic 128 


Bei den folgenden Funktionen ist der Parameter »d« je¬ 
weils eine Dummy-Variable, die zwar angegeben werden 
muß, deren Wert jedoch völlig gleichgültig ist. 

v = PRGLEN(d) 

liefert die Länge des momentan im Speicher befindlichen 
Basic-Programms einschließlich der beiden abschließen¬ 
den Null-Bytes, also die eigentliche Programmlänge plus 2. 

v=DLINE(d) 

liefert die Zeilennummer der aktuellen DATA-Zeile. 

v=LDEND(d) 

liefert die Adresse, bis zu der beim letzten Ladevorgang 
geladen wurde. Damit läßt sich beispielsweise die Länge 
eines mit BLOAD geladenen Binär-Files ermitteln, sofern 
man dessen Anfangsadresse kennt. 

v = RBANK(d) 

liefert die Nummer der momentan mit dem BANK-Befehl 
eingestellten Speicherbank. 

Zum Abschalten von xBasic 128 existieren zwei Möglich¬ 
keiten: 

OFF 

schaltet die Basic-Erweiterung ab. Gleichzeitig wird ein 
kurzes Maschinenprogramm in die NMI-Routine eingebun¬ 
den, so daß xBasic 128 durch einen Druck auf die 


RESTORE-Taste wieder aktiviert werden kann. Der NMI- 
Vektor enthält danach wieder seinen ursprünglichen Wert. 

XOFF 

schaltet die Befehlserweiterung völlig ab. 

Verwendet man XOFF in einem Programm, läßt sich bei 
zeitkritischen Routinen die Arbeitsgeschwindigkeit des 
Interpreters erhöhen. Anschließend darf xBasic 128 wieder 
mit SYS 4864 gestartet werden. 

Trotz dieser enormen Leistungsfähigkeit belegt xBasic 
128 nur etwa 2 KByte im Speicher, da verschiedene ROM- 
Routinen des C128 genutzt werden. Der OLD-Befehl ist 
beispielsweise durch ein nur 8 Bytes langes Unterpro¬ 
gramm realisiert. 

Das komplette Programm »xBasic 128« finden Sie in 
Listing 1. Es hat den Namen »xbasic128.obj« und muß im 
C64-Modus mit dem MSE eingegeben und gespeichert 
werden. Von nun an kann man »xBasic 128« mit 
BOOT "xbasicl28.obj", 0N B 15 
starten, um in den Genuß dieser interessanten Basic- 
Erweiterung zu kommen. Doch sei zuvor auf einige Beson¬ 
derheiten hingewiesen. 

Beachtenswertes 


Alle Befehle von xBasic 128 dürfen nach den üblichen 
Regeln abgekürzt werden. Da sie jedoch vom Basic- 
Interpreter mit Vorrang behandelt werden, ergeben sich für 
die Abkürzungen der Standard-Basic-Befehle einige Ände¬ 
rungen, die wir in einer Tabelle 1 zusammengestellt haben 
(die Befehle und Abkürzungen sind dabei im Klein-/ 
Großschrift-Modus angegeben). Nicht aufgeführte Basic- 
Komm;. idos werden weiterhin wie gewohnt abgekürzt. 

Daneben sollte die Standard-Belegung der RUN/STOP- 
Taste mit dem neuen Befehl FKEY folgendermaßen geän¬ 
dert werden, denn das ursprüngliche Kürzel für DLOAD 
(»dL«) führt aufgrund des neuen Befehls DLOG zu einem 
»SYNTAX ERROR«: 

fkey 9, ''dloA"+chr$(34) + "*"+chr$(13) + "run"+chr$(l3) 

Die Hardcopy-Routine, die mit HCOPY aktiviert wird, läßt 
nur den Ausdruck auf einem MPS 801-Drucker und Kompa¬ 
tiblen zu. Besitzer von anderen Druckern seien jedoch 
getröstet, denn diese Routine befindet sich am Ende der 
Erweiterung ab Adresse $1b57 und kann somit problemlos 
durch eine an den eigenen Drucker angepaßte Version 
ersetzt werden. Der dokumentierte Quelllexl der Hardcopy- 
Routine in Listing 2 wird dabei wertvolle Hilfe leisten. Inter¬ 
essant ist, daß diese Routine keine absoluten Sprünge ent¬ 
hält und damit in jedem Speicherbereich in Bank 0 lauffä¬ 
hig ist, der nicht unter dem ROM liegt. 

Für Assembler-Profis: Die »persönliche« 
Basic-Erweiterung 


Wem die Befehle von xBasic 128 nicht genügen, der kann 
sich eine Basic-Erweiterung nach eigenen Wünschen 
zusammenstellen. Die Tabelle 2 gibt dabei Auskunft über 
wichtige Adressen und Routinen von xBasic 128. Das 
Hauptprogramm (die Interpreterschleife), dessen Quelltext 
im TOPASS-Format in Listing 3 abgedruckt ist, befindet 
sich ab Adresse $1300 bis $13c0. Diese Erweiterung ist uni¬ 
versell anwendbar. Sie müssen »nur« die Routinen zu Ihren 
eigenen Befehlen hinzuschreiben. Als Beispiel in Listing 3 
dienen hier die beiden Kommandos FULLSCREEN und 
TEN (ab Zeile 2030). Sie zeigen, wie die neuen Routinen an 
das Interpreter-Programm angepaßt werden. 

(Michael Schmand/Michael Thomas) 
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d5 

03 

90 

laf8 

20 

f4 

87 

ca 

30 

12 

dO 

de 

be 

14d0 

d4 

4d 

45 

52 

47 

c5 

44 

4d 

35 

17e8 

a9 

00 

4c 

c9 

84 

a9 

80 

8 d 

90 

lbOO 

20 

Of 

88 

84 

2 f 

84 

31 

84 

3f 

14d8 

45 

52 

47 

c5 

53 

45 

54 

54 

2 a 

17f0 

21 

Oa 

2 c 

21 

0 a 

30 

fb 

60 

18 

lb08 

33 

85 

30 

85 

32 

85 

34 

60 

9b 

14e0 

4f 

dO 

53 

45 

54 

42 

4f 

d4 

53 

17f 8 

c9 

91 

dO 

08 

b9 

80 

8 d 

22 

d8 

lblO 

20 

Of 

88 

84 

2 d 

85 

2 o 

60 

©3 

14e8 

4d 

4f 

56 

c5 

48 

43 

4f 

60 

a8 

1800 

Oa 

4c 

80 

03 

c9 

fe 

dO 

Of 

a7 

lbl8 

a2 

59 

aO 

00 

20 

00 

8 c 

20 

03 

14f0 

d9 

00 

4c 

4f 

d7 

48 

49 

47 

3a 

1808 

20 

80 

03 

c9 

39 

dO 

08 

a9 

fO 

lb20 

bc 

79 

20 

d7 

77 

20 

56 

79 

01 

14f 8 

c8 

50 

62 

47 

4c 

45 

ce 

43 

17 

1810 

40 

8 d 

22 

Oa 

4c 

80 

03 

4c 

4e 

lb28 

□ 9 

59 

aO 

00 

20 

le 

8 a 

4c 

5c 

1500 

4 f 

<14 

44 

45 

45 

cb 

58 

52 

24 

181« 

Oc 

79 

c9 

fe 

<10 

f 9 

20 

«0 

fl 

1 b30 

fb 

8 c 

a2 

59 

aO 

00 

20 

00 

dO 

1508 

45 

c7 

56 

50 

45 

45 

cb 

44 

07 

1820 

03 

c9 

39 

dO 

Od 

a9 

20 

Bd 

2 a 

11)38 

8 c 

20 

bc 

79 

20 

d7 

77 

a2 

fe 

1510 

4c 

49 

4e 

c5 

52 

53 

50 

4f 

od 

1828 

2 b 

Oa 

a9 

00 

8 d 

26 

Oa 

4c 

8 e 

lb40 

5e 

aO 

00 

20 

00 

8 c 

20 

25 

22 

1518 

49 

4o 

d4 

4c 

44 

45 

4o 

c4 

78 

1830 

80 

03 

c9 

25 

dO 

08 

a9 

40 

bd 

lb48 

lb 

a9 

bo 

aO 

00 

20 

24 

8 a 

8 a 

1520 

52 

42 

41 

4o 

cb 

52 

41 

c4 

8 b 

1838 

8 d 

2 b 

Oa 

4c 

80 

03 

c9 

26 

fb 

lb50 

a9 

59 

aO 

00 

4c 

2 o 

88 

20 

67 

1528 

44 

45 

c7 

44 

4c 

4f 

c7 

53 

8 e 

1840 

dO 

08 

a9 

60 

8 d 

2 b 

0 a 

4c 

7© 

lbb8 

f3 

lb 

a2 

05 

4c 

3c 

4d 

20 

3© 

1530 

42 

55 

4d 

dO 

44 

42 

55 

4d 

dO 

1848 

80 

03 

c9 

40 

dO 

c9 

a9 

80 

c7 

lb60 

74 

aO 

20 

45 

aB 

a9 

04 

aa 

12 

1538 

dO 

52 

54 

4f 

dO 

52 

42 

4f 

78 

1850 

8 d 

2 b 

Oa 

a9 

40 

8 d 

26 

Oa 

48 

lb68 

20 

ba 

ff 

20 

cO 

ff 

a2 

04 

88 

1540 

d4 

44 

49 

d6 

4d 

4f 

c4 

00 

c6 

1868 

4c 

80 

03 

fO 

23 

c9 

91 

fO 

6 c 

lb70 

20 

c9 

ff 

24 

90 

30 

eO 

a9 

5b 

1548 

20 

7a 

41 

a9 

00 

8 d 

04 

d4 

51 

1860 

Oo 

c9 

fe 

dO 

Od 

20 

80 

03 

06 

lb78 

08 

20 

69 

92 

a9 

Od 

20 

69 

93 

1550 

8 d 

Ob 

d4 

8 d 

12 

d4 

a2 

ff 

9c 

1868 

c9 

39 

fO 

03 

4c 

0 c 

79 

4c 

11 

lb80 

92 

a9 

00 

a2 

06 

86 

f a 

8 d 

d7 

1558 

4c 

55 

41 

20 

7a 

41 

4c 

12 

aa 

1870 

46 

48 

20 

f 4 

87 

ca 

eO 

Oa 

o7 

lb88 

34 

11 

8 d 

31 

11 

Öd 

32 

11 

37 

1560 

41 

20 

72 

15 

a9 

00 

4c 

03 

c2 

1878 

90 

03 

4c 

28 

7d 

4c 

ec 

60 

51 

lb90 

aS 

fa 

Od 

33 

1 1 

a9 

06 

8 b 

fe 

1568 

af 

20 

72 

15 

a8 

a9 

00 

4c 

d7 

1880 

a2 

00 

aO 

00 

e8 

bd 

ff 

Of 

e5 

lb98 

fb 

20 

c3 

9c 

bl 

8 c 

a6 

fb 

42 

1570 

03 

af 

20 

56 

79 

20 

da 

77 

11 

1888 

fO 

5c 

85 

78 

86 

77 

a2 

06 

dl 

IbaO 

9d 

00 

01 

ce 

33 

ii 

c6 

fb 

26 

1578 

a5 

63 

c9 

91 

bO 

09 

20 

c7 

d7 

1890 

bd 

05 

19 

ca 

dO 

Ob 

05 

77 

d8 

lba8 

10 

ef 

ee 

33 

11 

aO 

07 

a9 

57 

1580 

8 c 

a4 

67 

a5 

66 

60 

ea 

4c 

9b 

1898 

c9 

3a 

dO 

05 

20 

Oc 

19 

fO 

fc 

IbbO 

01 

a2 

06 

le 

00 

01 

2 a 

ca 

Be 

1588 

28 

7d 

20 

12 

88 

4c 

t)2 

59 

e2 

18a0 

03 

20 

69 

92 

8 a 

10 

e9 

a2 

76 

IbbB 

10 

f 9 

48 

a5 

fa 

c9 

cB 

90 

CG 

1590 

20 

ld 

5a 

20 

86 

03 

20 

8 a 

fO 

18a8 

07 

b9 

Oa 

10 

c8 

48 

86 

79 

ec 

IbcO 

04 

68 

29 

8 f 

24 

68 

20 

69 

Od 

1598 

15 

4c 

f 6 

4a 

20 

56 

79 

20 

b5 

18b0 

a2 

04 

dd 

a3 

61 

fO 

34 

ca 

44 

1 bc8 

92 

88 

10 

o3 

a9 

08 

18 

6 d 

3b 

15a0 

da 

77 

ad 

10 

12 

38 

e5 

2 d 

78 

18b8 

dO 

f 8 

a6 

79 

oO 

08 

90 

07 

7c 

lbdO 

31 

11 

8 d 

31 

11 

90 

03 

ee 

93 

lbaö 

a8 

ad 

ii 

12 

e5 

2 e 

4c 

c9 

42 

18c0 

dO 

Oa 

a9 

2 b 

20 

69 

92 

a9 

50 

lbd8 

32 

11 

20 

24 

9d 

90 

bl 

a9 

98 

15b0 

84 

a2 

4c 

bd 

a8 

ce 

9d 

00 

c8 

18c8 

22 

20 

69 

92 

68 

20 

69 

92 

f9 

IbeO 

Od 

20 

69 

92 

ab 

fa 

18 

69 

Of 

15b8 

10 

ca 

10 

f 7 

60 

20 

56 

79 

84 

18d0 

a2 

09 

c6 

78 

dO 

d3 

eO 

09 

f 9 

lbe8 

07 

86 

f a 

c9 

cc 

bO 

04 

ab 

57 

15c0 

20 

da 

77 

20 

59 

94 

a9 

lb 

46 

18d8 

90 

05 

a9 

22 

20 

69 

92 

a9 

84 

lbfO 

d3 

fO 

97 

a9 

Of 

20 

69 

92 

13 

15c8 

aO 

95 

20 

89 

8 a 

4c 

4c 

8 b 

bf 

18e0 

8 d 

20 

69 

92 

a6 

77 

eO 

Oa 

e8 

lbf 8 

a9 

Od 

20 

69 

92 

4c 

cc 

fr 

lc/ 

15d0 

20 

56 

79 

a5 

17 

48 

a5 

16 

a5 

18o8 

dO 

9a 

60 

a6 

79 

bd 

9a 

61 

ab 






15d8 

48 

20 

da 

77 

20 

15 

88 

ac 

00 

18f 0 

20 

69 

92 

ca 

eO 

03 

bO 

f 5 

98 











1 5q0 

d5 

03 

aO 

00 

a9 

16 

20 

74 

14 

18f8 

68 

20 

30 

a8 

a9 

29 

20 

69 

c9 










\s 

15e8 

ff 

85 

77 

e6 

16 

dO 

02 

e6 

22 

1900 

92 

a2 

08 

dO 

cd 

2 c 

30 

20 

3f 

Listinq 1 . 

»xba$ic128.obi< 

ist nur 

15f 0 
15f 8 

17 

20 

ae 

74 

d5 

ff 

03 

a8 

aO 

68 

00 

85 

a9 

16 

16 

68 

11 

43 

1908 

1910 

59 

19 

45 

20 

4b 

69 

46 

92 

a2 

ca 

02 

dO 

bd 
f 7 

18 

60 

01 

ba 

2 KByte lang. Bitte mit dem MSE 

1600 

85 

17 

98 

a4 

77 

4c 

c9 

84 

d5 

1918 

20 

30 

31 

20 

74 

aO 

a9 

20 

d4 

(Seite 158) im C64-Modus eingeben 
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C128 


PROGRAMMIERHILFEN 


ready. 




1510 - 

dec t.omp2 


1000 


topaaa aaaerablerllatina 

1520 - 

bpi lab3 

mein —> 

1010 


hcopyl28 


1530 - 

inc ycord 


1020 




1540 - 

ldy #307 

./ bytea aus graflk-speicher 

1030 


mlchael aohmand, 03.04.1987 

1550 -lab4 

lda «SOI 

.ln 8 bytea druckarforraat mpa 801 

1040 




1560 - 

ldx BS06 

;umwandeln 

1060 -.base *0c00 



1570 -lab5 

aal buffer.x 


1060 




1580 - 

rol 


1070 -.define 

xoord 

= $1131 


1590 - 

dex 


1080 -.dofIne ycord 

= $1133 


1600 - 

bpi lab6 


1090 -.define bytodr 

= $Gc 


1610 - 

Pha 


1100 -.define 

Betbit 

= *9ce3 


1620 - 



1110 *.defIno 

gotodr 

- $9d24 


1630 - 

cmp ö$c8 

iln latster druckzolle? 

1120 -.define 

baout 

» »9^69 


1840 - 

boc ok 

mein —> 

1130 -.define 

buffer 

- $100 


1650 - 

pln 

iaonat blta mit ycord>!99 

1140 -.define 

templ 

s $fa 


1660 - 

and H$8f 

,auablenden 

1160 -.define temp2 

= Sfb 


1670 - 

byte $24 

;ein byte lm Programm uebarspringen 

1160 -define 

ahift 

s $d3 


1680 -ok 

pla 


1170 -; 




1690 - 

Jar baout 

;byt« auagebon 

1180 -hcerr 


Jsr lab7 

;druckor-kanal aohlienaon 

1700 - 

dey 

1190 - 


ldj «»06 


1710 

bpi lab4 


1200 - 


Jmp *4d3c 

; auagabe devico not prcnent error 

1720 - 

lda t»*0B 

;xcord erhoehen 

1206 

1210 -hoopy 




1730 - 

olc 



Jar *a074 

.toat grnphlc-rom eingerichtet 

1740 - 

•de xcord 


1220 - 


Jar $«845 

,moplo 

1750 - 

nta xcord 


1230 - 


Ido «$04 

.drucker konal oef/nen 

1760 - 

bcc lab6 


1240 - 


tax 


1770 - 

Inc xcord*1 


1260 - 


Jar $ffba 


1780 1ab6 

Jar getadr 

.noch lm grftfik-bereich? 

1260 - 


Jar »ffcO 


1790 - 

boc labl' 

ixeord < 319 ---> 

1270 - 


ldx "S04 


1800 - 

Ido «$0d 

:zonal naechate xelle 

1280 - 


Jar *ffo9 


1810 - 

Jar baout 


1290 - 


blt $00 

;ototua tanten 

1820 - 

lda templ 

;yoord erhoehen 

1300 - 


bmi hcorr 

;fehler ---> 

1830 - 


1310 - 


Ido «$08 

;graflk-modua 

1840 - 

ade «S07 


1320 - 


Jar baout 


1650 - 

ata templ 


1330 - 


lda «$0d 

ireturn ausgebon 

1860 - 

cmp B$cc 

i letzte druckzelle erreloht? 

1340 - 


jsr baout 


1870 - 

bca lab7 

.Ja ---> 

1350 -; 



;x/y koordinatcn 

1800 - 

lda ohift 

i abbruch durch ahift/ctrl/comm7 

1360 - 


lda n$0 

1890 - 

boq labl 

mein ---> 

1370 - 


ldx o$06 

;auf null ootaen 

1805 -1 


1380 - 


atx templ 


1900 -lab7 

lda BSOf 

; drucker in nortnalmodun 

1390 - 


ata ycord*l 


1910 - 

Jar bsout 


1400 -labl 


ata xcord 


1920 - 

lda «$0d 

jreturn auagebon 

1410 - 


ata xcord*1 


1930 - 

Jar baout 

1420 -lab2 
1430 - 


lda templ 
ata ycord 


1940 ~ 

Jmp tffee 

;kanal sohlleaaen 

1440 - 


lda $306 





1450 - 
1460 -lab3 
1470 - 
1480 - 


ata temp2 
jar Betbit 
lda (bytadr).y 
ldx temp2 

‘.bytoadr im grafikapelcher holen 
;byte laden 

Listing 2. Das dokumentierte TOPASS-Quell-Listing der 
Hardcopy-Routine für den MPS 801. Sie kann an andere 

1490 - 
1500 - 


ata buffer.x 
deo yoord 

lund zwischenopeichern 
; schon 7 byte? 

Drucker angepaßt oder ersetzt werden. 


ready. 






1760 - 

lda «Xfnlst) 


1000 



topaaa aaaemblerliating 


1770 - 

ldy «<(fnlat) 


1010 

-; 


xMain.arc 



1760 - 

Jap eliat 

list 

1020 

-; 

michael schmand, 31.01.1987 


1790 

1030 







1800 -exec 

and «S7f 

imab auablenden 

1050 






seeR c 

- 

sbc BS27 

-.kleinstes user-emd-token 

1060 






1830 - 

aal 

iraaL 2. da 2-byte adressen 

1070 

-.define 

ecrunch 


= $4321 



1840 - 

tay 

1080 

-.define 

ucrunch 


= $43b2 



1850 - 


,routinen-adrease 

1090 

-.define 

seareh 


= $43e2 



1860 * 

pha 

lauf stack legen 

1100 

-.define 

eliat 


= $516a 



1870 - 

lda comadr.y 

1110 

-.define 

chrget 


= $0380 



1880 - 

pha 


1120 

-.define 

Jmpor 


- $0056 



1890 - 

jmp chrget 

;—> rta ruft routine 

1130 

-.define 

fnjump 


= $0057 



1900 -. 


1140 

-; 






1910 -exeefn 

aec 

ikleinatea user-fn-token 

1150 

-init 


ldx 

«S5 

;eac-vektoren aetzen 


1920 - 

abc n$0b 

ifuer tabellen-offset subtrahieren 

1160 

-iloop 


lda 

vector,x 



1930 - 

asl 

imal 2, da 2-byte adressen 

1170 

- 


ata 

$030c,x 



1940 - 

tay 


1180 

r 


dex 




1950 - 

lda fnadr*1.y 

; routinen-adresse 

1190 

- 


bpi 

iloop 



1960 - 

sta fnjurap+l 

iin sprungvektor eintragen 

1200 



lda 

«■: (exeefn) 

leac-fn vektor setzen 


1970 - 

lda fnadr.y 


1210 

- 


ata 

$02fo 



1980 - 

sta fnjump 


1220 

■ 


lda 

BXexecfn) 



1990 - 

jsr jmpor 

.routine aufrufen 

1230 

- 


ata 

$02fd 



2000 - 

clc 

iflag fuer user-fn ausgofuehrt 

1240 

- 


rta 




2010 - 

rta 


1250 

-; 






2020 



1260 

-vector 


.word crunch 

;voktoron-tabelle 


2030 -aomadr 

word fullacreen-1;adressliate befehle 

1270 

- 


.word Liat 



2040 



1280 



.word exec 



2050 -ihier koennen weitere hefehlaadreaaen-1 atehon 

1290 

- 2 






2060 - ; 



1300 

-crunch 


pha 


lac retten 


2070 -; 



1310 

- 


lda 

P > ( ccnd lat) 

;atartadreoao emd tabelln 

2080 -fnadr 

word ton 

;adrona1 Int« funktional 

1320 

- 


ldy 

»■(cmdlat) 



2090 i 



1330 

" 


Jar 

aearch 

,wort auchen 


2100 -ihier koennen weitere funktionaadreaaen atohen 

1340 

- 


bco 

fnarunoh 

micht gefunden - 


2110 -; 



1350 

- 


tax 




2120 



1360 

■ 


pla 


;atack bereinigen 


2130 -cmdlat 

.byto "fullacreoN"; schluoaaalwoerter befehle 

1370 

” 


txa 




2140 ; 


.eratos token ®fe $27 

1380 

• 


and 

«$7f 

;tokon in oc 


2150 



1390 

- 


clc 




2160 ihier koennen weitere achluesaelwoerter stehen 

1400 

- 


ade 

B$27 

,kleinstes uaor emd-token 

2170 -.der letzte buchntobe muss Immer goahiftot sein 

1410 

- 


ldx 

o$00 

;emd-flag 


2180 



1420 

- 


Jmp 

ucrunch 

;token ln baalc-text olnaetzen 

2190 - 

.byto 0 

;tabollon-endo 

1430 

" i 






2200 -i 


1440 

-fncrunoh 

lda 

»Xfnlst) 

;atartadronoe fn tabello 

2210 -fnlat 

.byte "teN" 

;achlueaoelwoertor funktIonen 

1450 

- 


ldy 

*•'(fnlat) 



2220 

.•raton token $ce SOb 

1460 

- 


Jor 

aearch 

;wort auchon 


2230 



1470 

- 


bca 

found 

.gefundon --> 


2240 -;hler koennen weitere »chlueaaelwoerter atohen 

1480 

*i 


pl« 




2250 -ider letete buohatabe muss immer geahiftet aeln 

1490 

-notfound 


iaonat: ao zuruoak 


2260 -; 



1600 

- 


aoe 


iflag fuor normolon baalc-bofohl 

2270 - 

.byte 0 

;tabellen-ende 

1510 

- 


Jmp 

eorunoh 

;tokenialeren 


2260 

1520 

1530 

-found 


tax 




2290 Jetat 
2300 -; 

folgen die befehls-routlnon 

(belspiolo) 

1540 

- 


pla 


iatack bereinigen 


2310 



1550 

“ 


txa 

«37f 

;token in ac 


2320 -fullacreen Jmp $ca24 

.vollon Bildschirm herstellen 

1560 

— 


and 


2330 



1670 

- 


clc 




2340 -ten 

Jsr $7956 


1580 

“ 


ade 

«$0b 

ikloinatoo uaer-fn-tokon 

2350 - 

Jmp $Bbl7 

;foc mal zehn 

1590 



Ldx 

*$ff 

; in-f 1 ttg 


2360 


1600 

- 


Jmp 

ucrunch 

;in baaic-text oinaetzon 

2370 



1610 

“i 



«$80 

imab fuor Hat aetcon 


2300 -.die folgenden werte koennen nicht 

b. 1 b token benutzt werden: 

1620 

-liat 


orn 


2390 -i 



1030 

“ 


lnx 




2400 $20 

entspricht spaco (" ”1 


1640 



beq 

fnliat 

;fn-token? Ja --> 


2410 $22 

entspricht anfuehrungasoichen 

1050 

“ > 






2420 $3o 

entspricht trennzelchen {' 


1860 

- 


a ec 


; kleinsten uaer-emd-token 

2430 


1670 

- 


abc 

«327 

, fuer tabellen-offaet 

aubtrahieron 

2440 - i an Ihrer atelle iat in der adreaaliate ,word 0 oinoutraeen. 

1680 

- 


tax 




2450 -; in der 

achluesaelwortlisto .byte SaO 

1690 

” 


lda 

«Xcmdlat) 

iatartadresao emd-labeile 




1700 

1710 

1720 

1730 

- 


ldy 

Jmp 

«< (cmdlst ) 
eliat 

;--> liat 


Listing 3. 

Die verantwortliche Interpreter-Routine von 

-fnliat 


sec 


ikleinatea user-fn-loken 

xBasic 128 als TOPASS-Quelltext. Sie kann für eigene 

1740 

1750 



sbc 

tax 

»$0b 

; fuer tabellen-offset 

aubtrahieron 

Basic-Erweiterungen verwendet werden. 
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C128 


Der fiele Steckplatz des C128 


Bild 1. Die Platine des C128. 
Der freie Steckplatz neben 
dem ROM des C128-Betriebs- 
systems kann beispielsweise 
für unseren »Double-Ass« 
verwendet werden. 



Wenn Sie Ihren C128 schon einmal geöffnet 
haben, dann wird Ihnen sicherlich der leere IC- 
Sockel auf der Platine aufgefallen sein. Was man 
mit diesem alles anfangen kann, sagt Ihnen der 
folgende Artikel. 

N eben einer Vielzahl an Bausteinen enthält der C128 
auch einen Sockel, der beim Kauf des Geräts noch 
nicht belegt ist. Dieser frefe Steckplatz eröffnet uns 
eine Vielzahl an Möglichkeiten. Schrauben Sie das 
Gehäuse Ihres C128 auf (Vorsicht! Garantieverlust), dann 
erkennen Sie den leeren Sockel auf der linken Platinen¬ 
seite neben dem ROM des C128-Betriebssystems (Bild 1). 
Der Sockel trägt die Bezeichnung U 36 und ist für ein 16- 
oder 32-KByte-EPROM (27128 oder 27256) vorgesehen. 

Vielfältige Möglichkeiten 


Die Konfiguration auf der Hauptplatine des C 128D ist wie 
in Bild 1. Seit kurzem gibt es eine neue C 128D-Platine, auf 
der sich der Steckplatz an einer anderen Stelle befindet 
(Bild 2). Laut Commodore gibt es auch eine neue 
Cl28-Platine mit stark geänderter Hardware-Aufteilung. 
Da uns ein solches Gerät noch nicht zur Verfügung gestellt 
wurde, können wir Ihnen nur sagen, daß es der einzige freie 
Steckplatz im Gerät sein müßte. Vermutlich ist die Konfigu¬ 
ration mit der neuen C 128D-Platine identisch. 

In dem freien Steckplatz läßt sich beispielsweise ein 
EPROM mit dem 8502/Z80-Assembler »Double-Ass« aus 
dieser Ausgabe einsetzen. Die hard- und softwaremäßigen 
Grundlagen, die dazu notwendig sind, wollen wir Ihnen hier 
vermitteln. 

Wie Sie sicherlich wissen, kann man sowohl in den C64 
als auch in den C128 Erweiterungsmodule in einen dafür 
vorgesehenen Steckplatz auf der Rückseite des Compu¬ 
ters stecken. Diese Buchse nennt sich Erweiterungs- oder 
Expansion-Port. 

Der C128 kann sowohl die Module eines C64 als auch 


seine »eigenen« erkennen und schaltet dabei in den ent¬ 
sprechenden Modus. Die Module des C64 werden dabei 
dadurch identifiziert, daß sie die EXROM- und die GAME- 
Leitung «;r ihre Zwecke verwenden. Sie schalten sich also 
hardwaremäßig ein. 

Beim C128 gingen die Entwickler einen anderen Weg. 
Hier kommt die MMU (»Memory Management Unit« oder 
»Speicherverwaltungs-Einheit«) ins Spiel. Da der C128 
mehrere Speicherbänke zu je 64 KByte verwalten kann, 
muß zwischen den einzelnen Bänken auch umgeschaltet 
werden, um auf jedes Byte des Speichers zugreifen zu kön¬ 
nen. 

Diese Umschaltung regelt die MMU, wobei auf Wunsch 
eine bestimmte Konfiguration des Speichers eingestellt 
werden kann. Dazu muß man wissen, daß der Speicher des 
C128 in einen RAM-, einen unteren, einen mittleren und 
einen oberen Speicherbereich aufgeteilt ist. Dabei geht der 
untere Bereich von $4000 bis $7FFF, der mittlere von $8000 
bis $BFFF und der obere von $C000 bis $FFFF. Der RAM- 
Bereich von $0000 bis $3FFF kann, wie der Name schon 
sagt, nur RAM enthalten. Die drei anderen Bereiche könn- 
nen jedoch wahlweise mit einer bestimmten Belegung ver¬ 
sehen werden (Bild 3). 

Wir wollen die Ausführungen an dieser Stelle zwar so 
knapp wie nur möglich halten, die wichtigsten Hinweise zur 
Einstellung der Speicherkonfiguration sollen jedoch an die¬ 
ser Stelle gegeben werden. Für detailliertere Informationen 
kann das Handbuch zum C128 zu Rate gezogen werden. 

Für die Einstellung der Speicherkonfiguration existiert in 
der MMU ein wichtiges Register: das Konfigurationsregi¬ 
ster, dessen Belegung in Tabelle 1 dargestellt wird. Es ist 
die Adresse $D500, gespiegelt bei SFF00. 

Speicherkonfiguration selbst bestimmen 


Die Bit-Belegung im einzelnen: 

Bit 7/6: Bit 7 und 6 geben die Nummer der aktuellen 
RAM-Bank an, die für die gesamten 64 KByte gilt, die 
gerade bearbeitet werden. Da in der Grundversion des 
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C128 nur die Bänke 0 und 1 existieren, können wir Bit 7 ver¬ 
nachlässigen. Bit 6 gibt also die Banknummer an. 

Der RAM-Bereich von $0000 bis $3FFF ist, wie schon 
gesagt, immer mit RAM belegt. Dabei ist die Banknummer 
in Bit 6 ausschlaggebend. 

Bit 5/4: Bei den Bits 5 und 4 existieren vier verschiedene 
Möglichkeiten. Sind beide Bits gelöscht, so ist im oberen 
Bereich der aktuellen Bank von $C000 bis $FFFF das 
Betriebssystem-ROM (Kernel) des C128 eingeblendet. Es 
steckt auf der Platine an Position U 35 und enthält 16 KByte 
Speicher. Sind die Bits 5 und 4 beide gesetzt, so adressiert 
die MMU im betreffenden Speicherbereich 16-KByte-RAM 
der entsprechenden Speicherbank. 

So, und jetzt wird es interessant: Sie haben nämlich jetzt 
noch zwei Bit-Kombinationen übrig, die die Bits 4 und 5 
annehmen können. Ist Bit 5 gesetzt und Bit 4 gelöscht, so 
wird der Expansion-Port des C128 adressiert. Steckt hierin 
nun ein Modul, so wird es in den Speicherbereich $C000 
bis $FFFF eingeblendet und behandelt, als wäre es ein 
ganz »normales« Kernel. 

Ist der Zustand der Bits 5 und 4 hingegen umgekehrt, 
also Bit 5 gelöscht und Bit 4 gesetzt, so wird der interne 
Zusatzsteckplatz U 36, der uns im folgenden noch genauer 
interessieren soll, adressiert. Hier kann nun zum Beispiel 
ein völlig neues Betriebssystem oder eine Anwendungs- 
Software integriert sein. 

Wie Sie sehen, haben im C128 sowohl ROM und RAM 
als auch Module und ROMs im Zusatzsteckplatz die glei¬ 
che Priorität. Es wird lediglich im Konfigurationsregister 
das eingestellt, was der Anwender gerne als Kombination 
haben möchte. 

Bit 3/2: Die Bits 3 und 2 haben genau die gleiche Funk¬ 
tion wie die Bits 5 und 4. Hier wird lediglich der Adreßbe- 
reich von $8000 bis $BFFF geschaltet, so daß Sie weitere 
Kombinationsmöglichkeiten haben. Es steht Ihnen also 
zum Beispiel frei, von $8000 bis $BFFF ein Modul einzu¬ 
schalten, während der Bereich $C000 bis $FFFF RAM ent¬ 
hält. Der Speicherbereich von $8000 bis $BFFF wird übri¬ 
gens normalerweise durch ein ROM repräsentiert, das 
einen Teil des Basic-Interpreters und den TEDMON des 
C128 enthält. Es ist auf der Platine im Sockel U 34 unterge¬ 
bracht. 

Bit 1: Bit 1 ist für den Adreßbereich $4000 bis $7FFF 
zuständig. Hier können Sie kein Modul oder externes ROM 
mehr einblenden, sondern haben nur noch die Wahl zwi¬ 
schen Basic-ROM oder RAM. Bei dem Basic-ROM handelt 
es sich um den ersten Teil des Interpreters, der in einem 16- 
KByte-ROM in dem Steckplatz U 33 enthalten ist. 

Bit 0: Bit 0 des Konfigurationsregisters hat eine Sonder¬ 
funktion, die den Adreßbereich $C000 bis $FFFF betrifft. Im 
Bereich von $D000 bis $DFFF kann nicht nur RAM oder 
ROM eingeblendet werden; hier liegen vielmehr auch noch 
die I/O-Bausteine des C128. 

Soll also ein Zugriff auf VIC, SID, CIA oder andere Peri¬ 
pherie erfolgen, so muß von $D000 bis $DFFF der Ein-/Aus- 
gabebereich des Computers eingeblendet werden. Ist Bit 0 
gelöscht, so ist der I/O-Bereich eingeblendet, wobei sich 
gleichzeitig der Speicherbereich infolge der ausgefallenen 
4 KByte auf 12 KByte vermindert ($C000 bis $CFFF und 
$E000 bis $FFFF). Ist das Bit gleich eins, so kann auf den 
zusätzlichen Speicherbereich zugegriffen werden. 

Schön und gut, werden Sie jetzt sagen. Man kann also 
auf das ROM im Zusatzsteckplatz (das wir übrigens ab jetzt 
als Funktions-ROM bezeichnen) zugreifen. Toll, aber was 
bringt mir das? 

Auf das Funktions-ROM können Sie nicht nur zugreifen, 
es wird vielmehr vom Betriebssystem des C128 unterstützt. 
Das »Wie« soll uns dabei nun interessieren. 


Wie bereits erwähnt, werden Module beim C128 nicht 
hardwaremäßig initialisiert und gestartet. Der C128 regelt 
das Einschalten eines Moduls sehr viel eleganter. Verfol¬ 
gen wir einmal den Verlauf einer solchen Initialisierung. 


Bit Erklärung 

7 höherwertiges Bit der Nummer der Speicherbank 
6 niederwertiges Bit der Nummer der Speicherbank 
5/4 Adreßbereich $C000 bis $FFFF: 

0/0 Kernel eingeblendet 
0/1 Funktions-ROM eingeblendet 
1/0 Steckmodul im Expansion-Port eingeblendet 
1/1 RAM eingeblendet 
3/2 Adreßbereich $8000 bis $BFFF: 

0/0 Basic-ROM 2 eingeblendet 
0/1 Funktions-ROM eingeblendet 
1/0 Steckmodul Im Expansion-Port eingeblendet 
1/1 RAM eingeblendet 
1 Adreßbereich $4000 bis $7FFF: 

0 Basic-ROM 1 eingeblendet 
1 RAM eingeblendet 
0 Adreßbereich $D000 bis $DFFF (I/O): 

0 I/O-Bausteine eingeblendet 
1 Konfiguration von Bit 4 und 5 eingeblendet 


Tabelle 1. Die Belegung des Konfiguratlonsregisters in der 
MMU des C128. Die Grundadresse ist SD500 beziehungs¬ 
weise gespiegelt bei Adresse $FF00. 



Bild 2. Die Lage des freien Steckplatzes U36 im 

neuen C128D ist mit einer »1- gekennzeichnet 


CBM-Kennung abfragen: Wird ein Reset ausgeführt, so 
blendet das Betriebssystem des Computers mit Hilfe des 
Konfigurationsregisters nacheinander vier verschiedene 
Erweiterungseinheiten in die aktuelle Bank ein: Funktions- 
ROM von $8000 bis $BFFF, Funktions-ROM von $C000 bis 
$FFFF, Expansion-Port von $8000 bis $BFFF und 
Expansion-Port von $C000 bis $FFFF. Es wird also jetzt bei¬ 
spielsweise das Funktions-ROM bei $8000 eingeblendet. 
Dann liest das Betriebssystem die Speicherstellen $8009, 
$800A und $800B aus und schaut nach, ob dort die Ken¬ 
nung »CBM« enthalten ist. Ist das nicht der Fall, so wird der 
Adreßbereich $C009 bis $C00B untersucht. Findet der 
C128 auch hier nichts, prüft er noch die gleichen Adreß- 
räume für den Expansion-Port und führt bei einem Mißer¬ 
folg die »normale« Reset-Routine aus, um schließlich das 
Basic 7.0 zu starten. 

Wir haben also auch beim C128 die Abfrage auf eine 
CBM-Kennnung, die wir schon vom C64 her kennen. 

Wie beim C64, so erfolgt auch beim C128 ein Start des 
entsprechenden Moduls, wenn die Bedingungen dafür 
erfüllt sind. Hier sind jedoch noch ein paar Einzelheiten zu 
beachten. 
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Beim C64 wird im Fall eines Modulstarts indirekt an die 
Adresse gesprungen, die in $8000 und $8001 gespeichert 
ist. Der C128 springt hingegen direkt in das Modul oder das 
Funktions-ROM. Wurde also die Kennung festgestellt, so 
erfolgt der Sprung an die Grundadresse, bei der das Modul 
oder ROM gefunden wurde. Diese Grundadresse ist je 
nach gefundener Kennung entweder $8000 oder $C000. 


Direkter Sprung ins Modul 


Theoretisch kann mit dem Befehl RTS in das Betriebssy¬ 
stem des C128 zurückgesprungen werden, da ein JSR in 
das Funktions-ROM stattgefunden hat. Es ist hierbei 
jedoch zu beachten, daß das Funktions-ROM anders 
adressiert wird als das Kernel, so daß das Kernel unter 
Umständen ausgeblendet wird, um das Funktions-ROM 
einzuschalten. Der C128 muß also immer mit sogenannten 


handensein der Kennung auch an späterer Stelle der 
Reset-Routine noch ein Einsprung erfolgen kann. 

Wenn Sie Ihren C128 einschalten und das Diskettenlauf¬ 
werk schon vorher eingeschaltet war, so erfolgt die Mel¬ 
dung des Basic 7.0 auf dem Bildschirm. Bevor jedoch das 
»READY.« mit dem Cursor erscheint, erfolgt ein Disketten¬ 
zugriff, der eine bootfähige Diskette erkennen und gegebe¬ 
nenfalls ein Programm laden und automatisch starten soll. 

Betrachtet man sich die Routinen des Betriebssystems 
jedoch genauer, so kann man erkennen, daß vor dem Dis¬ 
kettenzugriff noch einmal die vier möglichen ROM- 
Variationen abgefragt werden, so wie es direkt nach dem 
Einschalten des Computers passiert. 

Hier kann der Programmierer nun ansetzen, wenn er das 
Steuerbyte in $8008 ($C008) mit einem Wert zwischen $02 
und $FF versieht. Wird dieser Wert erkannt, so startet der 
C128 das Zusatz-ROM vor dem Zugriff auf die Diskette, 
aber erst nachdem bereits das gesamte C128-Computer- 
system initialisiert wurde. 



Bild 3. Speicherkonfiguration des C 128. Der Speicher teilt sich in einen RAM-, einen unteren, einen mittleren und einen 
oberen Bereich auf. Zusätzlich liegt bei SD000 der l/0-(lnput/Output)-Bereich. 


»long-jumps« arbeiten, was einem Umweg über das RAM 
entspricht. 

Das Byte vor der CBM-Kennung: Selektierungsart 

Neben der CBM-Kennung im Funktions-ROM ist aber 
auch noch ein anderer Faktor für einen Sprung in das ROM 
ausschlaggebend. Es handelt sich hierbei um ein Byte, das 
immer genau vor der CBM-Kennung zu finden ist, also bei 
$8008 beziehungsweise $C008. 

- Steht dieses Byte auf $00, so wird das eingesteckte 
Funktions-ROM oder Modul nicht als Autostart-Modul 
erkannt, und es erfolgt kein Sprung in das eingesteckte 
ROM oder EPROM. 

- Steht das Byte hingegen auf $01, so wird das Funktions- 
ROM oder das eingesteckte Modul direkt in der Reset- 
Routine angesprungen, und zwar bevor der gesamte 
Computer in einen definierten Zustand versetzt worden 
ist. Hier hat man also sehr früh die Möglichkeit, in den 
Betrieb des C128 einzugreifen. 

- Steht das Byte in $8008 ($C008) hingegen auf $02 oder 
einem beliebigen anderen Wert bis $FF, so geschieht die 
dritte Möglichkeit der Ansteuerung des Funktions-ROM. 
Das Interessante an dem ROM ist nämlich, daß bei Vor- 


Sie haben als Anwender also drei Möglichkeiten: Entweder 
Sie programmieren sich ein eigenes Betriebssystem, das 
eine komplett eigene Reset-Routine und Initialisierung des 
Computers enthält. Dann ist es sinnvoll, wenn Sie direkt am 
Anfang der Reset-Routine in das eigene System springen 
(Byte also auf $01 setzen). Wollen Sie jedoch kein Betriebs¬ 
system entwickeln, sondern nur eigene Maschinenpro¬ 
gramme in ein Modul einbinden, so ist es besser, wenn Sie 
Ihr Programm erst dann starten lassen, wenn sich das 

Einblendeit in verschiedenen Varianten 


gesamte Computersystem bereits in einem definierten 
Zustand befindet (Byte-Wert $02 bis $FF). Es ist jedoch 
auch möglich, daß Sie Software besitzen, bei der es ange¬ 
bracht ist, einen Teil in ein Modul und einen anderen Teil auf 
Diskette zu haben. Dann wäre es am günstigsten, wenn Sie 
den Wert $00 in das Steuerbyte schreiben und das Modul 
mit Ihrem eigenen Programm, nachdem dies von Diskette 
geladen wurde, aktiv einschalten und anspringen. 

Ein kleiner Fehler im Betriebssystem des C128 wäre viel¬ 
leicht noch erwähnenswert: Wenn Sie die Kennung $01 im 
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Steuerbyte stehen haben und aus der frühen Initialisierung 
mit RTS wieder in die Reset-Routine des C128 zurücksprin¬ 
gen, so erfolgt der Aufruf des Moduls noch einmal beim 
Basic-Start. Sie bekommen also zwei Autostarts Ihres 
Moduls, da der zweite Start nur noch auf das Steuerbyte 
ungleich Null abfragt und nicht verlangt, daß ein Wert grö¬ 
ßer gleich $02 vorhanden ist. Dieser Fehler wird uns aber 
in der fcegel nicht stören, da ein Rücksprung aus dem 
Modul in das Betriebssystem in den wenigsten Anwen¬ 
dungsfällen sinnvoll ist. 

Freie Bereichswahl 


Wenn Sie ein EPROM mit 16 KByte Speicherkapazität in 
den Sockel U 36 einstecken, haben Sie natürlich im 
Bereich ab $8000 und ab $C000 den gleichen Inhalt bei der 
Initialisierung. Sie können sich also hier auswählen, ob Sie 
den $8000 bis $BFFF- oder den $C000 bis $FFFF-Bereich 


als Modulbereich anwählen. In den meisten Fällen wird 
$8000 bis $BFFF der günstigere Bereich sein, da man 
dann das Betriebssystem des Computers ab $C000 ein¬ 
blenden und aus dem Modul heraus sehr einfach ansprin- 
gen kann. 

Haben Sie hingegen ein 32-KByte-EPROM im Sockel 
stecken, so muß natürlich der gesamte Bereich von $8000 
bis $FFFF auf Funktions-ROM geschaltet werden, um 
einen Zugriff zu ermöglichen. Ob man dann die Start¬ 
adresse bei $8000 oder bei $C000 liegen hat, ist nur eine 
Frage des eigenen Geschmacks und hat für den Betrieb 
des EPROM keine Bedeutung. 

Eine mächtige Angelegenheit also, das Funktions-ROM. 
Sie können von der eigenen Programmiersprache bis hin 
zu eingebauten DFÜ-Systemen oder einem Assembler wie 
Double-Ass alles realisieren, was Sie wollen. Und das alles 
steht auf Wunsch, direkt nach dem Einschalten des Com¬ 
puters, ohne einen Verlust des Original-Betriebssystems 
zur Verfügung. (Karsten Schramm/kn) 


Z80 - Der CP/M-Steuermann 


Lernen Sie die zweite Seele des CI28, den 
Z80-Prozessor, näher kennen. Mit dem »Double- 
Ass« aus dieser Ausgabe können Sie auch diesen 
Prozessor leicht programmieren. Hier finden Sie 
wichtige Grundlagen dafür. 

W er sich heute ernsthafter mit CP/M beschäftigen 
oder den zweiten Prozessor im C128 mit Hilfe von 
»Double-Ass« (Seite 66) individuell nutzen will, 
kommt nicht darum herum, den Z80 Mikroprozessor etwas 
näher zu betrachten. 

Das Betriebssystem CP/M (»C«ontrol-»P«rogramm for 
»M«icrocomputers), das von der Firma Digital Research 
entwickelt wurde, ist zwar ursprünglich für den 8080-Mikro- 
prozessor der Firma Intel geschrieben worden, doch heut¬ 
zutage wird in CP/M-Computern fast ausschließlich der 
Z80-Mikroprozessor (CPU) verwendet. So wird auch im 
Commodore 128 PC eine Z80 A CPU (A = 4-MHz-Version) 
für den CP/M-Modus eingesetzt. 

Kompatibilität Z80 - 8080 


Die Kompatibilität der 80er-Prozessoren von Intel und Zilog 
stiftet bei CP/M-Benutzern immer wieder Verwirrung. Des¬ 
halb wird an dieser Stelle hierauf eingegangen. 

Die 8080-CPU der Firma Intel kann als der Stammvater 
der sogenannten 80er-Familie bezeichnet werden. Diese 
CPU ist seit 1974 lieferbar. Die Z80-CPU wurde von der 
Firma Zilog entwickelt und wird seit 1977 vertrieben. Dieser 
Mikroprozessor ist als konsequente Weiterentwicklung des 
8080-Mikroprozessors zu sehen. Der Z80 ist aufwärtskom¬ 
patibel zum 8080-Mikroprozessor, das heißt, er »versteht« 
alle Befehle des 8080 und besitzt darüber hinaus einen 
stark erweiterten Befehlssatz. Dieser erweiterte Befehls¬ 
satz darf aber für CP/M-Anwenderprogramme nicht 
benutzt werden, da Programme dann nicht mehr auf allen 
CP/M-Rechnern laufen würden (keine Kompatibilität 
mehr). Die Nutzung des erweiterten Befehlssatzes ist also 
auf Einzelanwendungen beschränkt. Einzelne Software¬ 
häuser weichen jedoch heute von dieser Regelung ab und 


bieten spezielle CP/M-Programme für CP/M- Rechner mit 
Z80-CPU an. Diese Softwarehäuser müssen sich jedoch 
den Vorwurf der »Nichtkompatibilität« gefallen lassen. 

Wer nun glaubt, er könne einen defekten Z80 durch einen 
8080 ai'stauschen, der irrt gewaltig. Die Kompatibilität die¬ 
ser beiden Prozessoren beschränkt sich auf den Befehls¬ 
satz des 8080, das heißt, der Z80 versteht die Opcodes des 
8080. Hardwaremäßig besteht keine Kompatibilität. Der 
8080 (und die 8080-Nachfolger der Firma Intel) benutzt 
einen gemultiplexten Datenbus, das heißt auf den Adreßlei¬ 
tungen A0-A7 werden abwechselnd Adressen und Daten 
»transportiert«, während beim Z80 alle Anschlüsse einzeln 
herausgeführt werden. 

Die Verwirrung bei CP/M-Einsteigern ist häufig vollends, 
wenn zur Erstellung von Maschinenprogrammen Assem¬ 
bler benutzt werden sollen. 

Der Besitzer eines C128 weiß, daß sein Computer mit 
einer Z80-CPU ausgerüstet ist und das Betriebssystem 
CP/M Plus mitgeliefert wurde. Um den Z80 näher kennen¬ 
zulernen und in Maschinensprache zu arbeiten, besorgt er 
sich ein Buch über den Z80 und die zu CP/M Plus gehören¬ 
den Utilities SID, MAC und HEXCOM. SID ist ein Maschi¬ 
nensprachemonitor mit kleinem Assembler und Disassem¬ 
bler. MAC ist ein Makroassembler, der ein Maschinenpro¬ 
gramm in Assemblersprache (mnemonische Form) in den 
Maschinencode übersetzt. HEXCOM erzeugt aus den von 
MAC übersetzten Dateien Programme, die direkt vom 
Betriebssystem aus aufgerufen werden können (.com- 
Dateien). Wenn man sich jetzt mit SID einen Teil des 
Z80-ROMs in seinem C128 disassemblieren läßt, stellt man 
fest, daß die aufgelisteten Maschinensprachebefehle in 
mnemonischer Form nicht mit denen eines Z80-Buches 
übereinstimmen. Das liegt daran, daß die Opcodes des Z80 
und des 8080 zwar übereinstimmen (mit den weiter oben 
beschriebenen Einschränkungen), jedoch für beide Pro¬ 
zessoren andere Mnemonics verwendet werden. Die zum 
CP/M-System mitgelieferten Disassembler erzeugen 
jedoch Mnemonics im Intel-Format (8080-Mnemonics). 

Wer also den Z80 kennenlernen möchte, muß entweder 
mit Opcodes arbeiten (zum Beispiel mit dem SID-Monitor) 
oder einen Z80-Assembler wie Double-Ass benutzen. Da 
der Double-Ass brandneu ist, wurden die weiter unten 
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beschriebenen Z80-Assemblerbeispiele jedoch mit dem. 
Z80-Makroassembler erstellt und getestet, der mit dem 
Small-C-Entwicklungssystem vom MarktSTechnik Verlag 
mitgeliefert wird. 

Der CP/M-Macroassembler MAC kann zwar auch Z80- 
Mnemonics übersetzen, jedoch muß eine Mnemonic-Form 
benutzt werden, die sehr stark von der üblichen Zilog- 
Version abweicht, so daß dieser Weg nur als Notlösung 
akzeptiert werden kann. Welche Form die zu verwenden¬ 
den Mnemonics haben müssen, können Sie erfahren, 
wenn Sie die entsprechende Diskette einlegen (CP/M 
Utilities-Disk 2) und dann »TYPE Z80.LIB« (< RETURN >) 
eingeben. Oder Sie schauen sich die Mnemonics einfach 
beim Double-Ass in dieser Ausgabe an. 

Der Z80-Macroassembler des Small-C-Entwicklungssy- 
stems sowie der Double-Ass benutzen die übliche Zilog- 
Version für Z80-Mnemonics. 

Diese Vorbemerkungen sind notwendig, damit die ersten 
Versuche, praktisch mit dem Z80 zu arbeiten, nicht in Ver¬ 
wirrung und Frustration enden. 

Aufbau des Z80 


Hauptregister 

Sekundäre Register 

Akkumulator 

A 

Flags 

Akkumulator 

A’ 

Flags 

B 

C 

B’ 

C’ 

D 

E 

D’ 

E' 

H 

L 

H' 

L’ 


Bild 1. Übersicht der verschiedenen Z80-Register 


Befehlszähler 

PC 

Stapelzeiger 

SP 
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Der Z80-Mikroprozessor besitzt einen 8 Bit breiten Daten¬ 
bus (deshalb 8-Bit-Prozessor), einen 16 Bit breiten Adreß¬ 
bus und einen Steuerbus. Der Systemtakt muß extern von 
einem separaten Taktgenerator erzeugt werden. Der prinzi¬ 
pielle interne Aufbau des Z80-Prozessors sieht wie folgt 
aus: 

Im Inneren des Prozessors befinden sich: 

- eine Arithmetik-Logik-Einheit (ALU) 

- ein Steuerwerk, das die internen Abläufe steuert sowie 
den Steuerbus verwaltet 

- vier reine Adreßregister (1. der Befehlszähler PC, 2. der 
Stapelzeiger SP, 3. das Indexregister IX und 4. das Index¬ 
register IY) 

- ein Refresh-Register (R-Register), das dazu dient, dyna¬ 
mische Speicher aufzufrischen. 

- zwei Akkumulatoren (A und A’), von denen jedoch nur 
einer zur Zeit benutzt werden kann. Auf den zweiten 
Akku kann jedoch umgeschaltet werden. 

- zwei Registersätze mit »normalen« Registern (B-,C-,D- 
,E-,H- und L-Register beziehungsweise B’-, C'-,D’-,E’- 
,H'- und L'-Register). Diese jeweils 8 Bit breiten Register 
können zu jeweils drei 16 Bit breiten Registern zusam¬ 
mengezogen werden (BC-,DE- und HL-Register). 

Auch hier ist eine Registersatzumschaltung möglich 
wie bei den Akkumulatoren. Alle Register finden Sie in 
Bild 1 nochmals in einer Übersicht. 

- interne Daten-, Adreß- und Steuerbusse. Diese internen 
Busse sind durch Puffer von den äußeren Bussen 
getrennt. 

Es existieren noch weitere interne Register, die jedoch für 
den Programmierer nicht direkt erreichbar sind. 

Unterschiede zwischen 
dem Z80 und dem 6502 


Vergleicht man den Z80 mit dem 6502 (bzw. mit der Befehls¬ 
kompatiblen 2-MHz-Version 8502 im C128), so fällt die grö¬ 
ßere Anzahl von Registern beim Z80 auf. Der Z80 benötigt 
auch mehr Register, denn er gehört zu den sogenannten 
registerorientierten Prozessoren (wie die gesamte 80er- 
Familie), während der 6502 (8502) den Speicherorientier¬ 
ten Prozessoren zugeordnet wird. Wenn wir ab jetzt vom 
6502-Prozessor sprechen, treffen die damit verbundenen 


Aussagen gleichzeitig auf den, wie bereits gesagt, Befehls¬ 
kompatiblen 8502 im C128 zu. 

Viele Arbeiten, die die speicherorientierten Prozessoren 
im Arbeitsspeicher (RAM) durchführen, müssen bei den 
registerorientierten Prozessoren innerhalb des Prozessors 
in einem ihrer vielen Register durchgeführt werden. Die 
6502 CPU behandelt Ein-/Ausgabebausteine (I/O) wie nor¬ 
male Speicherzellen. Das bedeutet, daß die meisten CPU- 
Befehle auch auf I/O-Bausteine anwendbar sind. 

Die Z° i CPU benutzt für Ein-/Ausgabe über I/O-Bau¬ 
steine besondere Befehle (IN und OUT). Die I/O-Bausteine 
befinden sich nicht im »normalen« Adreßbereich, sondern 
werden über eine besondere Input/Output-Request- 
Leitung (IORQ) aktiviert und über die untere Hälfte des 
Adreßbusses (A0-A7) adressiert. Nach einem Hardware- 
Reset (zum Beispiel nach dem Einschalten) beginnt die 
6502 CPU mit der Arbeit an der Speicherstelle FFFC, wäh¬ 
rend die Z80 CPU bei der Adresse 0000 beginnt. 

Weiterhin unterscheiden sich die beiden Prozessoren in 
den üblicherweise verwendeten Taktfrequenzen. Diese 
werden häufig fälschlicherweise zum Vergleich der Arbeits¬ 
geschwindigkeit von unterschiedlichen Prozessoren her¬ 
angezogen. Ein Vergleich ist direkt nur innerhalb gleicher 
Prozessorfamilien möglich. 

Die Prozessoren der 80er-Familie arbeiten normaler¬ 
weise mit wesentlich höheren Taktfrequenzen als die Pro¬ 
zessoren der 65er-Familie. Wir wollen den 8502 hier der 
65er-Familie zuordnen. Die Schlußfolgerung, daß die 
80er-Prozessoren damit grundsätzlich schneller sind als 
die 65er-Prozessoren, wäre aber falsch. Ein Mikroprozes¬ 
sor benötigt zur Abarbeitung eines Befehls in der Regel 
mehrere Taktzyklen. Vergleicht man nun Befehle des Z80 
und des 6502, die die gleiche Wirkung haben, so stellt man 
fest, daß der Z80 in der Regel mehr Taktzyklen für den wir¬ 
kungsgleichen Befehl benötigt als der 6502-Prozessor. Er 
muß, um auf die gleiche »Arbeitsgeschwindigkeit« zu kom¬ 
men, mit einer höheren Taktfrequenz arbeiten. 

Der Z80-Prozessor ist trotzdem verhältnismäßig schnell, 
weil er eine Methode benutzt, die als Pipelining bezeichnet 
wird. Vereinfacht ausgedrückt, bewirkt dieses sogenannte 
Pipelining, daß der Prozessor, während er einen Befehl 
bearbeitet, schon den nächsten Befehl lädt. 

Die Befehle des Z80 lassen sich wie beim 6502 in 
bestimmte Befehlsgruppen einteilen. 

1. Transportbefehle (auch Transferbefehle genannt) 

2. Arithmetische Befehle (Addition) 
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3. Logische Operationen (UND-Verknüpfung) 

4. Registeranweisungen (Übertragsbit löschen) 

5. Sprungbefehle (Setze das Programm an der ange¬ 
gebenen Adresse fort) 

6. Programmunterbrechungen (Unterbrechung wird 
zugelassen) 

7. Unterprogrammbehandlung (Unterprogrammaufrufe) 

8. Sonstige Befehle (NOP, Leerbefehl no operatibn) ' 
Wie bekannt, lassen sich mit 8 Bit maximal 256 Werte 

darstellen (0-255), das heißt, der Befehlssatz eines 
8-Bit-Mikroprozessors kann normalerweise maximal 256 
Befehle betragen. Der 6502 besitzt 151 erlaubte (legale) 
Befehle (Opcodes) und in der C-MOS-Version 65C02 
178 Befehle. Die restlichen Opcodes (bis zu einer Gesamt¬ 
summe von 256) sind die sogenannten »illegalen Opco¬ 
des«, für deren Funktion die Hersteller keine Garantie über¬ 
nehmen. 

Auch der 8080 bleibt mit der Anzahl seiner Befehle (242) 
im Rahmen der mit 8 Bit darstellbaren Werte. 

Der Z80 hingegen besitzt mehr als 700 bekannte 
Befehle. Theoretisch sind es sogar mehr als 1000. Wie ist 
das bei einem 8-Bit-Mikroprozessor, der auch noch auf¬ 
wärtskompatibel zum 8080/8085 ist, überhaupt möglich? 
Die Lösung ist einfacher, als man glaubt. Beim Z80 werden 
einige Opcodes, die beim 8080/8085 nicht benutzt werden, 
zur Umschaltung des gesamten Befehlssatzes verwendet. 
Und zwar sind es die Opcodes DD, FD, ED und CB (hexade¬ 
zimale Schreibweise). Findet der Z80 einen dieser Opco¬ 
des in einem Programm vor, schaltet er seinen Befehlssatz 
um. Das diesen Opcodes folgende Byte wird dann als 
neuer Opcode interpretiert. Diese neuen Befehle bestehen 
aus mindestens 2 Byte (dem »Umschaltopcode«, gefolgt 
von einem Befehl). Diese genial einfache Lösung zur 
Erweiterung des Befehlssatzes für einen 8-Bit-Prozessor 
scheint den Entwicklern des Z80 so gut gefallen zu haben, 
daß sie diese Methode noch weiter ausgebaut haben und 
bei den »Umschalt-Opcodes« DD und FD noch weitere 
Umschalt-Opcodes vorgesehen haben. Folgt dem DD oder 
dem FD ein CB, wird jeweils wieder in einen neuen Befehls¬ 
satz umgeschaltet. Diese Befehle bestehen dann minde¬ 
stens aus 3 Byte (3-Byte-Befehle). 

Die beim Vorgänger des Z80 (dem 8080) nicht benutzten 
Opcodes DD, FD, ED, CB, DDCB und FDCB schalten also 
beim Z80 den gesamten Befehlssatz um. So ist es also 
möglich, mit einem 8-Bit-Prozessor einen Befehlssatz mit 
mehr als 256 Befehlen zu erzeugen. Nach diesem Prinzip 
funktioniert auch das sogenannte »Bank-switching«, die 


Speicherbankumschaltung bei 8-Bit-Computern mit mehr 
als 64-KByte-Speicher (wie auch beim C128). 

Die Firma Zilog hat für den Z80 eine eigene Form von 
Mnemonics (Gedächtnishilfe für Opcodes) entwickelt, die 
stark von den Intel-Mnemonics abweichen. Wer sich schon 
mit der 6502-Maschinensprache beschäftigt hat und die 
6502-Mnemonics kennt, kann sich aber freuen. Viele der 
Z80-Mnemonics ähneln stark den 6502-Mnemonics. 
6502-Befehl: 

LDA $1000 

Wirkung: Lade den Akku mit dem Inhalt der Speicher¬ 
stelle an Adresse 1000 hexadezimal. 

Z80-Befehl: 

LD A,(1000h) 

Wirkung: gleiche Wirkung wie beim 6502. Die Klammer 
um die Adresse steht bei den meisten Z 80-Assemblern für: 
Inhalt der Speicherstelle mit der Adresse in der Klammer in 
den Akku übertragen. Weiterhin erwarten die meisten Z80- 
Assembler eine Angabe, in welchem Zahlensystem die 
Adressenangabe erfolgt. In diesem Beispiel besagt das »h« 
hinter der Adresse, daß es sich um eine hexadezimale 
Adressenangabe handelt. Unser Assembler »Double-Ass« 
verlangt jedoch statt einem »h« ein »$«am Anfang der Zahl, 
um sie als Hex-Zahl kenntlich zu machen. 

Doch nun zu den Standardbefehlen der einzelnen 
Befehlsgruppen. 


Z80-Mnemonics 


Es hat wenig Sinn, im Rahmen dieses Artikels sämtliche 
Z80-&H. : hie (über 700) aufzulisten und in ihrer Wirkung zu 
beschreiben. Selbst im Rahmen eines Z80-Lehrbuches 
wäre diese Methode nicht nur langweilig, sondern auch 
unsinnig, da viele Befehle im Prinzip die gleiche Wirkung 
haben, sich jedoch nur auf andere Register beziehen. Des¬ 
halb werden hier die Standardbefehle der einzelnen 
Befehlsgruppen besprochen. Dabei wird das Prinzip dieser 
Befehle deutlich, das allen anderen der gleichen Kategorie 
zugrunde liegt, um den Anwender (beziehungsweise den 
Lernenden) in die Lage zu versetzen, alle Befehle dieser Art 
bei Bedarf einzusetzen. Um größere Programme zu erstel¬ 
len, sollte man sich dann einen kompletten Befehlssatz des 
Z80 besorgen und die geeignetsten Befehle einsetzen. 

Die für den Einstieg in die 280-Programmierung wichti¬ 
gen Befehlsgruppen werden im folgenden behandelt. 
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Mit Hilfe von Transferbefehlen können 

- Daten vom Prozessor (aus einem seiner Register) zum 
Speicher (RAM) und umgekehrt vom Speicher (RAM 
oder ROM) zum Prozessor 

- Daten vom Prozessor zu einem Ein-/Ausgabebaustein 
und umgekehrt 

- Daten innerhalb des Prozessors von einem Register in 
ein anderes Register übertragen werden. 

Diese Befehle werden in fast jedem Z80-Maschinen- 
oder Assemblerprogramm benötigt. 

Die erste Kategorie der Transferbefehle sind die soge¬ 
nannten Ladebefehle. Jeder Ladebefehl beginnt mit einem 
»LD« und einem Leerzeichen. Danach erfolgt die Angabe 
des Ziels und die Quelle der Daten. Diese beiden Angaben 
müssen durch ein Komma getrennt werden. Geladen wer¬ 
den kann jedes Register (Ziel) mit dem Inhalt jedes anderen 
Registers (Quelle) oder einer beliebigen Speicherstelle 
(Quelle). Es können sogar Register mit ihrem eigenen 
Inhalt geladen werden, wenn bei Ziel und Quelle die glei¬ 
che Registerangabe erfolgt. Die Wirkung eines solchen 
scheinbar unsinnigen Befehls ist eine kleine Zeitverzöge¬ 
rung des ablaufenden Programms. Diese Verzögerung 
kann manchmal aber recht nützlich sein (zum Beispiel bei 
Steuerungen). Die Aussage, daß jedes Register, wie oben 
angegeben, geladen werden kann, trifft natürlich auch auf 
den Akkumulator zu. Jedoch besitzt er, wie beim 6502, eine 
Sonderstellung. Das weiter oben angegebene Beispiel 
(Lade Akku 6502 und Z80) ist so ein Sonderbefehl für den 
Akku. Doch zunächst einige Beispiele für normale Transfer¬ 
befehle: 

Lade ein beliebiges Register mit einem angegebenen 
Wert (unmittelbare Adressierung) 

LD A,1FH - Bedeutung: Lade den Akkumulator mit dem 
Wert 1F hexadezimal 

LD B,2AH - Lade das B-Register mit dem Wert 2A hex. 

LD H,05H - Lade das H-Register mit dem Wert 5 hex. 

Jedes der sogenannten »Arbeitsregister« (A-, B-, C-, D-, 
E-,H- und L-Register) kann auf diese Weise mit einem belie¬ 
bigen Wert zwischen 00 und FF (hexadezimal) geladen 
werden. 

Doch nun zum zweiten Beispiel: 

Lade ein Register mit dem Inhalt eines anderen Registers. 

LD A,B - Lade Akkumulator mit dem Inhalt des Registers B 
LD B,C - Lade das Register B mit dem Inhalt des Registers C 
LD H, A - Lade das Register H mit dem Inhalt des Akkus 
Bereits diese wenigen Beispiele machen das Prinzip 
deutlich. In gleicher Weise kann aus jedem Arbeitsregister 
in ein anderes geladen werden. Bei diesen Befehlen wird 
der Akku wie ein »normales« Register behandelt. 

Wie bereits angesprochen, existieren auch Befehle, um 
die Werte beliebiger Speicherstellen in ein Register zu brin¬ 
gen. Diese Befehle sind nicht sofort durchführbar. Bevor so 
eine Operation durchgeführt werden kann, muß die 
Adresse der Speicherstelle in eines der Registerpaare 
geladen werden. 

An dieser Stelle kommen wir erstmals auf die weiter oben 
bereits erwähnten Registerpaare zu sprechen. Die Kombi¬ 
nation aus B- und C-Register wird als BC-Register (16 Bit), 
die Kombination von D- und E-Register als DE-Register (16 
Bit) und die Kombination aus H- und L-Register als HL- 
Register (16 Bit) bezeichnet. Somit stehen drei »16-Bit- 
Register« (Arbeitsregister) zur Aufnahme von 16-Bit- 
Werten, wie zum Beispiel Adressen, zur Verfügung. 

Es gibt jetzt zwei Möglichkeiten, diese »16-Bit-Register« 
mit Werten zu laden. Die erste besteht darin, nacheinander 
beide Register einzeln mit den beiden Bytes einer Adresse 
zu laden. Die zweite Möglichkeitbesteht in der Verwendung 


von sogenannten »16-Bit-Befehlen«, mit denen eines der 
Registerpaare durch einen einzigen Befehl geladen wird. 

Soll nun ein beliebiges Register mit dem Inhalt einer 
Speicherstelle geladen werden, so muß die Adresse der 
Speicherstelle in einem der Registerpaare stehen. Die 
Befehlsfolge könnte folgendermaßen aussehen: 

LD H, 10H - Lade das H-Register mit dem Hex-Wert 10 
LD L,00H - Lade das L-Register mit dem Hex-Wert 00 
LD c, (HL)- Lade das C-Register mit dem Inhalt der Spei¬ 
cherstelle, deren Adresse im HL-Register steht. In unserem 
Beispiel wäre das die Adresse 1000 hexadezimal. 

Zu beachten ist hierbei, daß das höherwertige Byte der 
Adresse im H-Register und das niederwertige Byte der 
Adresse im L-Register stehen muß. 

Sehen wir uns noch eine zweite Möglichkeit zum Laden 
von »16-Bit-Registern« an: 

LD HL, 1000H - Lade das Registerpaar HL mit dem Wert 
1000 hex. 

LD C, (HL) - Die Wirkung ist äquivalent zu obigem Beispiel. 
Der Befehl »LD HL.nnnn« ist ein sogenannter 16-Bit-Befehl, 
das heißt, mit einem einzigen Befehl kann ein 16-Bit-Wert 
in ein Registerpaar geladen werden. Diese Möglichkeit, die 
auf alle Registerpaare anwendbar ist (auch auf Programm¬ 
zähler und Indexregister), erleichtert die Programmierar¬ 
beit, spart Zeit und Speicherplatz. Nicht mehr, aber auch 
nicht weniger leisten diese oft genannten »16-Bit-Befehle« 
des »8-Bit-Prozessors« Z80. 

Wie schon erwähnt, nimmt der Akkumulator unter den 
Registern eine Sonderstellung ein. So auch beim Laden 
mit dem Inhalt einer Speicherstelle. Die soeben beschrie¬ 
benen Ladebefehle sind die allgemeine Form für alle Regi¬ 
ster. D^‘ Akkumulator kann auch direkt mit dem Inhalt einer 
beliebigen Speicherstelle geladen werden. Dazu wird der 
folgende Befehl verwendet: 

LD A, (1000H) - Lade den Akku mit dem Inhalt der Speicher¬ 
stelle an Adresse 1000 hex 

Bevor wir weitere Befehle (Befehlsgruppen) des Z80 ken¬ 
nenlernen, sei auf eine Besonderheit der meisten Z80-As- 
sembler hingewiesen. Versucht man zum Beispiel mit dem 
Befehl »LD A,(A000h)« den Inhalt der Speicherstelle A000 
(hex) in den Akkumulator zu laden, streiken die meisten 
Z80-Assembler. Sie erwarten bei Zahlenangaben (Adres¬ 
sen) als erste Ziffer eine Zahl zwischen 0 und 9. Dieses Pro¬ 
blem läßt sich auf denkbar einfache Weise lösen. Man fügt 
zur Zahlenangabe einfach eine führende 0 hinzu. 

Der Befehl »LD A,(0A000h)« wird dann anstandslos über¬ 
setzt. 

Testen Sie Ihren Z80-Assembler in dieser Beziehung, 
bevor Ihnen unnötigerweise graue Haare wachsen. 

Arithmetische Befehle 


Der Z80 kann, wie die meisten Mikroprozessoren, grund¬ 
sätzlich nur addieren und subtrahieren. Da er diese Opera¬ 
tionen jedoch sehr schnell ausführt, können andere (Multi¬ 
plikation oder Division) durch kleine Programme nachge¬ 
bildet werden. Die Multiplikation 3*4 kann auch als Addition 
4+4+4 aufgefaßt und so programmiert werden. 

Unterschieden wird bei den arithmetischen Befehlen 
zwischen Operationen mit Übertrag und ohne Übertrag. 
Weiterhin ist zu berücksichtigen, daß die meisten 
Additions- und Subtraktionsbefehle über den Akkumulator 
laufen. Additionen ohne Berücksichtigung des Übertrags 
sehen folgendermaßen aus: 

ADD A, 03 h - Addiere zum Akkuinhalt den Wert 03 hex. Das 
Ergebnis steht im Akkumulator. 
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ADD A,B - Addiere zum Akkuinhalt den Inhalt des B- 
Registers. Das Ergebnis steht im Akku. 

ADD A, (HL) - Addiere zum Akkuinhalt den Inhalt der Spei¬ 
cherstelle, deren Adresse im HL-Register steht. Das Ergeb¬ 
nis steht im Akku. 

Beim letzten Additionsbefehl muß, bevor addiert werden 
kann, das HL-Register mit der Adresse der Speicherstelle 
geladen werden (siehe Transferbefehle). Die Doppelregi¬ 
ster erlauben es, mit dem Z80 16-Bit-Arithmetik zu pro¬ 
grammieren: 

ADD hl,bc - Addiere zum Inhalt des HL-Registers (16 Bit) 
den Inhalt des BC-Registers (16 Bit). Das Ergebnis steht im 
HL-Register. 

SUB 05H - Subtrahiere vom Akkuinhalt den Wert 5 hex. Das 
Ergebnis steht im Akkumulator. 

SUB C - Subtrahiere vom Akkuinhalt den Inhalt des C-Regi- 
sters. Das Ergebnis steht im Akku. 

Soll ein eventuell entstandener Übertrag berücksichtigt 
werden, programmiert man mit folgenden Befehlen: 

ADC A, 09H - Addiere zum Akkumulatorinhalt die »Hexzahl« 
09 und das Übertragsflag C (C = Carryflag). Das Ergebnis 
steht im Akku. 

ADC A,C - Addiere zum Akkumulatorinhalt den Inhalt des 
C-Registers und das Übertragsflag. 

Die entsprechenden 16-Bit-Befehle lauten: 

ADC HL, DE-Addiere zum Inhalt des HL-Registers den Inhalt 
des DE-Registers und das Übertragsflag C. Das Ergebnis 
steht im HL-Register. 

SBC A,04h - Subtrahiere vom Akkuinhalt den Wert 04 hex 
sowie das Übertragsflag C. Das Ergebnis steht im Akkumu¬ 
lator. 

Indizieren mit Hilfe von Registern 


Alle Register und Registerpaare können »inkrementiert« 
oder »dekrementiert« werden. Dabei ist zu beachten, daß 
die folgenden Befehle, auf Registerpaare angewendet 
(16 Bit), keine Flags im Statusregister beeinflussen. 

INC A ;erhöhe den Inhalt des Akkus um 1 
INC B ;erhöhe den Inhalt des B-Registers um 1 
INC HL ;erhöhe den Inhalt des HL-Registerpaares 
um 1 

DEC A ;verringere den Inhalt des Akkus um 1 
DEC HL ;verringere den Inhalt des HL-Registers um 1 

Diese Befehle können für Zählaufgaben oder Zeitschlei¬ 
fen eingesetzt werden. 

Weitere arithmetische Befehle finden Sie in der folgen¬ 
den Tabelle: 

DAA Dezimalanpassung (BCD-Code) 

CPL Bildung des Einerkomplements des Akkus 
NEG Bildung des Zweierkomplements des Akkus 

Der Z80 besitzt die Logikbefehle AND (Bitweise UND- 
Verknüpfung zweier Bytes), OR (Bitweise ODER- 
Verknüpfung zweier Bytes), XOR (EXKLUSIV-ODER- 
Verknüpfung zweier Bytes) sowie den Vergleichsbefehl CP 
(Compare). 

AND 83H - Führt eine UND-Verknüpfung jedes Bits des 
Akkusmit jedem Bit derZahl 83 hex durch. Fürden Akkuin¬ 
halt OF hex würde dieser Befehl folgendes bewirken: 

Akkuinhalt OF hex = 00001111 binär 

83 hex = 10000011 binär 

AND-Befehl ergibt : 00000011 binär im Akku 


Nach dem AND-Befehl würde also 03 im Akku stehen. 
Mit Hilfe des AND-Befehls, der auf keinen Fall mit einer 
Addition verwechselt werden darf, können beliebige Bits 
»ausgeblendet« werden. In diesem Zusammenhang 
spricht man auch von »Maskierung«. Diese Maskierung ist 
bei Ein-/Ausgabeoperationen häufig sehr hilfreich. 

Verknüpfungsbefehle des Z80: 

AND C Bitweise UND-Verknüpfung der Inhalte des 
Akkus und des C-Registers. Ergebnis steht im 
Akku. 

OR 1FH Bitweise ODER-Verknüpfung des Akkuinhalts 
mit dem »Datenbyte« 1F hex. Das Ergebnis 
steht im Akku. Die Verknüpfung wird, wie beim 
AND-Befehl beschrieben, durchgeführt, mit 
dem Unterschied, daß, sobald ein Bit im Akku 
oder im »Datenbyte« oder in beiden den Wert 
»1« besitzt, das Ergebnis 1 ist. 

OR E Bitweise ODER-Verknüpfung des Akkuinhalts 
mit dem Inhalt des E-Registers. Das Ergebnis 
steht im Akku. 

XOR IAH Bitweise EXCLUSIV-ODER-Verknüpfung des 
Akkuinhalts mit dem »Datenbyte« 1A hex. Das 
Ergebnis steht im Akku. Die EXCLUSIV-ODER- 
Verknüpfung liefert als Ergebnis immer dann 
eine »1«, wenn die Inhalte der einzelnen Bits 
unterschiedlich sind. Sind sie gleich, entsteht 
eine »0«. Dieser Befehl kann zur sogenannten 
Invertierung (Umkehrung) benutzt werden (bei 
Logikanpassungen). 

CP 1BH Vergleiche den Akkuinhalt mit dem »Daten,- 
byte« 1B hex. Dabei wird IBh vom Akkuinhalt 
subtrahiert und das Ergebnis nicht weiter 
berücksichtigt. Es werden lediglich Flags im 
Statusregister beeinflußt. 

CP D Vergleiche den Akkuinhalt mit dem Inhalt des 
D-Registers. Die Wirkung ist die gleiche wie bei 
vorherigem Befehl. 

Alle logischen Operationen des Z80 arbeiten nur mit 
8-Bit-Daten. 

Mit Hilfe der sogenannten Registeranweisungen kann 
der Inhalt eines Registers verschoben werden. Der Inhalt 
jedes Bits wird in ein benachbartes Bit verschoben. Beim 
sogenannten Rotieren wird ein »herausfallendes« Bit 
jeweils am Anfang oder Ende des Registers verschoben. 
Beim Z80 kann das Carryflag bei diesen Operationen mit 
einbezogen werden. 

Auch hier wieder ein Beispiel: 

RRA ;lasse den Inhalt nach rechts rotieren, das heißt jedes 
Bit (Inhalt) wird um 1 Bit nach rechts verschoben, der 
Inhalt von Bit 0 gelangt ins Carryflag, der Inhalt des 
Carryflags in Bit 7. 

Weiterhin können mit Hilfe von Registeranweisungen 
einzelne Bits im Flagregister beeinflußt werden. 

Der Z80 ist im Gegensatz zu den meisten anderen Mikro¬ 
prozessoren mit einer Vielzahl von Befehlen zur Bitmanipu¬ 
lation ausgestattet, deren Beschreibung hier aber zu weit 
führen würde. 

Sprungbefehle werden in fast jedem Maschinenpro¬ 
gramm benötigt. Wie beim 6502 (und anderen Mikropro¬ 
zessoren) kann ein Sprung, das heißt eine Fortsetzung des 
Programms an einer angegebenen Adresse, von bestimm¬ 
ten Bedingungen abhängig gemacht werden. Ein Sprung 
ohne zusätzliche Bedingung wird unbedingter Sprung, ein 
Sprung, der nur durchgeführt wird, wenn eine zusätzliche 
Bedingung erfüllt ist, wird bedingter Sprung genannt. 
Beispiele für unbedingte Sprünge: 

JP 1000h setze das Programm mit dem Befehl in der 
Speicherstelle 1000h fort. 
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C128 


JP (HL) setze das Programm an der Adresse fort, die 
im HL-Register steht. 

Die Bedingung, die bei bedingten Sprüngen erfüllt sein 
muß, damit der jeweilige Sprung durchgeführt wird, ist der 
Zustand eines entsprechenden Flags im Flag-Register. Es 
kann der Zustand (0 oder 1) des Z-, C-, P/V- oder S-Flags 
sein. 

Beispiele für bedingte Sprünge: 

JP Z,4000h setze das Programm an der Adresse 4000h 
fort, wenn das Zero-Flag 0 ist. 

JP NZ,5000h setze das Programm an der Adresse 5000h 
fort, wenn das Zero-Flag nicht 0, also 1 ist. 

Das Zero-Flag wird auf »1- gesetzt, wenn bei einer arith¬ 
metischen oder logischen Operation vorher ein Ergebnis 
»0« geworden ist. 

Beim Z 80 kann eine Programmunterbrechung (Inter¬ 
rupt) durch einen Baustein außerhalb des Prozessors 
durch entsprechende Befehle zugelassen oder unterbun¬ 
den werden (maskierbare Interrupts). Hierfür dient der INT- 
Anschluß am Prozessor. 

Manipulation der Interrupts: 

El setze das Interrupt-Flip-Flop. Danach sind Interrupts 
zugelassen. 

Dl setze das Interrupt-Flip-Flop zurück. Danach ist ein 
Interrupt über den INT-Anschluß nicht mehr möglich. 

Zusätzlich besitzt der Z80-Mikroprozessor noch eine 
»nicht maskierbare Interruptleitung« (NMI-Anschluß). Eine 


Testprogramm Z 80 (TEST.MAC) 

Ausgabe eines Zeichens auf dem Bildschirm 


64€R 


ORG 0100H 

;Startadresse des Programms 


LD C.02H 

;Lade das C-Reg. mit dem Wert 
;Funktion 2) 

02 hex(BDOS- 

LD E,"R" 

;Lade das E-Register mit dem ASCII-Wert 
; für R 

CALL 5 

;Sprung ins CP/M-BDOS, Aufruf 
;Funktion 2 

der BDOS- 

CALL 0 

;Rücksprung zu CP/M 


END 

;Ende des Quellprogramms 



Beim Sprung ins BDOS wird die BDOS-Funktion 
ausgeführt, deren Nummer im C-Register steht (hier 
BDOS-Funktion 2) 

Die BDOS-Funktion 2 gibt das ASCII-Zeichen auf dem 
Bildschirm 

aus, dessen Wert im E-Register steht (hier R). 


Listing 1. Routine zur Ausgabe eines einzelnen Zeichens 


2. Testprogramm (TEST2.MAC) 

Ausgabe eines Strings auf dem Bildschirm 


ORG 0100h 
LD C,09h 

LD DE,TEXT 

CALL 5 
CALL 0 

TEXT: DB "Rüdiger Szillus $ 
END 


;StartadresBe 100 hex. 
iLade den Wert 09 hex. ins 
;C-Register 

;Lade die Anfangsadresse 
;von "TEXT:" 

;Sprung ins BDOS 
•.RUcksprung zu CP/M 

'.Definition des Datenbytes 
;Ende des QuellProgramms 


;Beim Sprung in3 BDOS wird die BDOS-Funktion 9 
;ausgeführt. 

;(Nummer steht im C-Register). 

;Die Adresse des auszugebenden StringB steht im DE- 
;Register ;(hier Label TEXT:). 

;BDOS-Funktion 9 = Ausgabe eines Strings auf dem 
;Bildsohirm. 

;Das S-Zeichen markiert das Ende des Strings und muss 
;angegeben werden. 


Listing 2. Routine zur Ausgabe eines Strings 


Interrupt-Anforderung über diese Leitung wird auf jeden 
Fall durchgeführt. Weiterhin gibt es beim Z80 noch drei 
Interruptmodi, die den Ablauf nach einem Interrupt fest¬ 
legen (Befehle: IM 0, IM 1 und IM 2). Damit der Prozessor 
bei Unterbrechungen nicht durcheinanderkommt, wird 
bei einem Interrupt der gerade bearbeitete Befehl zu Ende 
bearbeitet, bevor der Prozessor auf einen Interrupt rea¬ 
giert. 

Unterprogrammbehandlung 


Unterprogramme können beim Z80 mit Hilfe der CALL- 
Befehle aufgerufen werden. Der CALL-Befehl bewirkt 
einen Sprung zu einem Unterprogramm an einer angege¬ 
benen Startadresse. Wie die Sprungbefehle, können auch 
die Unterprogrammaufrufe an Bedingungen geknüpft wer¬ 
den. Im Gegensatz zu den Jump-Befehlen (JP) »merkt« 
sich der Prozessor jedoch seine »Absprungadresse«. Er 
kann nach der Beendigung des Unterprogramms das 
ursprüngliche Programm mit dem Befehl fortsetzen, der 
dem CALL-Befehl im Hauptprogramm folgt. Dieser Rück¬ 
sprung erfolgt, wenn der Prozessor im Unterprogramm 
einen RET-Befehl (RETURN) vorfindet, das heißt, zu jedem 
CALL-Befehl im Hauptprogramm gehört ein RET-Befehl im 
Unterprogramm. Auch hierzu wieder ein Beispiel: 

Hauptprogramm: 
beliebiger Befehl 

CALL 2000H setze das Programm an der Adresse 2000 

hex. fort 

nnnn nächster Befehl 

Unterprogramm: 

2000 beliebiger Befehl 

RET springe zurück ins Hauptprogramm zum 

nächsten Befehl (Adresse nnnn) 

Es können nicht nur eigene Unterprogramme aufgerufen 
werden, sondern auch Unterprogramme des Betriebssy¬ 
stems (CP/M-BDOS-Routinen). Diese Möglichkeit erleich¬ 
tert die Arbeit mit dem Z80 ganz enorm. In den Programm¬ 
beispielen machen wir von dieser Möglichkeit Gebrauch. 

In diese Gruppe sind die Befehle eingeordnet, die in 
keine der anderen Gruppen passen. Zu diesen Befehlen 
gehört der Befehl »HALT«. Die CPU unterbricht die Pro¬ 
grammausführung und führt so lange den Befehl »no Ope¬ 
ration« (NOP) aus, bis ein Reset durchgeführt wird oder ein 
Interrupt erfolgt. Der Befehl NOP gehört in diese Gruppe. 
Er bewirkt nur eine kleine Zeitverzögerung (ein Maschinen¬ 
zyklus) des ablaufenden Programms. NOPs können in ein 
Programm genommen werden, um das Programm später 
an dieser Stelle mit zusätzlichen Befehlen zu erweitern. 

Zum Abschluß sollen noch zwei kleine Beispielpro¬ 
gramme (Listing 1 und Listing 2) vorgestellt werden, die für 
einen Einstieg in die praktische Programmierarbeit benutzt 
werden können. Um diese Programme auszuprobieren, 
benötigt man einen Z80-Assembler wie »Double-Ass«, der 
das mit dem Editor erstellte Assemblerprogramm in den 
Maschinen-Code übersetzt und einen Linker, der aus dem 
übersetzten Programm eine direkt unter CP/M aufrufbare 
»COM«-Datei erstellt. 

Die Namenserweiterung muß nach den Erfordernissen 
des verwendeten Assemblers gewählt werden. Der bei der 
Erstellung dieser Beispielprogramme verwendete Makro¬ 
assembler des Small-C-Entwicklungssystems verlangt die 
Erweiterung MAC, andere Assembler erwarten den Zusatz 
ASM. Ganze Zeilen werden vom Assembler als Kommen¬ 
tarzeilen angesehen, wenn als erstes Zeichen ein »;« steht. 

Die Bedienung Ihres Editors, Assemblers und Linkers 
entnehmen Sie bitte den Handbüchern zu diesen Program¬ 
men. (Rüdiger Szillus/kn) 
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ANWENDUNG 


Weltrekord: 
Disketten- 
Backup in 
8 Sekunden 


OOUBLE-TOUCH EUER Z*I 1578/7HL0PPIES 1986 6V REINER KQUKAL JUN. 


BITTE HAEHLEN SIE. 


(BI RIRECIORV ANZEIGEN 
IBI BACKUP DISK 

EC1 QUEUE UND ZIEL VERTAUSCHEN 
(QI QIIT - PIMMIM BEENDEN 


Da werden sogar die Besitzer von Personal Com¬ 
putern neidisch. »Double-Touch« kopiert mit zwei 
Laufwerken eine Diskette in sage und schreibe 
8 Sekunden. 

ie vielfältigen Möglichkeiten bei der Programmierung 
der Floppy 1570/71 fordern regelrecht dazu heraus, 
schnelle Kopierprogramme für diese Laufwerkstypen 
zu schreiben. Ganz besonders interessant wird es, wenn 
neben dem C128 gleich zwei Laufwerke zur Verfügung ste¬ 
hen. Dann kann man sich nicht nur das lästige und zeitrau¬ 
bende Diskettenwechseln ersparen, sondern erzielt auch 
eine enorme Geschwindigkeit. »Double-Touch« (Listing 1) 
kopiert eine Diskette nämlich in rund 8 (!) Sekunden und 
formatiert sie auch noch gleichzeitig. Wünschen Sie die 
Verifizierung der Kopie, so werden weitere 8 Sekunden 
benötigt, die jedoch jeder Anwender aus Gründen der 
Datensicherheit opfern sollte. 

Verwendet man zwei 1571-Laufwerke, so können auch 
doppelseitig bespielte Disketten (aber keine doppelseiti¬ 
gen 1541-Formate!) bei entsprechend verdoppeltem Zeit¬ 
aufwand in einem Durchgang kopiert werden. 

Komfortable Menüsteuerung 


»Gemischter« Betrieb mit einer 1570- und einer 1571-Floppy 
ist natürlich auch möglich; man ist dann, wie bei Verwen¬ 
dung zweier 1570-Laufwerke, auf einseitige Disketten 
beschränkt. Mit der Floppy 1541 arbeitet »Double-Touch« 
allerdings nicht zusammen. 

Bevor Sie jedoch in den Genuß dieser großartigen Lei¬ 
stungsmerkmale kommen, müssen Sie noch Listing 1 mit 
dem MSE (im C64-Modus) eingeben. Danach wird das Pro¬ 
gramm im C128-Modus mit RUN "DOUBLE-TOUCH" 
geladen und zugleich gestartet, worauf das Hauptmenü, 
wie oben sichtbar, auf dem 80-Zeichen-Bildschirm darge¬ 
stellt wird. 


Der erste der vier Menüpunkte, »DIRECTORY ANZEI¬ 
GEN«. erbt das Inhaltsverzeichnis aus, wahlweise von Lauf¬ 
werk 8 oder 9. Das Directory wird, um die Initialisierung bei 
einseitigen Disketten abzukürzen, im 1541-Modus eingele¬ 
sen. Dadurch wird bei doppelseitigen Disketten allerdings 
ein falscher Wert als Anzahl der freien Blöcke angezeigt. 

Mit »BACKUP DISK« kopiert man eine Diskette. Bei den 
drei Eingabeaufforderungen, die nun folgen, sind bereits 
Standardwerte vorgegeben, die mit < RETURN > über¬ 
nommen werden können. 

Kopierparameter einstellea 


»SINGLE- ODER DOUBLE-SIDED« wählt das Diskettenfor¬ 
mat, wobei beim Arbeiten mit einer 1570-Floppy nur 
»SINGLE-SIDED« in Frage kommt. 

Die zweite Frage, »ZIELDISKETTE VERIFIZIEREN?«, 
sollte üblicherweise mit »J« beantwortet werden, um eine 
fehlerfreie Kopie zu gewährleisten. Die Frage »GERAETE- 
ADRESSE AENDERN« muß nur dann bejaht werden, wenn 
die beiden verwendeten Laufwerke auf Geräteadresse 8 
eingestellt sind. Dann wird vor dem Kopiervorgang die 
Adresse eines Laufwerks softwaremäßig von 8 auf 9 geän¬ 
dert. Dies muß allerdings vor jedem Kopiervorgang gesche¬ 
hen. Eine hardwaremäßige Einstellung der Geräteadres¬ 
sen ist daher zu empfehlen. 

Nun beginnt der eigentliche Kopiervorgang. Es erfolgt 
nacheinander die Aufforderung, Quell- und Zieldiskette 
einzulegen. Die LEDs (Leuchtdioden) des Laufwerks zei¬ 
gen jeweils an, wo die Disketten einzulegen sind, eine Ver¬ 
wechslung dürfte daher schwer fallen. 

Während des Kopierens können auch Fehlermeldungen 
auftreten. »WRITE PROTECT ON« bedeutet, daß sich ein 
Schreibschutz auf der eingelegten Diskette befindet oder 
daß noch keine Schreibkerbe angebracht wurde und führt 
zum sofortigen Abbruch des Kopiervorgangs, »x SECTORS 
MISSING ON TRACK y« zeigt an, daß die Anzahl der einge- 
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ANWENDUNG 


C128 


lesenen Sektoren einer Spur auf Diskette nicht stimmt; 
Ursache hierfür ist ein Read-Error 20 oder 21. Andere Lese¬ 
fehler (Read-Error 22, 23, 24, 27 und 29) werden wie die 
beiden ersten mitkopiert, ohne jedoch erkannt zu werden. 
Ein Kopieren von kopiergeschützten Disketten ist trotzdem 
nicht empfehlenswert, da bestimmte Fehler der Quell¬ 
diskette, die normalerweise als »READ ERROR 21« ange¬ 
geben werden, zur Zerstörung weiterer Sektoren führen 
können. 

So werden Fehler behandelt 


Weiteren Aufschluß über Fehler erhält man nur bei ange¬ 
wähltem Verifizieren der Zieldiskette. Hier wird versucht, 
die kopierte Spur einzulesen. Sektoren, bei denen dies 
nicht einwandfrei gelingt, werden mit »VERIFY ERROR« 
angezeigt. Tritt ein solcher Fehler auf, so kann dies auch an 
einer fehlerhaften oder kopiergeschützten Quelldiskette 
liegen. Da »Double-Touch« nur einen Leseversuch vor¬ 
nimmt, empfiehlt es sich, in einem solchen Fall ein anderes 
- langsameres - Kopierprogramm, das mehrere Lesever¬ 
suche durchführt, oder einen Nibbler zu verwenden. Nun 
ja, Schnelligkeit hat eben seinen Preis! 

Ein seltener Fehler ist »BUFFER OVERFLOW ON 
TRACK x«. Manchmal ist ein Read-Error 21 die Ursache, 
aber auch bei fehlerfreien Disketten kann dieser Fehler auf- 
treten. Das Ergebnis ist jedoch - wie oben - immer das¬ 


selbe: Die betroffene Spur wurde nicht richtig kopiert und 
einige oder alle Sektoren des Tracks sind daher fehlerhaft. 

Als Abhilfe kann man bei Problemdisketten zunächst ver¬ 
suchen, die Diskette nochmals zu kopieren. Tritt der Fehler 
wieder auf, hilft möglicherweise (beispielsweise, wenn die 
Köpfe beider Laufwerke leicht unterschiedlich justiert sind) 
der Hauptmenü-Punkt »QUELLE UND ZIEL VERTAU¬ 
SCHEN«, womit man das Laufwerk mit der Geräteadresse 9 
als Quell-Laufwerk definiert (bitte auch Disketten austau- 
schen). Entsteht der Fehler auch bei erneutem Versuch, so 
muß man sich wohl oder übel damit abfinden, daß sich die 
betroffene Diskette mit »Double-Touch« nicht kopieren läßt. 
In der Regel ist die Anzahl solch hartnäckiger Disketten 
aber so verschwindend gering, daß dies keinen Nachteil 
darstellt. In der 64’er-Redaktion wird »Double-Touch« 
schon seit einigen Monaten intensiv verwendet, und es 
sind bislang noch keine Probleme aufgetreten. 

Das Hauptmenü hält schließlich noch einen weiteren 
Menüpunkt bereit: Nach »QUIT« findet man sich kurzer¬ 
hand im C128-Modus wieder; sollte das Diskettenlaufwerk 
anschließend nicht ansprechbar sein, hilft ein Hardware- 
Reset (Reset-Schalter betätigen) oder kurzzeitiges 
Abschalten des Diskettenlaufwerks weiter. 

Zum Schluß sei noch erwähnt, daß man durch Drücken 
von <RESTORE> jederzeit ins Hauptmenü gelangt. 
Geschieht dies mitten in einem Kopiervorgang, so beenden 
die Laufwerke unverzüglich ihre Tätigkeit. 

(Reiner Koukal/Florian Müller) 


NAME 

DOUBLE TOUCH 


1C01 2D37 

1D91 

12 

20 

79 

1F 

A5 

26 

18 

69 

B4 

1F31 

20 

63 

20 

A2 

00 

BD 

FF 

FF 

4D 










1D99 

3Q. 

20 

r 2D 





79 

C4 

1F39 

FO 

06 

20 

A8 

FF 

E8 

DO 

F5 

CO 

1C01 

16 

IC 

00 

00 

FE 

02 

20 

31 

08 

1DA1 

1F A5 27 18 69 30 3' 

2D 

53 

1F41 

4C 

AE 

FF 

A9 

04 

85 

IE ,A5 

4A 

1C09 

35 

3A 

DE 

20 

9C 

3A 

9E 

20 

6 D 

1DA9 

C7 

20 

C2 

1F 

4C 

63 

IC 

A9 

B8 

1F49 

IE 

20 

EO 

1F 

C6 

IE 

DO 

F7 

24 

ICH 

37 

32 

31 

32 

00 

00 

00 

20 

34 

1DB1 

04 

20 

79 

1F 

20 

81 

20 

A2 

DB 

1F51 

60 

A6 

20 

9A 

58 

4C 

34 

IC 

51 

1C19 

46 

55 

45 

52 

20 

56 

49 

43 

06 

1DB9 

23 

C9 

OD 

DO 

02 

A9 

53 

C9 

6 D 

1F59 

86 

IE 

20 

79 

1F 

20 

81 

20 

5F 

1C21 

4B 

59 

20 

55 

4E 

44 

20 

54 

FC 

1DC1 

53 

FO 

06 

A2 

46 

C9 

44 

DO 

C8 

1F61 

A2 

FF 

C9 

OD 

DO 

02 

A5 

IE 

07 

1C29 

4F 

4D 

20 

A9 

08 

85 

26 

A9 

F5 

1DC9 

EB 

8 E 

A3 

2B 

8 E 

A3 

26 

86 

F5 

1F69 

C9 

4A 

FO 

06 

A2 

00 

C9 

4E 

42 

1C31 

09 

85 

27 

A9 

00 

8 D 

00 

FF 

68 

1DD1 

23 

20 

87 

20 

20 

2D 

C7 

A9 

C8 

1F71 

DO 

EB 

20 

87 

20 

4C 

2D 

C7 

D9 

1C39 

A9 

1F 

A2 

52 

8 D 

19 

03 

8 E 

30 

1DD9 

01 

85 

18 

A2 

4A 

A9 

06 

20 

42 

1F79 

48 

AA 

BD 

El 

24 

20 

EO 

1F 

C7 

1C41 

18 

03 

BA 

86 

20 

20 

84 

FF 

6 F 

1DE1 

59 

1F 

8 E 

A5 

26 

A2 

4E 

A9 

26 

1F81 

A9 

21 

A2 

8 D 

85 

1B 

86 

1A 

95 

1C49 

20 

81 

FF 

24 

D7 

30 

03 

20 

F9 

1DE9 

14 

20 

59 

1F 

8 A 

10 

25 

A9 

59 

1F89 

68 

AA 

FO 

OA 

AO 

00 

20 

B4 

B8 

1C51 

2E 

CD 

A9 

CO 

85 

F7 

A9 

80 

A8 

1DF1 

OE 

20 

79 

1F 

20 

C2 

1F 

A9 

39 

1F91 

1F 

DO 

FB 

CA 

DO 

F8 

AO 

00 

C8 

1C59 

85 

F8 

20 

B6 

77 

A9 

00 

20 

3E 

1DF9 

'08 

85 

21 

A9 

25 

A2 

CF 

20 

28 

1F99 

Bl 

1A 

A2 

01 

C9 

23 

DO 

07 

27 

1C61 

79 

1F 

20 

45 

E5 

20 

44 

1F 

C9 

1E01 

2 B 

1F 

A9 

25 

A2 

D5 

20 

2B 

7A 

1FA1 

20 

B4 

1F 

AA 

20 

B4 

1F 

20 

9D 

1C69 

A9 

0A 

20 

79 

1F 

A9 

01 

20 

D2 

1E09 

1F 

A9 

11 

20 

79 

1F 

20 

C2 

DC 

1FA9 

2D 

C7 

CA 

DO 

FA 

20 

B4 

1F 

48 

1C71 

79 

1F 

A9 

07 

20 

79 

1F 

20 

50 

1E11 

1F 

20 

E3 

1F 

A9 

08 

85 

21 

50 

1FB1 

DO 

E8 

60 

E6 

1A 

DO 

02 

E6 

E8 

1C79 

C2 

1F 

A2 

04 

DD 

32 

25 

FO 

DA 

1E19 

A9 

25 

A2 

CF 

20 

2B 

1F 

A9 

23 

1FB9 

1B 

Bl 

1A 

60 

A9 

08 

20 

79 

8 E 

1C81 

05 

CA 

DO 

F8 

FO 

Fl 

8 A 

48 

98 

1E21 

09 

85 

21 

A9 

25 

A2 

CF 

20 

51 

1FC1 

1F 

A9 

00 

85 

DO 

85 

Dl 

20 

26 

1C89 

20 

44 

1F 

68 

OA 

AA 

BD 

36 

FA 

1E29 

2B 

1F 

A9 

02 

20 

EO 

1F 

A9 

67 

1FC9 

EF 

EE 

FO 

FB 

60 

OA 

OA 

AA 

BF 

1C91 

25 

48 

BD 

35 

25 

48 

60 

AD 

62 

1E31 

2B 

A2 

00 

A4 

26 

20 

F8 

1F 

C7 

1FD1 

AO 

00 

BD 

F7 

24 

99 

E4 

00 

82 

1C99 

DA 

25 

DO 

OB 

A9 

10 

20 

79 

2A 

1E39 

A9 

26 

A2 

00 

A4 

27 

20 

F8 

94 

1FD9 

EQ 

ce 

CO 

04 

DO 

F4 

60 

20 

4C 

1CA1 

1F 

20 

C2 

1F 

4C 

63 

IC 

A9 

08 

1E41 

1F 

AO 

09 

84 

21 

A9 

25 

A2 

BC 

1FE1 

CE 

1F 

A9 

93 

4C 

2D 

C7 

85 

74 

1CA9 

03 

20 

79 

1F 

6 C 

FC 

FF 

A9 

01 

1E49 

65 

20 

2B 

1F 

AO 

08 

84 

21 

OC 

1FE9 

61 

86 

60 

20 

07 

BA 

A9 

00 

96 

1CB1 

02 

20 

79 

1F 

20 

81 

20 

A2 

D9 

1E51 

20 

4B 

20 

78 

20 

45 

E5 

20 

32 

1 FF1 

A2 

08 

AO 

03 

4C 

5D 

BA 

85 

C5 

1CB9 

08 

C9 

OD 

DO 

02 

A9 

38 

C9 

E5 

1E59 

51 

21 

20 
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Listing 1. 

»Double-Touch« wird 


08 

06 

94 

IC 

8D 

8D 

00 

04 

99 

3C 

mit dem MSE (Seite 159) im 


/ 

07 

IC 

8D 

05 

B6 

C64-Modus eingegeben 


1 / 



Benzinverbrauch im Griff 


Es ist immer sinnvoll, den Überblick über Kraft¬ 
stoffverbrauch und Kosten seines Autos zu 
behalten. Unser elektronisches Fahrtenbuch 
erstellt Monats- und Jahresübersichten und ver¬ 
anschaulicht die Ergebnisse durch übersichtliche 
Balkendiagramme. 

D as Programm »Fahrtenbuch 80« ist gedacht für alle, 
die einen C128 besitzen und ein komfortables und lei¬ 
stungsfähiges Hilfsmittel für Verbrauchsberechnun¬ 
gen ihres Kraftfahrzeuges suchen. »Fahrtenbuch 80« ist in 
Basic 7.0 geschrieben, wird über einfache Menüs bedient 
und benötigt einen Monitor mit 80-Zeichen-Darstellung. 
Übersichtliche Balkendiagramme zeigen Ihnen beispiels¬ 
weise den durchschnittlichen Benzinverbrauch über das 
gesamte Jahr (Bild 1). Die Grafik kann auch als Hardcopy 
auf den Drucker ausgegeben werden. 

Komfortable Bedienung 


Geladen und gestartet wird das Programm mit »RUN 
" FAHRTENBUCH 80"«. Es meldet sich mit seinem Namen 
und »***«. Immer, wenn diese drei Sternchen auf dem Bild¬ 
schirm erscheinen, erwartet das Programm das Betätigen 
der RETURN-Taste, um mit der Programmausführung fort¬ 
zufahren. Nach < RETURN > gelangt man in das Haupt¬ 
menü. Die Anwahl der einzelnen Menüpunkte erfolgt durch 
die Eingabe der entsprechenden Zahl und < RETURN >. 
Mit <X> gelangt man wieder in das jeweils übergeordnete 


Menü bzw. zum Programmende. Die Fl-Taste ist mit <X> 
<RETURN > belegt. Dies erleichert es, schnell aus den 
unteren Menüs zurüGk in das Hauptmenü zu kommen. Das 
Hauptmenü besteht aus drei Punkten, die noch weiter 
untergliedert sind: »Dateneingabe«, »Ausgabe«, »Disket¬ 
tenoperationen«; außerdem aus dem Punkt »Programm¬ 
ende«. 

Menüpunkt »Dateneingabe« 

»Fahrtenbuch 80« verwaltet im Hauptspeicher jeweils 
Daten für ein komplettes Kalenderjahr. In jedem Monat kön¬ 
nen fünf Datenblöcke, bestehend aus Datum, Kilometer¬ 
stand, getankten Litern Kraftstoff und Kosten für die Tank¬ 
füllung eingetragen werden. Das Programm errechnet dar¬ 
aus die gefahrenen Kilometer seit dem letzten Tanken, den 
entsprechenden Durchschnittsverbrauch pro 100 Kilome¬ 
ter sowie die Kosten pro Liter Benzin. Ferner wird pro Kalen¬ 
dermonat eine Übersicht erstellt, die alle Werte für den er¬ 
gebenen Zeitraum enthält. 

Untermenü »Neueingaben« 

Nach Anwahl dieses Menüpunktes werden automatisch 
alle im Arbeitsspeicher befindlichen Daten gelöscht. 
Zunächst sind die Jahreszahl, die gleichzeitig als Datei¬ 
name dient, und die Startkilometer, d.h. der letzte Kilome¬ 
terstand des Vorjahres (vollgetankt) oder <0> (z.B. bei 
Neukauf des Fahrzeuges), einzugeben. Daraufhin wird die 
erste Eingabe für Januar (siehe Datumsfeld) erwartet. Bei 
jedem Monat dürfen maximal fünf Datenblöcke eingege¬ 
ben werden, was in der Regel ausreichend sein dürfte. Wird 
jedoch öfter getankt, so muß man die überzähligen Anga¬ 
ben vor der Eingabe zusammenfassen. Eine optimale Aus¬ 
wertung der Daten erfolgt, wenn immer vollgetankt wird. 
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Gibt man eine <0> als Datum ein oder drückt einfach 
< RETURN> (ohne Datumsangabe), so gelangt man in 
die Eingabemaske für den Folgemonat. Das gleiche 
geschieht, wenn bereits alle fünf Datenblöcke eines 
Monats eingegeben wurden. 

Im Feld »km-Stand« ist der jeweilige Tachostand beim 
Tanken einzutragen, dann in die entsprechenden Felder 
die getankten Liter sowie die Kosten der Tankfüllung in DM. 
Dabei ist zu beachten, daß eventuelle Pfennigbeträge nach 
einem Dezimalpunkt, also nicht nach einem Komma, das 
vom Programm auch gar nicht angenommen wird, stehen 
müssen. Sind alle Angaben richtig, so bestätigt man dies 
bei der Sicherheitsabfrage mit < R >, und der Datenblock 
wird übernommen. Bei <F> wird der eingegebene Block 
vollständig gelöscht, und die Eingabe kann erneut erfol¬ 
gen. Die Eingabemaske wird verlassen, wenn man in eines 
der Felder ein <X> einträgt und <RETURN> drückt, 
wobei eventuelle Einträge in anderen Datenfeldern igno¬ 
riert werden. 

Untermenü »Ergänzungen« 

Bei diesem Menüpunkt wird zunächst der erste mögliche 
Eingabemonat errechnet, zu dem noch Datenblöcke 
ergänzt werden können. Die entsprechende Eingabe¬ 
maske erscheint, worauf wie bei »Neueingaben« Daten ein¬ 
getragen werden dürfen. Gegebenenfalls muß man sich 
erst durch ein- oder mehrmaliges <X> bis zu dem 
gewünschten Monat nach vorne »blättern«. 

Menüpunkt »Ausgabe (Bildschirm/Drucker)« 

Nach getaner Arbeit werden hier die eingegebenen 
Daten und die daraus errechneten Werte übersichtlich dar¬ 
gestellt. Zuerst wählt man das Ausgabemedium, wobei 
»Drucker« oder »Bildschirm« zur Verfügung stehen. Die 



Bild 1. Der Benzinverbrauch unseres Beispielautos wird 
über ein Jahr übersichtlich in Diagrammform dargestellt 


Ausgabe auf Diskette, also die Speicherung der Datenfiles, 
erfolgt im Menüpunkt »Diskettenoperationen«. 
Untermenü »Ausgabeoptionen« 

In Bild 2 sehen Sie das Menü mit den verschiedenen Aus¬ 
gabemöglichkeiten. Mit dem ersten Unterpunkt wird die 
»Monatsübersicht« aufgerufen. Hier muß man zunächst 
den ersten Monat eingeben, der angezeigt werden soll; 
zulässig sind dabei Werte von »1« bis »12«. Weitere Monate 
lassen sich dann über die entsprechende Zahl in der Aus¬ 
wahlzeile aufrufen. Ist der Wert »0« oder größer als »12«, so 
wird der jeweilige Folgemonat dargestellt. Die Eingabe von 
<X> oder <F1 > bewirkt einen Rücksprung ins Menü. 
Einen Jahresüberblick nach verschiedenen Kriterien 


1386-MSHUE--- 

Suswhl —) 

Ausgihewdio* =} 

1 Honatsuebersicht 

2 gefahrene Km (BalkendiigraM») 

3 Derbrauch/188 Km (BalbendiagraMM) 

4 Kosten/titer (BalhendiagraMM) 

I Ausgabeautvahl 


Bild 2. Das Untermenü für die Ausgabeoptionen auf den 
Bildschirm und Drucker 

erhält man mit den drei anderen Menüpunkten. Dabei wer¬ 
den unter Verwendung der Monatsübersichten Balkendia¬ 
gramme errechnet und angezeigt (Bild 1). Mit < + > oder 
<-> kann man das nächste bzw. vorhergehende Balken¬ 
diagramm aufrufen, durch <X> gelangt man wiederum in 
das übergeordnete Menü. 

Menüpunkt »Diskettenoperationen« 

In diesem Menübereich erfolgen Lade- und Speichervor¬ 
gänge der Datensätze. Dabei dient das erste Untermenü, 
»Datenfiles anzeigen«, dazu, in Form eines eingeschränk¬ 
ten Directorys anzuzeigen, ob und zu welchem Jahr Daten¬ 
files auf der im Laufwerk befindlichen Diskette abgelegt 
wurd Qr ’ 

Untermenü »Daten einiesen« 

Wurden bereits Datenfiles gespeichert, so erfolgt durch 
Eingabe der gewünschten Jahreszahl das Einlesen dieser 
Angaben in den Arbeitsspeicher. Die dort eventuell befind¬ 
lichen Daten werden überschrieben. Auf der Programm¬ 
service-Diskette sind unter File »1986« bereits Beispiel¬ 
daten (wie Bild 1) vorhanden, die die einzelnen Ausgabe¬ 
möglichkeiten (insbesondere die Balkendiagramme) 
demonstrieren sollen. Will man diese Daten einiesen, ist 
bei der Frage nach dem einzulesenden Jahr also »1986« 
einzugeben. In gleicher Weise geht man vor, wenn man 
später eigene Datenfiles gespeichert hat und diese laden 
und weiterverarbeiten will. 

Untermenü »Daten speichern« 

Das Sichern der unter »Neueingaben« oder »Ergänzun¬ 
gen« eingegebenen Werte auf Diskette erfolgt wahlweise 
unter der vorgegeben oder einer anderen (neu einzuge¬ 
benden) Jahreszahl. Nach erfolgter Speicherung erhalten 
die im Arbeitsspeicher befindlichen Daten den gleichen 
Namen (Jahreszahl), unter dem sie eben auf Diskette 
geschrieben wurden. 

Menüpunkt »Programmende« 

Durch Anwahl dieses Menüpunktes wird das Programm 
verlassen. Mit »FASTGOTO 30« erfolgt ein erneuter Pro¬ 
grammstart ohne Datenverlust. 

Fehlererkennung 

Das Programm verfügt über eine eingeschränkte Fehler¬ 
erkennung bei der Benutzung von Drucker und Disketten¬ 
station. So wird bei Anwahl der Ausgabe auf dem Drucker 
zunächst dessen Ansprechbarkeit überprüft. Ist der 
Drucker nicht angeschlossen oder nicht eingeschaltet, so 
gelangt man nicht in das folgende Menü. 

Ist der Drucker jedoch gerade aktiv, also druckend, und 
wird dann abgeschaltet, so kann dies nicht abgefangen 
werden, und das Programm steigt mit einem »DEVICE NOT 
PRESENT«-Error aus. 
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Bei Diskettenoperationen sieht es ähnlich aus. Auch hier 
wird nur am Anfang des Zugriffs das Vorhandensein der 
Floppystation abgefragt und der Fehlerkanal gelesen. Eine 
eventuelle Fehlermeldung erfolgt in englischer Sprache 
(Einzelheiten siehe Bedienungsanleitung des Laufwerks). 
In keinem Falle sollte die Diskette während eines Disketten¬ 
zugriffs aus dem Laufwerk entfernt oder das Laufwerk 
abgeschaltet werden. 

Druckeranpassung 

Das Programm ist in der vorliegenden Version auf den 
Drucker Commodore MPS 1000 (alle-DIP-Schalter auf 
»OFF«) abgestimmt. Die Druckausgabe läßt sich jedoch 
auch leicht an andere Drucker am seriellen Port mit Primär¬ 
adresse 4 und Sekundäradresse 7 (für Groß-/Kleinschrift) 
anpassen. 

Die einzigen Programmänderungen, die eventuell vor¬ 
genommen werden müssen, beziehen sich auf die Zeilen 
2770, 2850, 3050 und 3270 des Listings. An diesen Stellen 
wird nämlich der Zeilenabstand eingestellt, damit die 
Balkendiagramme durchgehend gedruckt werden und 
zwischen den Zeilen der Monatsübersicht nicht zu große 
Lücken entstehen. Gegebenenfalls muß man ein wenig mit 
den Werten für die Veränderung des Zeilenabstandes des 


jeweiligen Druckes experimentieren, bis man ein optimales 
Ergebnis erhält. 

Hier die entscheidenden Stellen im Listing: 

2770 . :0PEN 6,4,6: PRINT#6,CHR$(22): _ 

Öffnen des Befehlskanals zum Drucker, Einstellen des 
Zeilenabstandes. 

2850 . :PRINT#6,CHR$(36): CL0SE 6: .... 

Einstellen des Grundwertes für den Zeilenabstand. 
Gleiches gilt für die Zeilen 

3050 . :0PEN 6,4,6: PRINT#6,CHR$(24): ....und 

3270 . :PRINT#6,CHR$(36): CL0SE 6: ... 

Mit »Fahrtenbuch 80« haben Sie ein sehr nützliches 
Werkzeug an der Hand, um jederzeit über die Kosten Ihres 
Autos informiert zu sein. Es wird sich dann vielleicht für 
manchen heraussteilen, daß der »Super-Kauf«, den er 
meinte gemacht zu haben, sich als wahres »Groschen¬ 
grab« entpuppt. Ein weiterer positiver Aspekt kann sein, 
daß durch die ständige Präsenz der Kosten so mancher 
seine Fahrweise ändert und sowohl Geldbeutel als auch 
Umwelt entlastet. 

(Wolfgang Sartor/Dr. Rudolf Egg) 


10 GRAPHIC 5: CLR : COLOR 6 , 1 s PRINT CHR*(147);CH 



NGABEN *** 


<E7V> 

R*(14);CHRt(11> 5 CHR*(27)+"G": KEY 1, ” X ” 4-CHRt (1 


420 

KM«S(T,2) 


<3HU> 

3) 

<PQ3> 

430 

MO=INT (T/5)+1: T=T-*-l-INT((T-M)/5)*5: IFT-0 

T 


20 GOSUB 1020: FAST 

<GVU> 


HEN T=5 


<954> 

30 PRINT " (CLR,PURPLE) "Jt“ -CCYAN)- 


440 

GOSUB 460: RETURN 


<47A> 

-<35PACE) MmPTnj.N.ufiTSPACE >- 


450 

REM **» EINGABEN LESEN *** 


<HA5> 

-« 

<E 8 V> 

460 

DO 


< UNR > 

40 IF F=1 THEN PRINT "tHOME)”;TAB(63);F*: F=0 

<3IB> 

470 DO 


<VNV> 

50 PRINT AU*+CHR*(27)+"Q" 

<UIM> 

400 

K=(MD-1)«5+T 


<CNU> 

60 PRINT D*;”1 (GREEN,2SPACE>£ATENEINGABE" 

<UIM> 

490 

GOSUB 1570 


<JJ1> 

79 PRINT Dt; “2<GREEN,2SPACE>B)JSGABE (BILDSCHIRM / 


500 

PRINT "(H0ME,3D0WN>" TAB(24)tSIt;"IREDJB"i. 

z 


JJRUCKER) " 

<30H> 


=2: PU=1: GOSUB 1290: PRINT "<LEFT> ": IF F 

=2 


E0 PRINT Dt;"3IGREEN,2SPACEJSISKETTENOPERATIGNEN" 

< 1 BJ > 


THEN EX IT 


<BOD> 

90 PRINT Dl;“XCGREEN.25PACE>£ROGRAMMENDE" 

<DFI> 

510 

GOSUB 1670: IF F=1 THEN F=0: GOTO 500 


<740> 

100 Z=l: PU-1: PRINT "(HOME,3D0WN>" TAB113)"<RED3 


520 

IF F=3 THEN F=0: EX IT 


<DK9> 

GOSUB 1290: A=ASC(B*) 

<SRV> 

330 

PRINT " {H0ME,7D0WN> n TAB(35); S2* ;"(RED>f?"J: 

Z 


110 IF A =88 THEN PRINT " (CLR,CYAN>";CHR*<12) : SLO 



=10: PU=0: GOSUB 1290: PRINT "(LEFTJ ": IF 

r = 


W : END 

< 28N> 


2 THEN EX IT 


< J7J> 

129 IF A<49 OR FC 51 THEN F=lr 3DT0 40 

<2J8> 

549 

GOSUB 1730: IF F=1 THEN F=0: GOTO 530 


<7I0> 

130 A-A-4S 

<M 6 E> 

550 

PRINT "<H0ME,9D0WN}" TAB(35);S2*;"(RED> f?"; : 

Z 


140 ON A GOSUB 150,750,870: GOTO 30 

<D0K> 


=10: PU=0: GOSUB 1290: PRINT "(LEFT) ": IF 

F= 


ISO PRINT "(CLR,PURPLE3"J*"(CYANJ - 



2 THEN EX IT 


<VJ1> 

-I3SPACE IPU'JJW.W.W.lISPACE)- 


560 

GOSUB 1770: IF F=1 THEN F-9: GOTO 550 


<62S> 


<L0I> 

570 

PRINT "(HOME,11DOWN)” TAB(35):S2t;”CREDJB”; 

: 


160 IF F=l THEN PRINT " (HOHE) " ; TAB(63J Ft; F=0 

< RH 8 > 


Z=10: PU=0: GOSUB 129ö: PRINT " ILEFT) ": IF 

F 


170 PRINT AUf+CHRt(27)+"Q" 

<TIM> 


=2 THEN EX IT 


<DPA> 

ISO PRINT Dt;-1IGREEN,2SPACEISEUEINSABEN" 

<LT0> 

3B0 

GOSUB 1810: IF F=I THEN F-0! GOTO 570 


< 6 MT> 

190 PRINT Dt;"2 IGREEN,2SPACE)£RGAENZUNGEN” 

<OCJ> 

590 

GOSUB 1920: IF F=1 THEN F=0: GOTO 490 


<TNH> 

200 PRINT MM* 

t OHV > 

4.00 

GDGLID 1050 


<J3P> 

210 Z=l: PU»1: PRINT "(HOME,3DCWN)" TAB(13)"(RED! 


610 

LOOP UNTIL T =6 


<C5J> 

0";: GOSUB 1290: A=ASC(B*) 

< 0 OF > 

620 

T»li MO=MOM 


<793> 

220 IP A=B 8 THEN RETURN 

<K6M> 

63C 

LOOP UNTIL (MO® 13 OR F-2) 


<NI3> 

230 IF A<49 OR A>39 THEN F=1: GOTO 160 

<U25> 

640 

IP F-2 THEN FOR 1=1 TO 4: S(K,I>=0: NEXT I: 

p 


240 A«A-4B 

<64E> 


= 0 


<6I3> 

250 ON A GOSUB 260,350: GOTO 150 

<L14> 

650 

REM MONATSUEBERSICHT BERECHNEN »»* 


< G A1)' 

260 REM •«» EINOABEN NEU 

< 11 A> 

660 

FOR 1=1 TO 12 


<Q4V> 

270 PRINT "<HOME,17DOWN1" TAB(20)"IRED,CTRUF0>£AT 


670 

FOR L=l TO 3c R(I,L)=0: NEXT L 


<70D> 

EN IM HAUPTSPEICHER WERDEN GELOESCHT !”*CHR»( 


6 Q 0 

FOR J-l TO 5. K>(I-1>»3+J 


<MOB> 

27) 

<FR3> 

699 

IF S(K,1><>0 THEN BEGIN 


<60E> 

2B0 FOR 1-1 TO 601 FOR J=1 TO 7; S(I,J)-Oi NEXT J 


700 

R(I,l>-R(I,l)4S(K,5>: R(I,2>=R(1,2>»S(K,3>: 

R 


J NEXT I 

<PGU> 


(1,3)=R(1,3)+S <K,4) 


< 110 > 

290 PRINT " CHOME , 1 7D0WN, GREEN3 2/mHRE5ZAHL (2SPACE ,C 


710 

BEND : ELSE IF J=1 THEN GOTO 740 


<ND 8 > 

YAN> —> CRED)B"+CHRt(27)+"0"|[ Z*4i PU-I: GO 


720 

NEXT J 


<BH5> 

SUD 12901 PRINT » IF F-2 THEN RETURN ; ELB 


730 

R(1,3>-1NT(R(I,3)/R(1,2)»C*1O)/(C*10>: R(I, 

2 ) 


E BEGIN 

<VM0X 


-INT(R ( 1,2)/R < 1,1 ) »C*C>/C 


<B9I > 

300 J*=B* : I»LEN ( Jt) 

<VIB> 

740 

NEXT I: RETURN 


<S82> 

310 IF I<4 THEN J»=Jt4LEFTt(SPt,4-l> 

<P7E> 

750 

PRINT " <CLR,PURPLE )"J t" {CYAN ) - 



320 BEND 

<APE> 


-ospace ) auÄfiajtayÄnajiL c2space ) - 

— 


330 PRINT " C2D0WN,GREEN>START iM (4SPACE.CYAN) — > 





<U1L> 

CREDIff 1 ':: Z-10: PU-0: GOSUB 1290; IF F-2 THE 


760 

IF F-l THEN PRINT " CHOME>" ) TAB(53) ;” {CYAN)- 

_ 


N Jt-"9999" : RETURN : ELSE KM-INT(B#C)/C 

< 8 LR> 


-”:Ft: P=0 


<FN 8 > 

340 MO-1 t T-l. GOSUB 460. RETURN 

<SQR> 

770 

IF F-3 THEN F=0: PRINT " {HOME) "; TAB(33) ;" (CTR 


350 REM »*» ERGAENZUNGEN **# 

< IOB> 


L+O.RED) BRÜCKER NICHT ANSPRECHBAR" 4 CHRt(27) * 


360 IF 5(60,1)*'-0 THEN PRINT " {HOME, 17DOWN5 " TAB ( 



" 0 " 


<5EG> 

20)"IRED.CTRL+OlfUER !CYAN) ” ; Jt; ” (RED) IST KE 


700 

PRINT AU*'CHR*(27)+"Q" 


<5HM> 

INE EINGABE MEHR MOEGLICH ' "+CHR*(27)+"0": SL 


790 

PRINT Dt; ”1 (GREEN, 2SPACE)aRUCKAUSGABE” 


<PG7> 

EEP 5: RETURN 

< 7J4 > 

80O 

PRINT Dt{"2 (GREEN, 2SPACEJJ1ILOSCHIRMAUSGABE" 


< 8 NN > 

370 T=61 

<40K> 

810 

PRINT HM* 


<VPV> 

•3S9 DO 

\ UNR > 

820 

Z=li FU=l: PKINT "(H0ME.3D0WN)" TAB(13)"<RED) 


390 T=T-1 

<8T9> 


5”:: GOSUB 1290: A-ASC(Bt) 


<SJV> 

4O0 LOOP UNTIL (S(T,1)< >0 OR T=0) 

<20P> 

830 

IF A=08 THEN RETURN 


<HE3> 

410 IF T=0 THEN GOSUB 260: RETURN i REM »«« NEUEI 


840 

IF A<49 OR A>50 THEN F-l: GOTO 760 


<R69> 
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8S0 D=A-48l IF 0=1 THEN CLOSE 3: OPEN 3,4,7: CLOS 
E 3: IF ST<© THEN F=3: SOTO 770 
860 BOSUB 2310: SOTO 750 

870 PRINT "CCLR,PURPLE)"Jt"CCYAN) - 

-C3SPACE ) flLMJ.T.TAN.0.PJLIIAT.1.0j<rjt C3SPACEI— 


BBO IF F=1 THEN PRINT "[HOME)"iTAB(32)"CCYAN)- 

--";Ft: F=0 

070 IF F=3 THEN F=0: PRINT " CHQME)" : TAB(52) | " {CTR 
L+0,RED; ELOPPY S NICHT ANSPRECHBAR 11 ‘CHRtC 27) 

< ,Q„ 

900 PRINT AUt+CHR*(27)+"Q" 

910 PRINT Dt;"1CGREEN,2SPACE)GESPEICHERTE DATENFI 
LES ANZEIGEN" 

920 PRINT Dt-, " «UP,3SPACE,GREEN) (EINGESCHRAENKTES 
DIRECTORY)" 

930 PRINT Dt;"2<GREEN,2SPACE3^ATEN EINLESEN" 

940 PRINT Dt:"3CGREEN,2SPACEI5ATEN ABSPEICHERN" 
93e PRINT HM* 

960 Z»l: PU-ll PRINT "(HOME,3D0WNI" TAB(13)"(RED) 
ET;: GOSUB 1290: A=ASC(BT) 

970 IF A=S8 THEN RETURN 
980 IF A<49 OR A>51 THEM F-l: GOTO 880 
970 CLOSE 3: OPEN 3,8,3: CLOSE 3: IF ST<0 THEN F- 
3: GOTO 890 
1000 0=A-4B 

1010 ON A GOSUB 2000,2050,2150: GOTO 870 
102O REM *** INITIALISIERUNG **# 

1030 FAST : DIM S(60,7),R(12,3),M(12),Mt<12),B(3, 
!2>,B*(3>! J»="9999": F=0: C=100 
1040 Bt (1) Bt (2) HB" 1 B*C3>="#. «##": 

Dt=" I2D0WN,1BSPACE,CYAN>" 

105O HMt=Dt*" X CGREEN, 2SPACE) 8AUPTMENUE " 

1060 Ft«"CCTRL+O,REDI EALSCHE AUSWAHL"iCHRt(27)*" 
O" 

1070 AUt="£2D0WN,CYAN)AUSWAHL ===> '• 

108O SPt="C30SPACE>" 

1090 Lt="CHOME,16D0WN)" 

1100 Sl*="C2SPACE.2LEFT)" 

1110 S2*="C10SPACE,10LEFTI” 

1120 RESTORE 

1130 FOR 1 = 1 TO 12: READ MU): NEXT I 
1140 FOR 1=1 TO 12: READ M*!I>: NEXT I 
1150 DATA 31,29,31,30,31,30,31,31,30,31,30,31 
1160 DATA "ÜANUAR","EEBRUAR","AAERZ","APRIL","flAI 
" , "LUNI" , " JJJLI " , "AUGUST" , "SEPTEMBER" , "fiKTOBE 
R” , "iSOVEMBER" , "ffiZEMBER" 

1170 SLOW : PRINT "(CLR,3D0WN,CYAN)" SPCI20): Xt= 
"EAHRTENBUCH-PROGRAMM": GOSUB 1220 
1180 PRINT "«DOWN,CYAN!" SPCI20): Xt="(W) WOLLI 
SOFTWAREC3SPACE)19B6": GOSUB 1220 
1190 PRINT "C2D0WN,GREEN!“ SPCI20): Xt="***S": GO 
SUB 1220: St="(GREEN,2D0WN)"+X* 

1200 GOSUB 2550: RETURN 
1210 REM *** TITEL SOUND *** 

1220 FOR 1=1 TO LEN(Xt) 

1230 XTt=MlDt<Xt,I,l) 

1240 IF XTtO" •' THEN PRINT " CCTRL+Q1"; 

1250 PRINT XTt: 

1260 FOR T=1 TQ 50: NEXT T 
1270 NEXT I: PRINT 
1280 RETURN 

1290 REM ««* ZAHLENEINGABE LESEN »** 

1300 Y=@: Bt="": F=0 
1310 DD 

1320 GET KEY At 
1330 A=ASC(At> 

1340 IF A=13 THEN BEBIN 

1350 IF Z=2 THEN B=VAL(Bi): PRINT " 1L.EFT) "s: PRI 
NT Lt;SPt;SPt:l EXIT 

1360 IF Bt="" THEN GOTO 1320: ELSE B=VAL(Bf): PRI 
NT "CLEFT> "ji PRINT LtlSPtjSPtj: EXIT 
1370 BEND 

1380 IF A=20 AND Y>0 THEN BEBIN 
1390 IF RIGHTt(Bt,1)=CHRt(46) THEN PU=0 
14O0 PRINT "C2LEFTIB ILEFT)"j: V-Y-l: Bt=LEFTt(Bt 
,Y)l GOTO 1320 
1410 BEND 

1420 IF A=46 THEN BEGIN 

1430 IF PU=0 THEN PU«1: GOTO 1530 

1440 GOTO 1320 

1450 BEND 

1460 IF A=88 AND Y=0 THEN BEBIN 
1470 Y=1: Bt="X“: PRINT "CLEFT)XS"; 

1480 GET KEY At: A=ASC(At): IF AO!3 AND A< >20 TH 
EN GOTO 1480 

1490 IF A*I3 THEN F=2: PRINT "ILEFT) PRINT Lt 
:SPt:SPtn EXIT 
1500 GOTO 1330 
1510 BEND 

1520 IF A>47 AND A<58 THEN BEBIN 
1530 Y-Y+ll IF Y>Z THEN Y=Z: ELSE PRINT "CLEFT) 
At("(J"i: Bt=Bt+At 
1540 BEND 
1550 LOOP 
1560 RETURN 

1570 REM *»» EINGABEBILD »»» 

1580 PRINT "(CLR.CYAN)- 


1590 PRINT SPC(11)"«DOWN,GREEN)flATUMC3SPACE,CYAN 
)===> C6SPACE, GREEN )[ ICYAN)";Mt( MG > J “ ";Jt;"< 
GREEN)I" 


<6P3> 

<A2E> 

<DR5> 

<GCK> 


<U4E> 

<S5M> 

■ 4A7 > 

<E06> 
< UGO > 
C013> 
.•U90) 

•C 4QV > 
CSU5) 
:J6F> 


CAPS) 
'■'ACE '■ 
■FUA: 

•C3KE> 

-GMH> 
‘P41 > 

<1S1> 


<0D3> 
<3PI> 
<7KN > 
CDGI> 
< IPK) 
<JN6) 


1600 PRINT SPC(II)"(3D0WN,GREEN»DI-STAND CIISPACE, 
CYAN)===> " 

1610 PRINT SPC(11)"{DOWN,GREEN)BETANKTE LITERC5SP 
ACE,CYAN)—»> " 

1620 PRINT SPC(ll)"fD0WN,GREEN)J(0STENt2SPACE)(2n) 

£7SPACE,CYAN>===> " 

1630 PRINT SPC<11)"CGREEN)CIANKFUELLUNG) 

1640 PRINT "C8D0WN)";: FÜR 1=1 TO 78: PRINT "B";: 
NEXT : PRINT 

1650 PRINT "C3RIGHT,D0WN)X CCYAN)»= >CGREEN) ENDE 
(DER EINGABE)" 

1660 RETURN 

1670 REM *** DATUM ZUWEISEN *** 

1680 B=INT(B): S(K,1)«B 

1690 IF B)M(MO) THEN PRINT Lt:TAB(20)"CCTRL+O.RED 
)DATUM ZU GROSS"+CHRt(27)+ "D";: F«1 
1700 IF TM AND B<S(K-1,I) THEN PRINT Lt; TAB (20) " 
CCTRL*0,RED)DATUM ZU KLEIN"+CHRt(27)+ "0”;: F 
= 1 

1710 IF B=0 THEN F-3 
1720 RETURN 

1730 REM *•» KM-5TAND ZUWEISEN ««» 

1740 B=INT(B*10)/1O: S(K,2)=B 

1750 IF BC-KM THEN PRINT Lt;TAB(20)"(CTRL+O,RED)L 
M-S.TAND ZU KLEIN"+CHR*(27)+ "0";i F=1 
1760 RETURN 

1770 REM *** LITER ZUWEISEN *** 

1700 B=INT(B»C)/C: S(K,3)=B 

1790 IF B=0 THEN PRINT Lt;TAB(20) " CCTRL+0,RED>GET 
ANKTE LITER ZU KLEIN"+CHRt(27)+ "0" ;: F=1 
1800 RETURN 

1810 REM »«» DM ZUWEISEN »** 

1820 B=INT(B+C)/C: S(K,4)=B 

1830 IF B=0 THEN PRINT Lt;TAB(20)"CCTRL+O.RED)ÜOS 
TEN (SA) ZU KLEIN"+CHRt(27) +"0" ;: F=1 
1840 RETURN 

1850 REM «»• BERECHNUNG **» 

1860 T=T+1 

1B70 S(K,5)=1NT((S(K,2)-KM)*10)/10: REM *** BEF. 

KM «** 


CVDM) 
<15B> 
< 6BR > 
<VVK> 


<LGD> 

6 <MS3> 

C191 > 

<EAH> 
<9CH> 
<2C9> 
<SOA> 
CD VC) 
<S7F> 
<E4G> 
<LAR> 

< APQ> 
<8C7> 
<0C1> 
<I62> 
<JEF> 
<6GD> 

< QAR > 
<DJC> 

<KED> 

<T07> 

<DPU> 

< VCH) 
<U60> 

<2PN> 

<DTU> 

<FBB> 

<P3K> 

<30G> 

<TVU> 

<V4M> 

< 788 > 

<0J2> 

<90U> 

<000> 

<5SU> 

<DUC> 

<UVG> 

<HUE> 

<S7P> 

<8C7> 

<0CI> 


O X.I 


1880 KM=S(K,2> 

1890 S(K,6)=INT(S(K,3)*C*C/S(K,5))/C: REM »«* VER 
BRAUCH / 100 KM «*» 

1900 S(K,7)=INT(S(K,4)/S(K,3)*C*10)/(C*10): REM » 
** DM / LITER *** 

1910 RETURN 

1920 REM »** EINGABEBESTAETISUNG *** 

1930 PRINT Lt;TAB(11);"CGREEN)R CCYAN)==> (GREEN) 
Eil,GABE RICHTIGC6SPACE)F CCYAN)==>CGREEN) £I 
NGABE WIEDERHOLEN": F=0 
1940 DO 

1950 GET KEY At 

I960 IF Af="R" THEN F=0: EXIT 

1970 IF At="F" THEN F=l: EXIT 

19B0 LOOP 

1990 RETURN 

2000 REM ««» DIRECTORY »*♦ 

2010 CLOSE 15: OPEN 15,8,15,"I": GOSUB 2500: CLOS 
E 15: IF F=1 THEN F=0; RETURN 
2020 WINDOW 49,10,79,24,1: PRINT "CCYAN)";: DIREC 
TORY "DATEN*" 

2030 GOSUB 2500: GOSUB 2530 
2040 F=0: WINDOW 0,0,79,24: RETURN 
2050 REM *** DATEN EINLESEN »** 

2060 PRINT "CCLR.CYAN)- 

-(3SPACE)PAT£ft UHkELLH C3SPACE )- 


2070 

2080 

209O 

2100 

2110 

2120 

2130 

2140 

2150 

2160 


PRINT Dt"C4LEFT,GREEN)X0N WELCHEM ÜAHR SOLLE 
N DIE SÄTEN EINGELESEN WERDEN ?": PRINT AUt: 

S2*;"CREDllTj, Z-4: PU-li GOSUB 1390, IF F-2 

THEN RETURN 

J2t=Bt: l=LEN(Lt): IF I<4 THEN J2t=J2t+LEFTt 
<SPt,4-l> 

CLDSE IS: OPEN 15,8,15,"!": GOSUB 2500: CLOS 

E 15: IF F=! THEN F=0: GOTO 2060 

DCL09E #2: DOPEN #2, "DATEN"+J2*! GOSUB 2500! 

IT F-l THEN F=0: DCLOSE #2t GOTO 2060 
PRINT IHOME,17D0WN>" TAB(20)"(RED,CTRL+0) JJA 
TEN FUER CCYAN)J2*|"(RED) WERDEN GELESEN ' 
"+CHR* (27) + "0" 

FOR 1-1 TO 60: FOR J-l TO 7x INPUT#2,S<I,J>» 
NEXT Js NEXT I 

FOR 1=1 TO 12i FOR J-l TO 3i INPUT#2,R<I,J>i 
NEXT Js NEXT I 
DCLOSE #2: J#=J2*t RETURN 
REM «** DATEN ABSPEICHERN **« 

PRINT " (CLR.CYAN)- 

- C35PACE ) H/UJL.H C3SPACE)- 


2170 PRINT D-*"CGREEN,4LEFT).SOLLEN DIE BATEN UNTER 
CCYAN)"J>" CGREEN)ABGELEGT WERDENC2SPACE>(J 
/N> C2SPACE)?" 

210O DO 

2190 BET KEY A*t A*ASC(A«) 

220O LOOP UNTIL <A=74 OR A=70> 

2210 IF A=7B THEN BEGIN 

2220 PRINT D*; " CCYANJjLAHRESZAHL ===> "; S2*j " CRED) 


<SM8> 

<5H8> 

<FND> 

<QQ3> 

<0I3> 

<G6K> 

<807> 

< IS7> 
<3LB> 

< 1 MO > 


<U4Q> 

<T1H> 

<8C7> 

< 0C1 > 
<7EP> 

<H3N> 

<847> 

< 1C5> 
<6E2> 


<0F9> 

< 9K.7 > 
<7CT> 
<10U> 

<AVC> 

<9S7> 

<6CP> 

<7GF> 

< 0HQ> 
<NU3> 

<5VD> 

< 35N > 
<PI7> 
<74S> 


<529> 

<2CB> 

< 28D > 
<JE2> 
<363> 
<8D9> 
<P 27 > 
<040> 

<0MC> 

< 6M6 > 
<BC6> 
<K32> 
<IC5> 


<mog; 


<tul; 

<762> 

< 2DL > 

< AMS> 

<103> 

<HSP> 

<5M0> 

<A6F> 

< 1S7> 

<CFF> 


< 95F > 

< IEB> 
<908> 
<FAP> 
<D79> 


< 2 dh; Listing 1. »Fahrtenbuch 80« verschafft Ihnen Überblick 
zu Benzinverbrauch und Kosten. Bitte mit dem 
<emj> Checksummer 128 (Seite 158) eingeben. 
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ANWENDUNG 


C128 


£?"i s Z=4: PU=1: BQSUB 1270: IF F=2 THEN RETU 
RN 

2230 J2*=Bf: I=LEN(L*>: IF I<4 THEN J2*=J2*+LEFT* 
(SP*.4-1) 

2246 BEND : ELSE J2*=J4 

2250 CLDSE 15: OPEN 15,8,15,"I": GOSUB 2500: CLOS 
E 15: IF F=1 THEN F=0: GOTO 2140 
2240 DCLOSE »2: DOPEN #2, "@DATEN"-*-J2*,W: GOSUB 25 
00: IF F=1 THEN F-0: DCLOSE 112: GOTO 2160 
2270 PRINT "{HOME,17D0WN)" TAB(20)"(RED,CTRL*a)J3A 
TEN WERDEN UNTER (CYAN)"iJ2*|"(RED) ABGELEGT 
! "+CHR* (27) + "0" 

2280 FOR 1=1 TO 60: FOR J=1 TO 7: PRINTH2.S<I,J>i 
CHR»(13)|: NEXT J: NEXT I 
2290 FDP 1=1 TO 12: FOR J=1 TO 3: PRINT*2,R(I,J)i 
CHR*<13)jl NEXT J: NEXT I 
2300 DCLOSE «2: Jt=J2*: RETURN 
2310 REH •»* AUSGABE *«• 

2320 PRINT " (CLR,PURPLE)" J*"(CYAN) - 

-C3SPACE ) fl.U- S .CA W :. C3SPACE)- 


2330 IF F=1 THEN PRINT " {HOME) '• S TAB (63) I F«: F=0 
2340 PRINT AU*+CHRI(27)+"0" 

2350 PRINT D*|"UUSGABEMEDIUM ===> tREDl*'I : IF D=1 
THEN PRINT ".BRÜCKER": ELSE PRINT "BILDSCHIP 
M" 

2360 PRINT D*l"1'GREEN,2SPACE)flONATSUEBERSICHT" 
2370 PRINT D*i "2 CGREEN,2SPACE>GEFAHRENE AMI7SPACE 
) (AALLEND IAGRAMM) 11 

2380 PRINT DT:"3tGREEN,2SPACE1ÜERBRAUCH/100 AHI3S 
PACE)(SALKENDIAGRAHHI” 

2390 PRINT DJj"4{GREEN,2SPACE>flDSTEN/AITERC7SPACE 
)(BALKENDIAGRAMM)” 

2400 PRINT DF;"X <GREEN,2SPACE>AUSGABEAUSWAHL" 

2410 Z=l: PU=1: PRINT •• IH0HE,3D0WNJ" TAB (13) " (RED 
>B"s: GOSUB 1290: A=ASC(8*> 

2420 IF A=38 THEN RETURN 

2430 IF A<49 DR A>52 THEN F=l: GOTO 2330 

2440 W=A-48: CLOSE 3: OPEN 3,4,7: CLOSE 3: IF ST: 

0 AND D=1 THEN F=3: RETURN 
2450 IF W=1 THEN BEGIN 

2460 PRINT "(CLR,GREEN)flTART flONAT (CYAN)===) {RE 
D5S"|< Z=2: PU=1: GOSUB 1290: IF F=2 THEN B= 
-1: F=0 

2470 IF B>0 AND B<13 THEN MO=B: GOSUB 3020: ELSE 
IF BO-1 THEN F=t 

2480 BEND : ELSE W=W-1: GOSUB 2590 
2490 GOTO 2320 

2500 REH »»» DISCFEHLER ? «■»» 

2510 IF DSO0 THEN WINDOW 49,17,79,24,1: PRINT ■{ 
RED,CTRL+Q,5SPACE)BISK - £EHLER"*CHR*(27>+"0 
PRINT "CCYAN,2D0WN)"DS*: F=l: GOSUB 2530: 
WINDOW 0,0,79,24 
2520 RETURN 

2330 REH *»* STERNCHEN *** 

2540 PRINT S* 

2550 DO 

2560 GET KEY Al: A=ASC(A*) 

2570 LOOP UNTIL A=13 
2580 RETURN 

2570 REH *»« BALKENDIAGRAMME »** 

2600 IF D=I THEN P!="TTT3"': V=34: ELSE P1="(RVS0N 
, 4SPACE, RVQFF ) ": V=16 

2610 PRINT "(CLR)"D*"{CTRL*0,RED).»)LKENDIA6RAMME 
WERDEN BERECHNET !"+CHR*<27)+"0": FOR 1=1 TO 
3: B< 1,0) =0.001: NEXT I 
2620 FOR 1=1 TO 3: FOR J=1 TO 12 
2630 B(I,J)=R(J,I): IF B(I,J))B(I,0) THENB(I,0)= 
8<I,J> 

2640 NEXT J: NEXT I 
2650 FOR 1=1 TO 3: FOR J=I TO 12 
2660 B(l,J) = INT((B(I,J)/B(I,0))»V-*.5): IF B(I.J)= 
I THEN 6<I,J>=2 

2670 IF B(I,J)=0 THEN B(t,J)=-2 
26B0 NEXT J: NEXT I 
2690 DO 

2700 IF D=t THEN BEGIN 

2710 PRINT "(CLR>" SPC(6)"(CYAN)SEITE ":W|" IPURP 
LE)"(J1| " (GREEN) "| 

2720 IF W=1 THEN PRINT "GEFAHRENE AM / flONAT": EL 
SE IF W=2 THEN PRINT "VERBRAUCH (L) t 100 AM 
"! ELSE PRINT "ADSTEN (flfl) / A.ITER” 

2730 CLOSE 1: OPEN 1,4,7: CMD 1: FOR 1=1 TO 79: P 
RINT NEXT : PRINT 

2740 BEND 

2750 PRINT "{CLR)" SPCI6)”CCYANIAEITE "iWi"(2SPAC 
E,PURPLE)"|J1|"{GREEN) 

2760 IF W=1 THEN PRINT "BEFAHRENE AM / flONAT": EL 
SE IF W=2 THEN PRINT "VERBRAUCH (LI / 100 AM 
": ELSE PRINT "ADSTEN (flfl) / 1.1 TER" 

2770 PRINT : PRINT CHR*(142)1: IF D=1 THEN CLOSE 
1: CLOSE 6: OPEN 1,4: OPEN 6,4,6: PRINT«6,CH 
RI(22): CMD I 

2780 FOR l=V+2 TO 1 STEP -1 
2790 PRINT SPC(6)|: FOR K=1 TO 12 
2800 IF B(W,K)=1-2 THEN PRINT ”{CYAN)"i: PRINT US 
ING BKW) |R(i;,W) i : PRINT * " 

2810 IF B(W,K)=I-I THEN PRINT "(YELLOW) ERJBB "l 
2820 IF B(W,K)=1 THEN PRINT "(YELL0W)H(3SPACE)fl 
U"S 

2830 IF B(W,K)>=I + 1 THEN PRINT "{GREEN)";P*i"{YEL 
LOW) S"; 

2840 IF B(W,K)(1-2 THEN PRINT "{6SPACE)"l 


<6L3> 

<4UD> 

<KTD> 

<3TJ ) 
<NCS> 

<BCK> 

<Q34> 

<997) 

:A6F> 

<IS7> 


23T) 
<7V1 : 
<3TM> 


<Q3I > 

<K8C> 

1 1?A> 

<SSO' 

:gve> 

<3GG, 

<JOF> 

eso: > 

'84R; 

<5EI> 

<G00> 


<DHQ> 

<D07> 
<68U> 
< 0GS > 

I ÜK 


<94J) 

<8S7> 

•2C9> 

<slp> 

<NEV> 
<EOK> 
<CLK> 
<887 > 
<0S3> 

•X9U 


<MHI 

<TN0' 

< 100 > 

eono: 

<1KG> 

<GPT> 

<SIS> 

<2A0> 

<TFN> 

< J40> 

< 2R5 > 


<ER6) 
< HOE > 


<ONV) 

<FU3> 

<2MA> 

<KI0> 

<419) 


<PP6> 

<HKB> 


2850 NEXT K: PRINT : NEXT I: IF D=1 THEN PRINT46, 
CHR*(36): CLOSE 6: CLOSE l: OPEN 1,4,7: CMD 
1 

2860 PRINT SPC(6)i: FOR 1=1 TO 73: PRINT “{LIG.BL 
UE)S"i: NEXT I: IF D=! THEN PRINT SPC(l): EL 
SE PRINT CHR*(14) 

2870 PRINT SPC(6)M*(1) SPC(6)M*(3> BPC(B)M*(5> SP 
C(8)M*(7) SPC(6)M*(9) SPC(4)M*(11) 

2880 PRINT SPC(11)M*(2) SPC(6)M*<4> SPC(7)M*(6) S 
PC (7 > M* (8 > SPC (6) M* (IO) SPC‘(5)M*(12) 

2890 IF D=1 THEN FOR 1=1 TO 79: PRINT "-"|1 NEXT 
: PRINTttl: CLOSE 1: PRINT CHR* (14) 

2900 FOR 1 = 1 TO 79: PRINT "{GREEN}*"i: NEXT I: PR 
INT : VS=W-l-INT((W-l>/3>«3: IF VS-0 THEN VS 
=3 

2910 NS=W*1-INT((WtI>/ 3>*3l IF NS=0 THEN NS=3 
2920 PRINT " (4SPACE,GREEN)X {CYAN)==> (GREEN)flUSG 
ABEMENUE C6SPACE >- {CYAN>==> {GREEN) AE ITE "|V 
Ss"(6SPACE)* (CYAN>»“> (GREEN)SEITE "iNSl 
2930 DO 

2940 BET KEY A*: A-ASCIA*) 

2950 LOOP UNTIL (A=8B DR A=43 OR A=45) 

2960 IF A=8B THEN EX IT 
2970 IF A=43 THEN W=W*1: ELSE W=W-1 
2980 W=W-INT(W/3)»3 
2990 IF W=0 THEN W=3 
3000 LOOP 
3010 RETURN 

3020 REM **»» M0NATSUE8ERSICHT »»»* 

3030 DO 

3040 K=(M0-1>*5: IF D=1 THEN BEGIN 
3050 PRINT "(CLR,CYAN)" SPC(10);> PRINT USING "Ult 
#######"iM*(MO)i: PRINT “ (PURPLE)" J J*: CLQS 
E 1: CLOSE 6: OPEN 1,4,7: OPEN 6,4,6: PRINT# 
6,CHR*(24): CMD I 

3060 FOR 1=1 TO 79: PRINT : NEXT : PRINT : PR 
INT : PRINT 
3070 BEND 

3080 PRINT "(CLR,CYAN)" SPC(10);: PRINT USING "## 
#######";M*(MO);: PRINT “ (PURPLE)"iJ* 

3090 PRINT : PRINT SPC<10)"(GREEN)IAG(CYAN)" SPC( 
13) i: FOR 1=1 TO 5: L=K+X: IF SIL,1)00 THEN 
PRINT USING "##."|S(L,l)j: ELSE PRINT "{3SP 
ACE)"; 

3100 PRINT SPC(7);: NEXT I 

3110 PRINT : PRINT : PRINT SPC(10)”(GREEN)AM-flTAN 
D(CYAN)" SPC(5)j: FOR 1=1 TO 5: L=K+I: IF S( 
L,2)<>0 THEN PRINT USING "#######" S (L,2); : 
E’*r RINT "{7SPACE)"; 

3120 PRINT SPC(3);: NEXT I 

3130 PRINT : PRINT : PRINT SPC(10)"(GREEN)GEF.AM( 
CYAN)" SPC(7)l: FOR 1=1 TO 5: L=K+I: IF SIL, 
5)00 THEN PRINT USING ”#######" i S (L, 5) ;: EL 
SE PRINT "(7SPACE)"J 
3140 PRINT SPC(3);: NEXT I 

3150 PRINT : PRINT : PRINT SPC(10)"(GREEN)GET.ilT 
ER{CYAN)" SPC(5)i: FÜR 1=1 TO 5: L=K+I: IF S 
(L,3)O0 THEN PRINT USING "###. #B"lS (L,.3) ;: 
ELSE PRINT "(6SPACE)"; 

3160 PRINT SPC(4)}: NEXT I 

3170 PRINT : PRINT : PRINT SPC(10)"(GREEN)ADSTEN 
(SEDCCYAN)" SPC (3) l : FDR 1 = 1 TO 5: L=K+I: IF 
SIL,4)00 THEN PRINT USING "###.##" i S (L, 4) ; 
: ELSE PRINT "(6SPACE)"i 
3180 PRINT SPC(4)i : NEXT I 

3190 PRINT : PRINT : PRINT SPC(10)"(GREENISERBR./ 
100AM CCYAN)" SPC (2) |: FOR 1 = 1 TO 5: L=K-M : I 
F SIL,6)00 THEN PRINT USING “###.##" S S (L ,6) 
i: ELSE PRINT "(6SPACE)"i 
3200 PRINT BPC<4)|1 NEXT I 

3210 PRINT : PRINT SPC (10) “ (GREEN)IN A.ITER": PRIN 
T : PRINT SPC(IO) "AflSTEN/A.ITER{CYAN)“ SPC(2) 
i: FOR 1=1 TO 5: L=K+I: IF SIL,7)00 THEN PR 
INT USING "H#.###"lS(L,7)i: ELSE PRINT "{6SP 
ACE)"1 

3220 PRINT SPC(4>l: NEXT I 
3230 PRINT : PRINT SPC(10)"(GREEN)IN Hfl" 

3240 PRINT ! PRINT : PRINT SPC(10)"(GREEN,CTRL+B) 
flONATSUEBERBLICK:"+CHR*(27) T"0" : IF D=I THEN 
PRINT : PRINT 

3250 PRINT : PRINT SPC(10)"(GREEN)GEF.AMICYAN,4SP 
ACE)"lt PRINT USING "#######" , R(MO,I)i: PRIN 
T " (GREEN,3SPACE)ADSTEN/A.ITER (CYAN)"i: PRIN 
T USING "#M.###"iR(MO,3); 

3260 PRINT " (GREEN,4SPACE)Ä£ERBR. /100AM (CYAN)"l : 
PRINT USING "#«#.##"iR(MO,2): IF D=1 THEN BE 
BIN 

3270 FOR 1=1 TO 5: PRINT : NEXT : PRINT SPC110)"I1 
flLLLEA: ": FOR 1=1 TO 13: PRINT : NEXT : FOR 
1=1 TO 79: PRINT ”-“i: NEXT : PRINT : PRINT« 
1: PRINT#6,CHR*(36): CLOSE 1: CLOSE 6 
.3280 BEND 

3290 PRINT "(GREEN)"i: FOR 1=1 TO 78: PRINT "B“n 
NEXT : PRINT 

3300 PRINT "(UP)"AU*lS2*|"(RED)B"l: Z=2: PU-1: GO 
SUB 1290: IF F=2 THEN EX IT 
3310 IF 8<13 AND B>0 THEN MO=B: ELSE M0=M0T1: IF 
M0=13 THEN M0=1 
3320 LOOP 
3330 RETURN 


Listing 1. (Schluß) 


<N0M) 


<B56> 

CTS8> 

(P71> 

(9R9) 

< HK A > 

<spt: 


<8CT> 
19D7 > 
<K3S> 
<ORD> 
<925> 
CT50) 
<0G6> 
<8KI> 
<049) 
<067> 
<1K6> 
<VFV> 
< JTA> 


<IV0> 

< OHO 
<LUU) 

< N5T > 


<0TO> 

<UMO> 


<DDN> 

--S6G> 


< IG1 > 
<Q68> 


< JTQ> 
<000> 


<PRL> 

<MRQ> 


<RPQ> 
*■OOV?> 


<BD1> 

<00B> 

<3FK> 


<89A> 


<3E5> 


<OVM> 


<34N> 

<PRE> 

<FOL> 

<D8K> 

<SUB> 

<G69> 

<0E7> 
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Komfortable 

DiskeHenverwoltang 


Bringen Sie Ordnung in Ihre Diskettensammlung 
mit Disk-Manager 128. Mit vielen Suchkriterien, 
einer sinnvollen Einteilung nach Programmarten 
und übersichtlicher Druckerausgabe wird die 
Archivierung Ihrer Programm-Disketten in Zukunft 
zu einem Kinderspiel. 

D isk-Manager 128 arbeitet im 80-Zeichen-Modus des 
C128 und verarbeitet sowohl das 1571- als auch das 
1541-Diskettenformat. Das Programm kann in vielen 
Variationen suchen, Listen drucken und Daten ändern. Es 
ist durch die komfortable Menüsteuerung leicht bedienbar. 
Das Programm besitzt eine universelle Druckeransteue- 
rung und läuft mit praktisch jedem Drucker, es muß aber 
unter Umständen die Sekundäradresse in Zeile 150 (Listing 
2) entsprechend angepaßt werden. 


PflTEH AEHPERN 


DISKETTE KL : 2 


SEITE : fl 


FREIE BLOECKE : 44 

- on 


HDE0UCHE PROCRAMTEN 


(81) ACTION-SPIEL 
(02) STRATEGIE-SPIEL 
(83) GESCHICKL.-SPIEL 
(04) ADUENTURE-SPIEL 
(05) SPORT-SPIEL 
(06) SIMULATOR-SPIEL 


(07) SPIEL (13) MUSIK PRO 

(08) TEXTUEPARBEITUHG (14) MUSIK OEHO 
(09) DATEIUERHALTÜNO (15) GRAFIK PRO 

(10) k'OPIERPROORAHH (16) GRAFIK PEMO 

(11) PISKPR0CRAMM (17) SPRACHE 

(12) MATHEMATIK PRO (18) - 


LfiEHGE 


ART 


TVP 


WORLD DATEI 


DATEIUERHALTÜNO PRO 


TVPEN 

(1) PRO 

(2) SED 

(3) REL 

(4) USR 

(5) DEL 

( 6 ) ??? 


HOLLEN SIE DIE DIE ANZAHL DER FREIEN BLOECKE AEHDERN (J/H)? 


Bild 1. So sieht der Bildschirm aus, wenn Sie den Menü¬ 
punkt »DATEN ÄNDERN» aktivieren. 


Bitte geben Sie Listing 1 (die Laderoutine) und Listing 2 
(Disk-Manager 128) mit dem Checksummer 128 ein. Be¬ 
achten Sie bitte dazu die Eingabehinweise auf Seite 158. 
Falls Sie auf das Titelbild verzichten wollen, können sie in 
Listing 1 die Zeilen 40 bis 270 weglassen. Interessierte fin¬ 
den außerdem eine genaue Beschreibung der einzelnen 
Routinen des Programms in Tabelle 1. 


Bequeme Menüsteuerung 


Nach dem Laden und Starten verlangt das Programm 
zunächst den Dateinamen der Archiv-Datei. Geben Sie ent¬ 
weder den Namen der Datei ein, die Sie laden wollen, oder 
den einer neu anzulegenden Datei. Legen Sie Ihre Daten¬ 
diskette ein und drücken Sie < RETURN >. Wird die Datei 
auf der Diskette nicht gefunden, so bricht das Programm 
den Lesevorgang ab. 

Wenn Sie eine neue Datei anlegen wollen, so beantwor¬ 
ten Sie die Frage nach einer Neudatei mit <J> für »ja«. 
Sie befinden sich nun im Hauptmenü. Hier bieten sich die 
folgenden Wahlmöglichkeiten: 


A - DATEN SUCHEN 
B - DATEN EDITIEREN 
C - DATEN DRUCKEN 
D - DIRECTORY 
E - DISKETTENKOMMANDO 
F - PROGRAMM VERLASSEN 

Zur Anwahl der einzelnen Menüpunkte drücken Sie bitte 
die entsprechende Buchstabentaste. 

Viele Suchkriterien 


Eine Stärke des Programms sind die umfangreichen Such¬ 
möglichkeiten. 

A - DATEN SUCHEN: 

Nachdem Sie im Hauptmenü die Taste <A> gedrückt 
haben, befinden Sie sich im Untermenü »DATEN 
SUCHEN«. Hier haben Sie folgende Wahlmöglichkeiten: 
A-PROGRAMMNAMEN 
B- PROGRAMMLÄNGE 
C-PROGRAMMART 
D-PROGRAMMTYP 
E - DISKETTEN 
F - FREIE BLOCKE 
G- HAUPTMENUE 

A - PROGRAMMNAMEN SUCHEN: 

In diesem Programmteil können Sie nach beliebigen Pro¬ 
grammnamen suchen. Sie haben dazu folgende Möglich¬ 
keiten: Entweder Sie geben den Namen vollständig - also 
mit allen Leerzeichen - ein, oder nur einen Teil des Namens 
und am Ende den üblichen Joker »*«. Der Joker bewirkt, 
daß alle Programme gesucht und angezeigt werden, die mit 
den vorangegangenen Zeichen beginnen. Ausgegeben 
werden Programm, Art des Programms (Spiel, Anwen¬ 
dung, etc.), Diskettenseite und Filetyp. Dies gilt für alle 
Punkte des »DATEN SUCHEN«-Menüs. 

Beispiele: 

»OSCAR« gibt nur das Programm »OSCAR« aus 
»OS*« sucht alle Programme die mit »OS« beginnen 
»*« gibt alle Programme aus 
Nach Beendigung des Suchvorgangs gelangen Sie 
durch Drücken einer beliebigen Taste wieder in das Unter¬ 
menü »DATEN SUCHEN«. 

B - PROGRAMMLÄNGE SUCHEN: 

Das Suchkriterium in diesem Unterprogramm ist die Pro¬ 
grammlänge. Mit der ersten Eingabe gibt man die mittlere 
Suchlänge an, mit der zweiten die Abweichung nach unten 
und oben. Wird eine 0 als Suchlänge eingegeben, so 
erfolgt ein Rücksprung zum »DATEN SUCHEN«-Menü. 
Beispiele: 

Suchlänge Abweichung Wirkung 

200 0 sucht alle Programme mit der Länge 200 

200 10 sucht alle Programme mit einer Länge von 

190 bis 210 Blöcken 

C - PROGRAMMART SUCHEN: 

Hier kann nach vorher definierten Programmarten (siehe 
dazu »PROGRAMMARTEN ÄNDERN«) gesucht werden. 
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Die gewünschte Programmart wird durch Eingabe der ent¬ 
sprechenden Nummer angewählt. Anschließend werden 
alle Programme dieser Art ausgegeben. 

D - PROGRAMMTYP SUCHEN: 

Funktioniert ähnlich wie ..PROGRAMMART SUCHEN«, 
nur kann hier nach bestimmten Filetypen (PRG, SEQ, REL, 
etc.) gesucht werden. 

E - DISKETTEN SUCHEN: 

Hier werden alle Programme einer bestimmten Diskette 
ausgegeben. Geben Sie auf die Frage nach der Suchdis¬ 
kette die gewünschte Diskettennummer an. Existiert diese 
Diskettennummer nicht, so verlangt das Programm eine 
Neueingabe. Ausgegeben werden alle Files beider Disket¬ 
tenseiten und die jeweils freien Blöcke. 

Sind mehr Einträge vorhanden als es die Fenstergröße 
zuläßt, so scrollen die Einträge nach oben. Durch Drücken 
einer beliebigen Taste kann das Scrollen angehalten und 
wieder fortgesetzt werden. 

F - FREIE BLÖCKE SUCHEN: 

Dieser Programmteil gibt die freien Blöcke der in der 
Datei gespeicherten Disketten aus. Dabei können Sie die 
Mindestanzahl der freien Blöcke, ab der eine Ausgabe 
erfolgen soll, angeben. Daraufhin werden alle Disketten¬ 
seiten die die freie Blockanzahl besitzen oder übersteigen, 
angezeigt. Sind mehr Disketten vorhanden als angezeigt 
werden können, so hält das Programm zunächst an und 
fährt nach einem Druck auf eine beliebige Taste wieder fort. 

G - HAUPTMENUE: 

Diese Funktion führt einen Rücksprung zum Hauptmenü 
aus. 

B - DATEN EDITIEREN: 

Auch der zweite Punkt des Hauptmenüs ist ausgespro¬ 
chen komfortabel. Nachdem Sie im HAUPTMENUE die 
Taste <B> gedrückt haben befinden Sie sich im »DATEN 
EDITIEREN«-Menü. Hier gibt es folgende Wahlmöglichkei¬ 
ten: 

A - NACHLADE PRG MODUS AN/AUS 
B - DATEN LESEN 
C-DATEN ÄNDERN 
D-DATEN EINFÜGEN 
E- PROGRAMMARTEN ÄNDERN 
F- PROGRAMMTYPEN ÄNDERN 
G - DIRECTORY 
H - DISKETTENKOMMANDO 
I - HAUPTMENUE 

A - NACHLADE PRG MODUS AN/AUS: 

Nun zu einer besonderen Eigenschaft des Diskmanager 
128; dem »NACHLADE PRG MODUS«, den Sie in diesem 
Menüpunkt aktivieren können. 

Wenn dieser Modus eingeschaltet ist, werden Pro¬ 
grammeinträge die im Directory zwischen zwei Trennmar¬ 
kierungen (16 Minuszeichen) stehen beim Einlesen zusam¬ 
mengefaßt. Das heißt, die Blocks der einzelnen Files zwi¬ 
schen den beiden Markierungen werden addiert und unter 
dem Namen des ersten Files registriert. 

Ist dieser Modus abgeschaltet, werden alle Einträge zwi¬ 
schen Trennmarkierungen als eigenständige Objekte 
betrachtet. 

B - DATEN LESEN: 

Hier können die Daten von zu verwaltenden Disketten 
gelesen werden. Geben Sie die Diskettennummer unter 
der die Diskette verwaltet werden soll, sowie die Disketten¬ 
seite ein und drücken Sie < RETURN >. Existieren schon 
Einträge mit dieser Nummer und Seite werden diese 
gelöscht und anschließend die neuen Daten gelesen. 

Nach erfolgreichem Lesen gelangt man in das Unter¬ 


menü »DATEN ÄNDERN« das zum Ändern der gelesenen 
Daten dient. 

C - DATEN ÄNDERN (siehe Bild 1): 

Nachdem Sie Nummer und Seite der zu ändernden Dis¬ 
kette eingegeben haben, können Sie - sofern nötig - die 
Anzahl der freien Blocks im Eintrag ändern. 

Mit »A« gelangen Sie in einen Modus, in dem Sie nach¬ 
einander die verschiedenen Punkte wie Programmname, 
Länge und Art des Programms sowie Typ ändern können. 
Die einzelnen Änderungen müssen mit < RETURN > 
abgeschlossen werden. 

Mit < SPACE > kommen Sie zum nächsten Eintrag, 
<L> löscht den gerade bearbeiteten. 

Wichtiger Hinweis: Erstreckt sich ein Programm über 
mehrere Diskettenseiten, so ist es am besten, wenn Sie alle 
Teile unter dem gleichen Namen verwalten. Auf diese 
Weise werden diese zusammengefaßt und bei einem Such¬ 
vorgang als File ausgegeben, das sich über mehrere Disk¬ 
kettenseiten erstreckt. 

Haben Sie jedoch verschiedene Versionen eines Pro¬ 
gramms, so geben Sie diesen verschiedene Namen, was 
schon durch das Anhängen eines »SPACE« geschieht. 

D - DATEN EINFÜGEN 

Mit diesem Unterprogramm ist es möglich, neue Ein¬ 
träge einzufügen. Es erscheint dabei als letzter Eintrag fol¬ 
gende Leermaske: 

Name: NEUER EINTRAG Blöcke: 0 Art:KEIN EINTRAG Typ: ??? 

In der gleichen Weise wie bei »DATEN ÄNDERN« können 
Sie nun den Eintrag vornehmen. 

Verwaltung der Files 
nü«ji verschiedenen Progammarten 


E - PROGRAMMARTEN ÄNDERN: 

Hier können die vorgegebenen Programmarten verän¬ 
dert werden. Im oberen Teil des Bildschirms sehen Sie die 
aktuellen Programmarten. Wollen Sie eine davon ändern, 
so geben Sie die entsprechende Nummer ein. Nun können 
Sie einen neuen Text mit einer maximalen Länge von 16 
Zeichen eingeben. 

Wenn Sie für Programmart eine »0« eingeben, gelangen 
Sie wieder ins »DATEN EDITIEREN«-Menü, dies gilt auch 
für »PROGRAMMTYPEN ÄNDERN«. 

F - PROGRAMMTYPEN ÄNDERN: 

Dieses Unterprogramm unterscheidet sich nur dadurch 
von »PROGRAMMARTEN ÄNDERN«, daß hier die Pro¬ 
grammtypen verändert werden können. Diese dürfen höch¬ 
stens eine Länge von 3 Zeichen haben. 

G - DIRECTORY: 

Diese Funktion gibt das Directory der sich im Laufwerk 
befindlichen Diskette aus. Das Scrollen kann durch 
Drücken von < RUN/STOP> unterbrochen werden. Mit 
einer beliebigen Taste gelangen Sie wieder ins »DATEN 
EDITIEREN«-Menü 

H - DISKETTENKOMMANDO: 

Geben Sie das gewünschte Kommando direkt nach dem 
»<« ein. Zum Beispiel: 

<R:DATEI 2=DATEI 1 
I - HAUPTMENUE: 

Mit dieser Funktion gelangt man ins Hauptmenü: Aber je 
nachdem, welche Funktionen des »DATEN EDITIEREN«- 
Menüs vorher angewählt wurden, wird vor dem Sprung 
zum Hauptmenü noch Verschiedenes ausgeführt: 

Wenn Sie »PROGRAMMARTEN ÄNDERN« oder »PRO¬ 
GRAMMTYPEN ÄNDERN« angewählt hatten, werden vor 
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dem Sprung ins Hauptmenü noch die Daten gespeichert. 
Legen Sie dazu auf die Aufforderung die Datendiskette ein 
und drücken Sie < RETURN >. Bei der Speicherung wer¬ 
den die alten Daten überschrieben. 

Hatten Sie ..DATEN LESEN«, »DATEN ÄNDERN« oder 
»DATEN EINFÜGEN« angewählt, so wird ebenfalls gespei¬ 
chert, aber vorher noch sortiert. 

Bei den restlichen Punkten erfolgt ein direkter Sprung 
zum Hauptmenü. 

Ausdruck übersichtlicher Listen 


Nun zu einem sehr wichtigen Punkt: dem Ausdruck der 
Listen. 

C - DATEN DRUCKEN: 

Nachdem sie im Hauptmenü die Funktion »DATEN 
DRUCKEN« gewählt haben, fordert Se das Programm auf, 
das aktuelle Datum einzugeben. Anschließend können Sie 
mit den Tasten <A> bis <F> auswählen: 

A - LISTE ALPHABETISCH 
B - LISTE DISKETTEN 
C- LISTE PROGRAMMART 
D - LISTE PROGRAMMTYP 
E - LISTE FREIE BLÖCKE 
F-HAUPTMENUE 

A - LISTE ALPHABETISCH: 

Geben Sie bitte den ersten und den letzten zu drucken¬ 
den Eintrag an. Weiters, ob sie Endlospapier <R> oder 
Einzelblätter <E> benutzen. Schalten Sie nun ihren 
Drucker ein und drücken Sie < RETURN >. Während des 
Druckvorganges werden auf dem Bildschirm die Pro¬ 
gramme, die ausgedruckt werden, angezeigt. Ist eine Seite 
vollgedruckt, wird je nachdem, ob sie <R> oder <E> 
gedrückt haben, ein Seitenvorschub gemacht oder ein 
neues Blatt verlangt. Sind alle Daten gedruckt, wird ein 
Form-Feed an den Drucker gesendet und Sie befinden sich 
wieder im »DATEN DRUCKEN«-Menü. 

B - LISTE DISKETTEN: 

Ist ähnlich dem Punkt »LISTE ALPHABETISCH«, nurdaß 


Sie hier die Nummern der Disketten angeben müssen, zwi¬ 
schen welchen ausgedruckt werden soll. 

C - LISTE PROGRAMMART: 

Hier müssen Sie Beginn und Ende des Druckes durch 
die Nummern der jeweiligen Programmarten eingeben. 

D - LISTE PROGRAMMTYP: 

Geben Sie die entsprechenden Nummern der Filetypen 
ein, mit welchen die Liste beginnen, beziehungsweise 
enden soll. 

E - LISTE FREIE BLÖCKE: 

In diesem Programmteil müssen Sie die erste und letzte 
Nummer der Disketten angeben, von denen Sie die freien 
Blöcke ausgedruckt haben wollen. 

F- HAUPTMENUE: 

Diese Funktion führt einen Rücksprung zum Hauptmenü 
aus. 

D - DIRECTORY: 

Lädt das Directory. 

E - DISKETTENKOMMANDO: 

Dient zur Eingabe von Diskettenkommandos. 

F - PROGRAMM VERLASSEN: 

Diese Funktion führt einen Systemreset aus. 

Sicherheitskopien der Dateien erstellen 


ln Listing 3 finden Sie noch ein Kopierprogramm mit dem 
Sie Sicherheitskopien der Systemdateien anlegen können. 
Bitte geben Sie das Listing mit dem Checksummer 128 ein 
(Eingabehinweise siehe Seite 159). Nach dem Laden und 
Start“'- geben Sie für »Quellname« den Namen ihrer Datei 
und für »Zielname«den Namen, unter dem diese neu abge¬ 
speichert werden soll, ein. Es ist auf jeden Fall empfehlens¬ 
wert, sich eine Sicherheitskopie seiner Hauptdatei zu 
erstellen. 

Anschließend nochmals der Hinweis: Alle, die genau wis¬ 
sen wollen, wie der Disk-Manager 128 arbeitet, finden in 
Tabelle 1 eine ausführliche Dokumentation. 

(Michael Neumann/Martin Jobst) 


Programmbesdireibung zu »Disk-Manager 128« 


Zeile 

130 - 140: Umschalten auf den 80-Zeichen-Bildschirm und den Fast¬ 
modus. 

150: SA = Sekundäradresse des Druckers 

153: »D« bestimmt die Maximalanzahl von Disketten (Vorder- und 
Rückseite). »P« ist die maximale Anzahl von Programmeinträgen. 
Ist ein Programm länger als eine Diskettenseite, so verwaltet Disk- 
Manager pro Seite und Programm einen Eintrag. Nach diesen bei¬ 
den Variablen werden die Felder dimensioniert. 

155: Fehlerbehebung ab Zeile 10500. 

160 - 170: Dimensionierung der Felder. Das dreidimensionale Feld 
»DB« ist die Disketten-BAM. Der erste Parameter bestimmt die Dis¬ 
kettenseite (1=A;2=B). Der zweite Parameter bestimmt, ob die 
freien Blöcke oder die Belegung ausgegeben werden sollen 
(1=FREIE BLÖCKE, 2=BELEGUNG;) Wenn letzteres der Fall ist, 
bedeutet »DB=1«, daß die Seite belegt ist, »DB=0« das Gegenteil. 
Der dritte Parameter schließlich bestimmt die Diskettennummer. 
Beispiele: 

»A=DB(1,1,10)«: In Variable »A« stehen die freien Blöcke der Dis¬ 
kette mit der Nummer 10, Seite A. 

»A=DB(1,2,21)«; In Variable »A« steht, ob sich auf Diskette 21, Seite 
A Programme befinden (»A=1«: belegt) oder nicht (»A=0< unbe¬ 
legt). 

Die Felder »NA$«, »BL«, »Dl« ,»AR« und »TY« geben zum jeweiligen 


Eintrag den Namen, Blocklänge, Diskettenseite, Programmart 
und Programmtyp an. Aus »Dl« läßt sich folgendermaßen die Dis¬ 
kette bzw. Seite bestimmen: Ist ihr Inhalt ungerade, so befindet 
sich dieses Programm auf einer A-Seite, ist er gerade, auf einer B- 
Seite. Die Nummer der Diskette läßt sich folgendermaßen berech¬ 
nen: Diskette=••(DI(X) -+-1)/2«>. 

In »ALS« befinden sich die vorgegebenen Programmarten (bei 
Erstbenutzung). Die Felder »A« und »B« werden bei »DISKETTEN¬ 
DRUCKEN. erklärt. 

180 - 260: Grundbelegung der Programmarten und Programmtypen. 

270 - 330: Menümasken zum »DATEN EDITIEREN«-Menü. 

340 - 710: Eingeben des Dateinamens und Laden der Datei. Die Ein¬ 
gabeprozedur (Zeile 390; Erklärung Zeile 10100) liefert einen 
String »ES« der Länge »L«, der aus ASCII-Zeichen besteht. Es wer¬ 
den nur Zeichen akzeptiert, die zwischen »AI« und »A2« liegen. In 
Zeile 440 wird ein Fehler bei der Eingabe abgefangen und entspre¬ 
chend den Zeilen 490-500 verzweigt. Ab Zeile 520 wird die 
sequentielle Datei geladen. 

720 - 930: Hauptmenü. Verzweigung gemäß Zeile 920. Zeile 910 führt 
einen Systemreset aus (SYS 65341). 


Tabelle 1. Detailierte Erläuterungen zum Programm 
»Disk-Manager 128« 
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940 - 1140: "DATEN SUCHEN- Menü. Die Variable »DM$« in Zeile 
960 gehört zum Programm-Modul »Programmnamen Ausgeben«. 
Sie wird in Zeile 10240 erklärt. 

1150 -1260: Eingeben des Suchnamens mittels der Prozedur In Zeile 
10100 . 

1270 -1290: Variable »IC« gehört zur Prozedur in Zeile 10240. Variable 
»C« gibt an, ob am Schluß des Suchnamens ein »•« steht. 

1300 - 1360: Mit Hilfe einer FOR-NEXT-Schleife werden die Namen 
von Anfang bis Ende ausgegeben, wobei »PZ« die Anzahl der 
Namen ist. 

1370 - 1520: Nach der Eingabe werden Suchlänge und Abweichung 
in die Variablen »LA« und »DD« übergeben. 

1530 -1620: Damit auch Programme erfaßt werden können, die mehr 
als einen Eintrag besitzen, werden innerhalb der Schleife die 
Blöcke von gleichnamigen Einträgen zusammengezählt, vergli¬ 
chen und die Laufvariable »I« wieder zurückgesetzt. 

1630 - 1880: Hier werden die möglichen Programmarten ausgege¬ 
ben und die Suchart eingegeben. Danach werden mit Hilfe einer 
Schleife die Programmarten mit der Suchart verglichen und gege¬ 
benenfalls ausgegeben. 

1890 - 2150: Dieses Modul ist analog aufgebaut zu Programmart 
suchen, nur wird hier nicht das Eingabemodul aufgerufen, son¬ 
dern mit »CHR$(15)« ein blinkender Cursor erzeugt und mit 
»CHR$(143)« wieder ausgeschaltet. 

2160 - 2240: Modul »DISKETTEN SUCHEN«. Eingabe der Suchdis¬ 
kette. 

2245: Bei einer Fehlermeldung erfolgt die Kontrolle, ob wenigstens 
eine Diskettenseite der Suchdiskette belegt ist. 

2250 - 2470: Ausgabe der Einträge der A- und B-Seite sowie der 
Anzahl der freien Blöcke. Wenn eine Seite nicht belegt ist, dann 
werden automatisch 664 freie Blöcke angenommen. 

2480-2620: Programmmodul »FREIE BLÖCKE SUCHEN«. Eingabe 
der Mindestblockzahl. 

2630 - 2810: Ausgabe der ermittelten Daten auf drei Windows, die 
nacheinander angezeigt werden. 

2820 - 2970: Datumseingabe. Das Datum steht am Ende der Variable 
»DA$«. 

2980 - 3160: »DATEN DRUCKEN«-Menü. 

3170 - 3330: Modul »LISTE ALPHABETISCH«. Eingabe der Druck¬ 
grenzen »G1$« und »G2$«, sowie des Druckmodus »DM$« für Ein¬ 
zelblätter oder Endlospapier. 

3340 - 3370: Drucken des Seitenkopfes. 

3380-3440: Drucken von Überschrift, Seitenzahl, Datum und Datei¬ 
name, 

3460 - 3510: Prüfung, ob der Eintrag innerhalb der Grenzen liegt und 
dessen Ausgabe mit Hilfe der Zeile 10250.»DM$« wird außerdem 
benötigt, um eine Ausgabe der kompletten Druckzeile auf dem 
Bildschirm zu verhindern. Deshalb wird »DM$« in Zeile 960 

gelöscht. 

3520: Hier wird geprüft, ob schon mehr als 60 Zeilen auf einem Blatt 
gedruckt sind. 

3540 - 3630: Je nachdem, ob der Inhalt von »DM$« »R« oder »E« ist, 
werden entweder 7 Line-Feeds oder ein Form-Feed gesendet. 

3640 - 3880: »LISTE DISKETTEN« drucken. Eingabe der Grenzen 
»DL« und »DH«, sowie der Variablen »DM$«. Ausgabe des Seiten¬ 
kopfes. 

3900 - 3950: Durchsuchen des Feldes »Dl« (der jeweiligen Diskette) 
nach den gewünschten Einträgen und Ablegen der gefundenen 
Stellen in den Feldern »A« und »B«. 

3960 - 3970: Hier wird geprüft, ob alle Einträge der Diskette (beide 
Seiten) auf das eingespannte Blatt (63 Zeilen) passen. 

3980 - 4390: Ausgeben des Disketteninhalts auf den Drucker und 
anschließender Seitenvorschub (siehe Zeilen 3540 - 3630). 

4400 - 5110: »LISTE PROGRAMMART«, Im wesentlichen identisch zu 
»LISTE ALPHABETISCH«, nur daß bei Beginn der nächsten Pro¬ 
grammart zunächst deren Name zusammen mit einem neuen 
Kopf ausgedruckt wird. 

5120 - 5720: »LISTE PROGRAMMTYP«. Unterscheidet sich nur 
durch das Suchobjekt von »LISTE PROGRAMMART«. 

5730 - 6150: »LISTE FREIE BLÖCKE« drucken. Eingabe der Grenzen 
»Gl« und »G2« sowie der Papierart »DM$«. Drucken der Daten aus 
dem Feld »DB«, geordnet nach Diskettennummer. 


6160 - 6390: »DATEN EDITIEREN«-Menü. 

6400 - 6420: »NACHLADE PRG MODUS«. Je nachdem, ob dieser 
aktiviert ist oder nicht, ist der Inhalt von»TR« gleich »1« oder »0«. 

6430 - 6570: Zunächst wird eine Unterroutine zur Eingabe von Dis¬ 
kette und Seite aufgerufen (ab Zeile 9930). Dieses liefert die Seite 
»S«, die Diskettennummer »DN«, sowie »DK«, »DK« belegt das Feld 
»Dl«, um auf Diskettennummer und Seite des jeweiligen Eintrages 
rückschließen zu können (Berechnung siehe Zeile 10080). 
Daraufhin werden alle auf der Diskette bereits existierenden Neu¬ 
einträge, gelöscht. Das heißt, sie werden mit dem Namen »ZZZZ« 
versehen und später aussortiert. Wenn die neue Diskettennum¬ 
mer »DN« größer als »DZ« ist, wird »DN« übernommen und diese 
Diskettenseite als belegt in der Diskettenbam aufgenommen. 

6580 - 7020: Einlesen der Daten aus dem Directory, Diese Routine 
liest die Daten aus dem Directory der Diskettenlaufwerk 1541 oder 
1571 ein. Die so ermittelten Daten werden in die Felder »NA$«, 
»BL«, »Dl«, »AR« und »TY« übernommen. Bei »TR=0« werden die 
Blöcke solange zusammengezählt, bis eine gestrichelte Linie (aus 
Minuszeichen) der nächste zu lesende Eintrag ist. 

7030 - 7040: Übernehmen der freien Blöcke in die Barn und direkter 
Sprung zum »DATEN ÄNDERN«-Menü. 

7050 - 7130: »DATEN ÄNDERN«-Modul. Eingabe der Diskettennum¬ 
mer und der Seite. 

7140: Ansprungadresse für »DATEN LESEN« und »DATEN EINFÜ¬ 
GEN«. 

7150 - 7290: Aufbau des »DATEN ÄNDERN«-Menüs. 

7300 - 8030: FOR-NEXT-Schleife mit Laufvariable »IC« zum Durch¬ 
laufen aller Einträge. 

Zunächst werden im Menüfenster alle aktuellen Einträgen ausge¬ 
geben (Zeilen 7320 - 7360). Anschließend können die freien 
Blöcke geändert werden. In der rechten oberen Ecke wird nun mit 
Hilfe von »CHR$(15)« ein blinkendes »FREIE BLÖCKE:« erzeugt, 
und ein neues Eingabemodul (ab Zeile 9520) verlangt die Ein¬ 
gab«.. 

Die Bedeutungen der Parameter sind folgende:: »A« ist die linke, 
»B« die rechte X-Koordinate. »G« gibt die Zeile, in der das einzeilige 
Window erscheint, an. »C« ist die maximale Länge des Eingabe¬ 
strings und »D« beziehungsweise »E« sind die ASCII-Grenzen der 
Eingabetasten (weil manchmal nur Zahlen eingegeben werden 
dürfen). »D$« ist der alte String, der wieder übernommen wird, 
wenn nur < RETURN> gedrückt wird. 

In den Zeilen 7570 - 8010 werden alle Daten editierbar gemacht, 
indem ein roter Rahmen (Zeilen 270 - 330) über den schwarzen 
Rahmen gelagert und die Eingaberoutine aufgerufen wird. 

Nur beim Ändern von Programmarten und Programmtypen wird 
ein eigenes Eingabemodul benutzt. 

8040 - 8070: Vor der FOR-NEXT-Schleife wurde die Variable »Ll=0« 
gesetzt. Drücken sie nun bei allen Einträgen der Seite <L>, so 
werden nicht nur die Namen mit »ZZZZ« belegt, sondern auch die 
Seite aus der Barn gelöscht (»DB(2,S,DN)=0«), indem »Ll=0« 
bleibt. Drücken sie dagegen nur einmal <SPACE> oder <A> so 
wird »Ll=1« gesetzt und die Seite wird nicht gelöscht, 

8080 - 8160: »DATEN EINFÜGEN«. Nach Eingabe der Diskettennum¬ 
mer wird ein neuer Eintrag erschaffen, Indem »PZ« um 1 erhöht, 
und die Parameter belegt werden. Danach befinden sie sich wie¬ 
der In der »DATEN ÄNDERN.-Maske. 

8170 - 8350: »PROGRAMMARTEN ÄNDERN«. Zuerst werden die 
aktuellen Programmarten gezeigt. Dann wird mit dem Modul ab 
Zeile 10010 die zu ändernde Art eingegeben. Wird »0« eingege¬ 
ben, erfolgt ein Rücksprung zum »DATEN EDITIEREN«-Menü. 
Anschließend Eingabe der neuen Programmart. 

8360 - 8550: »PROGRAMMTYPEN ÄNDERN«.Analog zu »PRO¬ 
GRAMMARTEN ÄNDERN«. 

8560 - 8580: Je nachdem welche(r) Punkt(e) vorher gewählt wur- 
de(n), wird vor dem Sprung zum Hauptmenü noch eine andere 
Funktion ausgeführt. 

Diese wird in der Variable »Sl« festgelegt: Ist »Sl« gleich 0 (bei 
»DIRECTORY«, »DISKETTENKOMMANDO«) wird ein direkter 
Sprung zum Hauptmenü ausgeführt. Bei Sl=1 (bei »PRO¬ 
GRAMMARTEN ÄNDERN«, »PROGRAMMTYPEN ÄNDERN) 
wird vorher gespeichert. Ist »Sl« gleich 2 (bei den restlichen Punk¬ 
ten) wird zusätzlich noch sortiert. 
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8590 - 8700: Berechnung der notwendigen Rechenschritte »SZ« 
sowie des Bildschirmautbaus. 

8710 - 9200: Sortierverfahren Heap-Sort (Baumstrukturiertes sortie¬ 
ren) Dieses Sortierverfahren ist besonders schnell, denn im 
Gegensatz zu anderen Verfahren die »N-N« Zeiteinheiten benöti¬ 
gen, kommt dieses Verfahren mit »N*LOG(N)« Zeiteinheiten aus. 
(N=Anzahl der zu sortierenden Elemente) 

9210 - 9230: Aussortieren der gelöschten Einträge (Name: ZZZZ). 

9240 - 9510: Löschen der alten Datei und Abspeichern der neuen mit 
eventuellem Abbruch bei einem Diskettenfehler. 

9520 - 9660: Eingabemodul I. Die »DO-LOOP-Schlelfe« führt je nach 
gedrückter Tastenkombination verschiedene Funktionen aus. »II« 
gibt an, wieviele richtige Zeichen eingegeben wurden. Die »IF- 
Zeilen« dienen zum Ausschließen von Falscheingaben. Bei 
Drücken von <DEL> wird der String um 1 vermindert. Wenn nur 
< RETURN > eingegeben wird, erfolgt die Ausgabe von D$. 

9730 - 9830: »DISKETTENKOMMANDO«. Eingabe eines Disketten¬ 
kommandos durch die Routine ab Zeile 10010 und Senden an die 
Floppy. 


9840 - 9920: »DIRECTORY«. Die Directory kann durch Drücken von 
< RUN/STOP> bei »D=1« angehalten werden (Zeile 10520) und 
setzt danach wieder fort. 

9930 - 10090: Angabe von Diskettennummer und Seite. 

10100 - 10230: Eingabemodul II. Funktioniert ähnlich wie Eingabe I, 
jedoch wird der String »E$« direkt an der Stelle ausgegeben, an 
der der Cursor steht. 

10240 - 10390: Berechnung von Blocklänge, Seite und Nummer 
jener Programme, die über eine Seite hinausgehen). 

10390 -10440: Berechnung von Seite und Nummer bei allen anderen 
Programmen. 

10450 -10490: Wenn »DM$< > ""«(bei der Druckerausgabe), steht 
die Druckzeile in »D$«, ansonsten wird die Zeile in einem Window 
ausgegeben. 

10500 - 10540: Fehlerbeseitigung bei Directory- und Druckeraus¬ 
gabe. 

Tabelle 1. Detailierte Erläuterungen zum Programm 
»Disk-Manager 128« (Schluß) 


10 REM DISK-MANAGERLOADER' 

20 FAST : GRAPHIC 5 

30 COLOR 6,16: COLOR 5,1 

40 PRINT «(CLR,7DQWN>" 

50 PRINT "«SPACE,RVSON,SSPACE>»CRVDFF> {RVS0N.2S 
PACE,RVOFF > (RVS0N>A<4SPACE>»<RV0FF) (RVSON,2S 
PACE,RVOFF> (RVS0NJ4 (RVOFF) 4"; 

60 PRINT “(4SPACE,RVSON,2SPACE)»4(2SPACE,RVOFF) < 
RVS0N)4C4SPACE>»{RV0FF) CRVS0N,2SPACE,RVDFF,2S 
PACE,RVSON,2SPACE,RVOFF ) (RVSON) £ (4SPACE)»CRVO 
FF)"! 

70 PRINT " {RVS0N)4C4SPACE)»{RV0FF> {RVSON,6SPACE 
.RVOFF) {RVSON,5SPACE)»CRVOFF>" 

BO PRINT “ «SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSON 
,2SPACE,RVOFF) {RVSON,2SPACE,RVOFF) CRVSON,2SP 
ACE,RVOFF,5SPACE,RVSON,2SPACE,RVOFF,RVSON > £ {R 
VOFF>4 

90 PRINT " (4SPACE,RVSON,2BPACE,RV0FF)»4(RVS0N,2SP 
ACE,RVOFF > CRVSON,2SPACE,RVOFF,2SPACE,RVSON,2S 
PACE,RVOFF > CRVSON,2SPACE,RVOFF,2SPACE,RVSON,2 
SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE,RVSON, 
2SPACE,RVOFF)"; 

100 PRINT " CRVSON,2SPACE,RVOFF,5SPACE,RVSON,2SPA 
CE,RVOFF,5SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVS 
ON, 2SPACE, RVOFF )'' 

110 PRINT ■C3SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N.2SPACE,RVOFF) CRVSON,2SPACE,RVOFF> CRVSON,2 
SPACE, RVOFF, 5SPACE, RVSON, 3SPACE, RVOFF JÄC2SPAC 
E)"| 

120 PRINT “C4SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF > CRVSON,2SPACE,RVOFF,2SPACE,RV 
S0N.2SPACE,RVOFF) CRVSON,2SPACE > »{RVOFF) CRVS 
ON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE,R 
VSON,2SPACE,RVOFF >"; 

130 PRINT " CRVSON.2SPACE,RVOFF,5SPACE,RVSON,2SPA 
CE, RVOFF, 5SPACE, RVSON, 2SPACE, RVOFF, 2SPACE, RVS 
0N.2SPACE,RVOFF)" 

140 PRINT "C3SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N.2SPACE,RVOFF) CRVSON,2SPACE,RVOFF) »CRVSON, 
4SPACE)»(RVOFF) {RVSON,3SPACE,RVSON)»(RVOFF,2 
SPACE)“l 

130 PRINT " CRVSON,2SPACE,RVOFF) CRVSON,2SPACE,RV 
OFF,2SPACE,RVSON,2SPACE,RVOFF) CRVSON,6SPACE, 
RVOFF) CRVSON,2SPACE,RVOFF >¥CRVSON)»<2BPACE,R 
VOFF) (RVSON,6SPACE,RVOFF)") 

160 PRINT “ CRVSON,2SPACE,RVOFF) CRVSON,3BPACE,RV 
OFF) CRVSON,6SPACE,RVOFF) CRVSON,3SPACE,RVOFF 
>4" 

170 PRINT "C3SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,3SPACE,RV 
SON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF)»{RVSON 
) »(RVOFF) "( 

180 PRINT "C4SPACE,RVSON,2SPACE,RVOFF,2BPACE,RVSO 
N,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE,RV 
SON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF) »(RVSO 
N,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE,RV 
SON,2SPACE,RVOFF)"| 

190 PRINT " CRVSON,2SPACE,RVOFF,2SPACE,RVSON,2BPA 
CE,RVOFF) CRVSON,2SPACE,RVOFF,5SPACE,RVSON,3S 
PACE)»" 

200 PRINT "C3SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,5SPACE,RV 
SON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF) »(RVSO 
N> »CRVOFF)"| 

210 PRINT "C4SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF > CRVSON,2SPACE,RVOFF,2SPACE,RV 
SON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE, 
RVSON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPAC 
E,RVSON,2SPACE,RVOFF >"; 

220 PRINT " CRVSON,2SPACE,RVOFF,2SPACE,RVSON,2SPA 
CE,RVOFF) CRVSON,2SPACE,RVOFF,5SPACE,RVSON,2S 


<A99> 

<UNT> 

< JUO> 

< 444 > 


<D5N> 


< 11B> 


PACE,RVOFF)»(RVSON) »CRVOFF)" 

230 PRINT “C3SPACE,RVSON,5SPACE,RV0FF)£ CRVSON,2S 
PACE,RVOFF) »CRVSON,4SPACE,RVOFF)4CRV0FF) CRV 
SON,2SPACE,RVOFF,2SPACE,RVSON,2SPACE,RVOFF)”j 
240 PRINT "C4SPACE,RVSON,2SPACE,RVOFF,2SPACE,RVSO 
N,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPACE,RV 
SON,2SPACE,RVOFF > CRVSON,2SPACE,RVOFF,2SPACE, 
RVSON,2SPACE,RVOFF) CRVSON,2SPACE,RVOFF,2SPAC 
E,RVSON,2SPACE.RVOFF)“i 

250 PRINT " »CRVSON,4SPACE,RV0FF)4 CRVSON,6SPACE, 
RVOFF) CRVS0N.2SPACE,RVOFF) »CRVSON) »CRVOFF) 


S46R Ol 

CPll) 


<T09> 


260 PRINT TAB(35)"C2D0WN)VERSION VI.0“ 

270 PRINT TAB(23>"(DOWN)GESCHRIEBEN VON MICHAEL N 
EUMANN IN 1987" 

.3.00 DL. AD "DISK.MAIN" 

Listing 1. Die Laderoutine für »Disk-Manager 128«. 
Bitte mit dem Checksummer 128 (Seite 158) 
eingeben. 


<9E9> 

<J10> 

<NI9> 

<31G> 

<3F3> 

<VQJ> 
<01 G> 

V 


< AG4 > 

<VA3> 

<3GP> 

<6HK> 

<M3K> 

<G1F> 

<L61> 

<B5E> 

<95H> 

<TLH> 

<9I6> 

< N69 > 


10 REM DISKMANAGER.MAIN 


<A99> 

20 REM #»•***•*«***»*■*»*«**»*•**»»*»»**»*»*»#** 

< AHA> 

30 REM * 

* 

<APB> 

40 REM * DISK - MANAGER VI.0 

* 

<B1C> 

50 REM # 

* 

<B9D> 

60 REM » GESCHRIEBEN VON t 

* 

<5SN> 

70 REM # 

l» 

<BPF > 

80 REM » MICHAEL NEUMANN 

* 

<810> 

90 REM « OSTBURGER WEG 79D 

» 

<891 > 

10O REM * 1000 BERLIN 47 

* 

< 11A> 

110 REM * 

• 

<IQB> 

120 REM *#*#•#***#*#*##**•*»**»*****#***«»****#* 

<I2B> 

130 GRAPHIC 5,1 


<32R> 

140 FA3T 


< 1G3> 

150 SA-0 : REM HIER SETZEN SIE DIE SEKUNDAERADRES 


SE IHRES DRUCKERS EIN 


<89B> 

153 D«100l P-300 


<IKD> 

155 TRAP 10500 

160 DIM D8(2,2,D): D1M NA*(P): DIM BL(P>: DIM 

DI ( 

<0PA> 

P): DIM AR(P): DIM TY(P) 


< AJO> 

170 DIM AL*<19>: DIM AC144): DIM B1144) 

180 AL*(1)."ACTION-SPIEL": OL«(2)-"STRATEGIE- 

SPIE 

<0JQ> 

L": AL«(3>-"GESCHICKL.-SPIEL” 


<D2L> 

190 AL* (4) «"ADVENTURE-SPIEL" i AL* (5) “''SPORT-SPIEL 


"s AL* (6) »''SIMULATOR-SPIEL " 


<£4I> 

200 AL*(7)-"SPIEL": AL*(Bl="TEXTVERARBEITUNG" 

i AL 


*(9)-“DATEIVERWALTUNG" 


<KGT> 

210 AL*(10)="KOPIERPROBRAMM": AL«(11)-"DISKPROGRA 


MM": AL*(12)«"MATHEMATIK PRG" 


<FUH> 

220 AL*(13)—"MUSIK PRG": AL*(14)="MUSIK DEMO" 

: AL 


*<13)»"GRAFIK PRG" 


< ITT> 

230 AL*(16)»"GRAFIK DEMO": AL*(17)*"SPRACHE": 

AL* 


(18)«"ANWENDUNG” 


<FD5> 

240 AL*(19)“"KEIN EINTRAG" 


<PLD> 

250 TL*(1)="PRG"x TL*(2)«"SEQ": TL*<3)»"REL" 
260 TL*(4)="USR": TL*(5)="DEL”t TL*(6)■-???"o 

TL* 

<K7B> 

(7)—"77?" 


<OFH> 

270 MR« (1) -" (RED >FXCJ.C.C.C.C.C.C C.C.C.C.C.C.C.C.i:.!J(1BSPACE) 


Listing 2. Das komfortable Diskettenverwaltungs- 


Programm »Disk-Manager 128«. Bitte mit 
dem Checksummer (Seite 128) eingeben. 
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CCCCCCCCCCCCCCCCCCK " 

280 MS*(1>= 


290 MR* (2) =" (RED(6SPACE) 

300 MS* <2) «" (BLACK) V.C.CC.QC.CT B(ASPftPF 1 BF CCCCCCy ' 


320 MR*(4 > =" <RED>Jj.C£üJ^JJ(5SPACE> aj£££££l." 

330 MS*(4)=" (BLACtO' ffC-C-C.C.CJJ (5SPACF>B gCj:_C.C.C.* " 

340 CDLGR 6,16: COLOR 5,1 
350 DO 

360 PRINT "(CLR,DOWN>BITTE GEBEN SIE IHREN DATEIN 
AMEN AN f" 

370 FQR 1 = 1 TO 00: PRINT NEXT I 

380 PRINT "(DOWN)DATEI - NAME i 
390 L-16: Al»32: A2-95: GOSÜB iOlOO 
400 LOOP WHILE RIGHT*<E*,l 
410 DN*-E* 

420 PRINT : PRINT "(DOWN)SUCHEND" 

430 DOPEN #1,<DN*> 

440 IF D8O0 THEN BEGIN 
450 DCLOSE 41 

460 PRINT "LESEFEHLER !!!" 

470 PRINT " (DOWN)NEUE DATEI (J/N) 7" 

480 DO : GET KEY A*: LOOP UNTIL A*="J" OR A*="N" 
490 IF A*="N" THEN GOTO 350 
500 IF A*-"J" THEN GOTO 720 
510 BEND 

520 PRINT "LESEND" 

530 FOR A=1 TO 6 
540 INPUT41,TL*(A) 

550 NEXT A 

560 FOR A=1 TO 18 

570 INPUT41,AL*(A) 

580 NEXT A 
590 INPUT#1,DZ 
600 FOR A=1 TO DZ 

610 INPUT41,DB(1,1,A) 

611 INPUT41,DB(1,2,A) 

612 INPUT41,DB(2,1,A) 

613 INPUT41,DB(2,2,A> 

620 NEXT A 

630 INPUT#1,PZ 
640 FOR A=1 TO PZ 
650 INPUT#1,NA* ( A) 

660 INPUT41,TY(A) 

670 INPUT41,BL <A) 

680 INPUT41,DI(A) 

690 INPUTttl,AR(A) 

700 NEXT A 

710 DCLOSE #1 

720 WINDOW 0,0,79,24 

725 TRAP 10500 

730 COLOR 6,16: COLOR 5,1 

740 PRINT " (CLR>" 

760 PRINT TAB(25)“fl(3SPACE)DISK-MANAGER VI.0C4SPA 
CE >5" 

770 PRINT TAB(25)" JK245PACE)fl" 

780 PRINT TAB(25>"A(7SPACE>HAUPTMENUE(7SPACE)fl" 
790 PRINT TAB(25) " 

B00 PRINT TAB(27)"<DOWN>A : DATEN SUCHEN" 

810 PRINT TAB(27)"(DOWN)B : 

820 PRINT TAB(27)"(DOWN>C : 

830 PRINT TAB(27)"(DOWN)D r 
840 PRINT TAB(27)"<DOWN>E : 

850 PRINT TAB(27)"(DOWN )F : 


DATEN EDITIEREN" 
LISTEN DRUCKEN" 
DIRECTORY" 

DISKETTENKOMMANDO" 
PROGRAMM VERLASSEN" 
860 PRINT TAB(29)"(2D0WN)TASTE DRUECKEN" 

870 DO 

880 GET KEY A* 

B90 IF ASC<fl*><71 AND ABC<A«)>64 THEN EXIT 

900 LOOP 

910 IF A*="F" THEN SYS 65341 

920 ON ASC(A*)— 64 GOSUB 940,6160,2820,9840,9730 

930 GOTO 720 

940 REM DATEN SUCHEN 

950 WINDOW 0,0,79,24 

960 PRINT "(CLR,DOWN)": DM*="" 

970 PRINT TAB(25) " 

980 PRINT TAB(25>"fl(6SPACE>DATEN SUCHEN(6SPACE >A" 
990 PRINT TAB (25) " 

10O0 PRINT TAB(27)"(DOWN)A : PROGRAMM-NAMEN" 

1010 PRINT TAB(27)"(DOWN>B 
1020 PRINT TAB(27)"(DOWN)C 
1030 PRINT TAB(27)"(DOWN)D 
1040 PRINT TAB(27)"(DOWN>E 
1050 PRINT TAB(27)"CDÜWN>F 
1060 PRINT TAB(27)"(DOWN)G 
1070 PRINT TAB(29)"(2D0WN)TASTE DRUECKEN" 

1000 DO 

1090 GET KEY A* 

1100 IF ASC(A*)<72 AND ASC(A*)>64 THEN EXIT 
1110 LOOP 

1120 IF A*="G" THEN RETURN 

1130 ON ASC(A*)- 64 GOSUB 1150,1370,1630,1890,21 
60,2480 
1140 GOTO 940 

1150 REM PROGRAMM-NAMEN SUCHEN 
1160 PRINT "(CLR,DOWN)" 

1170 PRINT TAB (25) I " 

1180 PRINT TAB(25)"S<2SPACE>PR0GRAMMNAMEN SUCHEN< 
2SPACE)fl" 

1190 PRINT TAB (25) " JJ.CJJ_C_(LCX,CJ:^J.C.C,CX^. " 
1200 PRINT "(D0WN,2SPACE)NAME(13GPACE)BL0ECKE C6SP 


PROGRAMM-LAENGEN" 
PROGRAMM-ART" 
PROGRAMMTYP" 
DISKETTEN" 

FREIEN BLOECKEN" 
HAUPTMENUE" 


<4DK> 


<4SE> 

1210 

< I03> 

1220 

<P1E> 

1230 


1240 

<CSN> 

1250 

<130> 

1260 

<BEA> 

1270 

<IIS> 

1280 

< JMF> 

1290 


130O 

< IRS> 

1310 

<7JH> 


<UHS> 

1320 

<U5H> 

1330 

<EOD> 

1340 

<MUD> 


<S9H> 

1350 

<PEN> 

1360 

<BRS> 

1370 

<VL5> 

1380 

< A5E> 

1390 

<33U> 

1400 

< 112> 


<KBL> 

1410 

<9H2> 

1420 

<MUU> 


<9GU> 


<VE0> 

1430 

<8N3> 

1440 

<IU0> 

1450 

<T4Q> 

1460 

<CPJ> 

1470 

<OJ0> 

1480 

<L0C> 

1485 

<C6U> 

1490 

<3G9> 

1500 

<0O4> 

1510 

<F1R> 

1520 

<C9M> 

1530 

<QV0> 

1540 

<S00> 

1550 

<D6A> 


<ALA> 

1560 

<2NA> 


<JGE> 

1570 

<2TB> 




<V55> 

1600 

<323> 


<59A> 

1610 

<TJ0> 

1620 

<R9M> 

1630 

< JVD> 

1640 


1650 

<BDB> 

1660 

< 5QR > 


<II6> 

1670 

< VVF > 

1680 

<2PQ> 


<GQG> 


<4JE> 

1690 

<70C> 

17O0 

<DP7 > 


<DCE> 

1710 

<GC5> 


<7KV> 

1720 

<GKD> 

1730 

<QQF > 


<RB9> 


<TTQ> 

1735 

<BIN> 

1740 

<QQ8> 

1750 

<NIU> 

1760 

<OEE> 

1770 

<KNK> 

1780 

<KFD> 

1790 

<6EH> 

1000 

<OVF> 

1810 

<9MS> 

1820 

<POE> 

1030 

< JLG> 

1840 

<0LS> 

1850 

< 1DK> 

1860 

<8TN> 


<2FT> 

1870 

< D5G> 

1880 

<SFJ> 

1890 

<50D> 

1900 

< J61 > 

1910 

<CIP> 

1920 

<VIA> 

1930 

<4GH> 

1940 

<661 > 

1950 

<2SB> 


<RAF> 


< 1BD> 

1960 


1970 

<LBH> 

1980 

<DRF> 

1990 


20O0 


ACE)PRORAMMART C9SPACE)DISKETTENSEITE(5SPACE) 
FILETYP" 

FOR 1=1 TO 80: PRINT "fl";: NEXT I 
PRINT " (13DQWN>" 

FOR 1=1 TO 80: PRINT "fl";: NEXT I 

WINDOW 0,23,79,24 

PRINT "(CLR) SUCH - NAME : 

L-16: Al=32: A2=95: GOSUB lOlOO 
PRINT "(CLR)": IC=0: C=0 
T-LEN(E*) 

IF RIGHT*(E*,1)="*" THEN C-l 
FOR 1-1 TO PZ 

IF (LEFT*(NA*(I),T-1)+"«"-E* AND C-l AND NA* 
<1)0"") OR NA* (I) =E* THEN GOSUB 10250 
NEXT I 

WINDOW 0,23,79,24 

PRINT " (CLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN"; 

GET KEY A* 

RETURN 

REM PROGRAMM-LAENGEN SUCHEN 
PRINT "(CLR,DOWN)" 

PRINT TAB (24) "JiLC 

PRINT TAB(24)"fl(2SPACE)PROGRAMMLAENGEN SUCHE 
N(2SPACE)fl" 

PRINT TAB (24) " 

PRINT " (DOWN,2SPACE)NAME(13SPACE)BLOECKE C6SP 
ACE > PRORAMMART(9SPACE)DISKETTENSEITE(5SPACE> 
FILETYP" 

FOR 1=1 TO GO: PRINT "fl";: NEXT I 
PRINT " (13D0WN)" 

FOR 1=1 TO 80: PRINT "fl";: NEXT I 
WINDOW 0,23,79,24 

PRINT "(CLR) SUCH - LAENGE (BLOECKEN) : "; 
L=4: Al=48: A2=57: GOSUB 10100: LA=VAL(E») 

IF LA=0 THEN RETURN 

PRINT "(CLR) +/- LAENGE (BLOECKEN) : 

GOSUB 101O0: IF VAL(E*)>LA THEN GOTO 1470 
DD=VAL(E*> 

PRINT "(CLR)": IC-0 
FOR 1=1 TO PZ 
BL=0: CI=0 

DO : BL=BL+BL(I): 1=1+1: CI-CI+1: LOOP WHILE 
NA*(I-1)=NA*(I) 

I=I-CI: IF CI>1 AND ((LA+DD)<BL OR (LA-DD)>B 
L) THEN I=I+CI-l 

IF (LA+DD)>=BL AND (LA-DD)<=BL THEN GOSUB 10 
250 

1 

“-W 0,24,79,24 

T "(CLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN"; 


PACE)fl" 


ACE)PRORAMMART(9SPACE)DISKETTENSEITE C5SPACE > 
FILETYP" 

1=1 TO 80: PRINT "fl";: NEXT I 


PRINT 

FOR 1=1 TO 6 

PRINT " ("bI;") "iTAB(8)AL*(I):TAB(24>" <"|I 
+6;") ";TAB(32)AL*(I+6);TAB(48)" (";I+12;"> 

";TAB(56)AL*(1+12) 

NEXT I 

PRINT TAB(48)" ( 19 ) KEIN EINTRAG" 

PRINT "(3DQWN)" 

FOR 1-1 TO 80: PRINT NEXT I 

WINDOW 0,23,79,24 

PRINT "(CLR) SUCH - ART : 

L-2: Al»48: A2-57: GOSUB 1O1O0 
IF VAL(E*)>19 OR VAL(E*)=0 THEN RETURN 
PRINT "(CLR)": IC*0 
FDR 1=1 TO PZ 

IF VAL(E*)=AR(I) THEN GOSUB 10250 
NEXT I 

WINDOW 0,23,79,24 

PRINT "(CLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN"; 

GET KEY A* 

RETURN 

REM PROGRAMM-TYP SUCHEN 
WINDOW 0,0,79,24 
PRINT "(CLR,DOWN>" 

PRINT TAB (26) " ■LICJLC.C.C.CJ.CJ.C.CXJ.CJJ.CJJXJCJ “ 

PRINT TAB(26)"£(2SPACE)PR0GRAMMTYP SUCHEN12S 
PACE>5" 

PRINT TAB (26) " J.C.CJ-C.C_C,C,C,CJ_UICjC.C.C.C_CCC.C.C.K " 

PRINT "(DOWN,2SPACE)NAME(13SPACE)BLOECKE(6SP 
ACE >PRORAMMART(9SPACE)DISKETTENSEITE(5SPACE> 
FILETYP" 

FOR 1=1 TO 80: PRINT "fl";: NEXT I 

PRINT "(DOWN,2SPACEJM0EGLICHE PROGRAMMTYPEN" 

PRINT " C-CC-CCccccccce.c.ccccccccccccc " 

FOR 1=1 TO 7 

PRINT TAB(8)"<";I;") ";TL*(I> 


<USR> 
<7NI > 
<3D4> 
<5NI > 

< 1GR> 
<JC8> 
<DLN> 

< VON > 
<KBR> 

< ANK> 
<7M9 ' 

< 38D ;* 
<DH4> 
<00U> 

<SBP> 

<78D> 

<8K7> 

<3CD> 

<UAF> 

< J07> 

<VVP> 

<BC5> 


CEIR> 
<9NI > 
<B84? 
<FNI> 
<20L> 

< JPD> 
<RIR> 
<9SL> 
<MDO> 

< VC9> 
<4B8> 
<8G4> 
<BM9> 

< U6A > 

<8NB > 

<T07> 

<AES> 

<TN4> 

<PFO> 

<C5P> 

<40D> 

<887> 

<0S3> 

<TAF> 

<OMN> 

<4FJ> 

<3UL> 


<USR> 
<7NI > 


<V6A> 
< VM1 > 


<OHV> 
<HOK> 
<PK1 > 

< JLK> 

< ANI > 
<301 > 
<0I0> 
<RHL> 
<F6C> 
<0Q7> 

< JM9> 
<CEO> 
<DI4> 
<40E > 

<SVP> 

<28D> 

<947> 

<5CL> 

< 09E > 
<GQF> 
<H4N> 

< JHI > 

< I4L> 


<6FR> 
<MNI> 
<232> 
< DNC > 

<K21> 

<09J> 
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2010 NEXT I 

2020 PRINT "C3DQWN)" 

2030 FOR 1*1 TG 80: PRINT M 2"|i NEXT I 
2040 WINDOW 0,23,79,24 

2050 PRINT "CCLR) SUCH - TYP : "; CHR* (15) ; "5" ; CHR 
*(143); 

2060 GET KEY E*: PRINT " M 

207O IF VAL(E*)>7 GR VAL(E*>=© THEN RETURN 
2000 PRINT "CCLR)"x IC=0 
2090 FOR 1=1 TO PZ 

2100 IF VAL(E*)*TY(I) THEN GOSUB 10250 
2110 NEXT I 

2120 WINDOW 0,23,79,24 

2130 PRINT "CCLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN"| 

2140 GET KEY A* 

2150 RETURN 

2160 REM DISKETTEN SUCHEN 
2170 PRINT "CCLR>" 

2100 PRINT TAB (25) " 

2190 PRINT TAB(25)"JBC4SPACE)DISKETTEN SUCHENC4SPA 
CE)*" 

2200 PRINT TAB(25) 

2220 PRINT "CDOWN)SUCH DISKETTE ( 1 -"jDZs") : "s 
2230 L=3: Al=48: A2=57: GOSUB 10100 
2240 IF VAL(E*)=0 THEN RETURN 

2245 IF VAL(E*)>DZ OR (DB(2,1,VAL(E*))=0 AND DB(2 
,2,VAL(E*))=0) THEN PRINT : PRINT " (DOWN)DIE 
SE DISKETTE UMFASST DIE DATEI NICHT !"i GET 
KEY A*: RETURN 

2250 PRINT : PRINT "CUPIDISKETTE : ";E*;" SEITE A 
C16SPACE)" 

2260 PR»NT TAB(40)"CUPJDISKETTE : ";E*s" SEITE B" 
2270 Pft-INf " CDUWN >NAMEC13SPACE>PR0GRAMMARTC4SPACE 
JRLFOCKF NAHEC13SPACEJPR0GRAMMART C4SPACE)BL0 
ECKE» 

2280 PRINT '\CA<LC£gJLG&£££&^ 

229C' WINDOW 0,2»,79,21 

2300 PRINT '\QSf^JLQSLCßCCCCCcj:s:cccccccccccc££.QCCj:ccc_ 

£e ££fißl££ß££££Sl£J&£££££££j;££JZ££££££££££££:'i 

2310 WINDOW 0,9,40,20: PRINT "CCLR)"; 

2315 IF DB(2,1,VAL(E*))=1 THEN BEGIN 
2320 FOR 1=1 TO PZ 

2330 IF DI(I)=2*VAL(E*)—1 THEN PRINT NA*(I);TAB(1 
7)AL*(AR(I));TAB(34)BL(I): IC=1 
2340 NEXT I 

2350 BEND : ELSE PRINT "KEINE EINTRAEGE VORHANDEN 

2360 WINDOW 40,9,79,20: PRINT "CCLR)"; 

2365 IF DB(2,2,VAL(E*))=1 THEN BEGIN 
2370 FOR 1=1 TO PZ 

2380 IF DI(I)=2*VAL(E*) THEN PRINT NA*(I);TAB(17) 
AL*(AR(I));TAB(34)BL(I): IC=1 
2390 NEXT I 

24O0 BEND : ELSE PRINT "KEINE EINTRAEGE VORHANDEN 


2410 WINDOW 0,22,79,22 

2420 PRINT 

2425 PRINT "FREIE BLOECKE IF DB(2,1,VAL(E*)) 

=1 THEN PRINT DB(1,1,VAL(E*));: ELSE PRINT " 
664"; 

2427 PRINT TAB(40)"FREIE BLOECKE IF DB(2,2,V 

AL(E*))=1 THEN PRINT DB(1,2,VAL(E*))j: ELSE 
PRINT " 664"; 

2440 WINDOW 0,24,79,24 

2450 PRINT "CCLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN"; 

2460 GET KEY A* 

24/0 KtlUKN 

2480 REM FREIE BLOECKE SUCHEN 

2490 PRINT "CCLR,DOWN)" 

2500 PRINT TAB (25) "ÜJJ 

2510 PRINT TAB(25)"*C2SPACE)FREIE BLOECKE SUCHENC 
2SPACE)*" 

2530 PRINT "CD0WN,3SPACE)DISKETTENSEITE BLOECKE<3 
SPACE >DISKETTENSEITE BLOECKE C3SPACE>DISKETTE 
NSEITE BLOECKE " 


2550 FOR 1=1 TO 14 

2560 PRINT "C26SPACE>ÄC24SPACE>Ä" 

2570 NEXT I 
2580 PRINT "C2SPACE> 

fi.GJ.C.£C£C£fi.C,C,(i fi C C£.C 

fi" 

2590 WINDOW 0,24,79,24 

2600 DO l PRINT "CCLR,2SPACE)MINDEST - SUCH - LAE 
NGE (BLOECKEN) : 

2610 L=3: A1-4B: A2-57: GOSUB 10100: LOOP WHILE V 
AL(E*)=0 OR VAL(E*)>664 
2620 IC=0: PRINT "CCLR)" 

2630 FOR 1=1 TO DZ 
2635 FOR A=1 TO 2 

2637 FB=DB(1,A,I) 

2638 IF DB(2,A,I)«=0 THEN FB=664 
2640 IF FB>=VAL(E*) THEN BEGIN 

265Ö IC=IC+l! IF IC=40 THEN BEGIN 
2660 IOl« WINDOW 0,24,79,24: PRINT " CCLR)" ; TAB (2 
3)"WEITERE EINTRAEGE VORHANDEN"; 


<504 > 
<MLK> 
<DNI > 
<3GJ> 

<V0B> 

<BDM> 

<5GM> 

< BS5 > 
<4M9> 
<CRQ> 
<LQ4> 
<2QN> 

< 44P> 
<50D> 
<027> 

< 1 44 > 

<ALH> 

< 1 JD> 

<9O0> 

<D3F> 

<KIH> 

<7JL> 

<N4T> 


<TB1> 
< JMO> 


<RGV > 

<I8T> 

<HEO> 

<2H6> 
* <CIB> 
<DAV> 
< 9M9 > 

<3B1 > 
<TR4> 


2670 GET KEY A*: PRINT "CCLR)" 

2680 BEND 

2690 IF IC=1 THEN WINDOW 2,8,25,21: PRINT "CCLR)" 

2700 IF IC=14 THEN WINDOW 27,8,50,21: PRINT "CCLR 

2710 IF IC=27 THEN WINDOW 52,8,75,21: PRINT "CCLR 

2720 D*=STR*(I)i IF A=1 THEN S*="A": ELSE S*="B" 
2730 DO WHILE LEN(D*><3: D*=" "+D*: LOOP 
2740 PRINT "C4SPACE)(";D*;" ";S*;")C5SPACE)"|FB 
2750 GET A*: IF A*<>"" THEN GET KEY A* 

2760 BEND 

2770 NEXT A,I 

2780 WINDOW 0,24,79,24 

2790 PRINT "CCLR)";TAB(23)"KEINE WEITEREN EINTRAE 
GE VORHANDEN”; 

2G00 GET KEY A* 

2810 RETURN 

2820 REM DATEN DRUCKEN 
2825 IF PZ-0 THEN RETURN 
2830 IF DA*="" THEN BEGIN 
2840 PRINT "CCLR)" 

2850 PRINT "BITTE GEBEN SIE DAS HEUTIGE DATUM EIN 


mi ist* 


<NA7> 

<CM9> 


<P01> 

<LM4> 


<OBP> 

< 81 T > 


<4S3> 

< PNR > 

<48P> 

<70D> 

<0I7> 

<O40> 

< VQF > 

< 1 JD> 

<01G> 

<E3F> 


<BE3> 


<NGF> 
<N4V> 
<NM9> 
<5K4 > 


<ER9 > 
< QFK > 

•< 034 > 

£M8N> 
<RL4> 
<7MT> 
<P03> 
<9B0 > 
<OAB> 
<PH1 > 

<TJM> 

<JNU> 


2860 

2870 

2880 

2890 

290O 

2910 

2920 

2930 

294*3 

2950 

2960 

2970 

2980 

2990 

30O0 

3010 

3O20 

3030 

3040 


FOR 1-1 TO 80: PRINT NEXT I 

PRINT "CDQWN)TAG <1-31> C5SPACE): "; 

L=2: Al=48: A2=57: GOSUB 1010O* TA*=E* 

PRINT : PRINT "CDOWN)MONAT (1-12) C3SPACE): " 

; 

L=2: Al=48: A2=57: GOSUB 1O100: MO*=E* 

PRINT : PRINT "CDOWN)JAHR (Z.B.:07) : 

L=2: Al=48: A2=57: GOSUB lOlOO: DAS=TA*+"."♦ 
M0*+".19"+E* 

PRINT : PRINT "CDOWN)HEUTIGES DATUM : ";DA* 
PRINT "CDOWN)EINGABE IN ORDNUNG 7" 

DO : GET KEY A*: LOOP WHILE A*<>"J" AND A*<> 
"N" 

IF A*="N" THEN GOTO 2840 
BEND 

WINDOW 0,0,79,24 
PRINT "CCLR,DOWN)" 

PRINT TAB (26) " ^JjßßßßßßßßßßßJ^Pß.C m C m C m C m C.C.CJ t " 

PRINT TAB(26)"fiC4SPACE)DATEN DRUCKENC5SPACE) 
5" 


3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

320O 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

330O 

3310 

3320 

3330 

3340 

3350 


PRINT TAB(26)' 
PRINT TAB(27)' 
PRINT TAB(27)' 
r r,T NT TAB (27)" 
* INT TAB(27)' 
PRINT TAB(27)" 


C£JL" 


LISTE ALPHABETISCH" 
LISTE DISKETTEN" 
LISTE PROGRAMMART" 
LISTE PROGRAMMTYP" 
LISTE FREIE BLOECKE" 
HAUPTMENUE" 


CDOWN)A 
CDOWN)B 
CDOWN)C 
CDOWN>D 
CDOWN)E 

PRINT TAB(27)"CDOWN>F 
PRINT TAB(29)"C2D0WN)TASTE DRUECKEN" 

DO 

GET KEY A* 

IF ASC(A*)<71 AND ASC(A*)>64 THEN EX IT 
LOOP 

IF A*“"F" THEN RETURN 

ON ASC(A*)- 64 GOSUB 3170,3640,4400,5120,57 
30 

GOTO 2980 

REM LISTE ALPHABETISCH 
WINDOW 0,0,79,24 
PRINT "CCLR,DOWN)" 

PRINT TAB (26) " 

PRINT TAB(26)"SC3SPACEJLISTE ALPHABETISCHC3S 
PACE)*" 

PRINT TAB (26) H 
WINDOW O,10,79,24 

PRINT TAB(18)"VON NAME ( ";NA*(1);" - ";NA*( 
PZ)j" ) : 

L"16: Al=32: A2»95i GOSUB 1O100: G1*=E*: PRI 
NT 

IF G1*<LEFT*(NA*(1),LEN(Gl*)) OR G1*>LEFT*(N 
A*(PZ),LEN(Gl*)) THEN GOTO 3170 
PRINT TAB(18)"CDOWN)BIS NAME ( ";G1*;" - ";N 
A*(PZ);" ) : "; 

L=16: Al=32: A2-95: GOSUB 1O10O: G2*-E*t PRI 
NT 

IF G2*<LEFT*(G1*,LEN(G2*)) OR G2*>LEFT*(NA*( 
PZ),LEN(G2*)> THEN GOTO 3170 
PRINT TAB(18)"CDOWN)BENUTZEN 9IE (E)INZEL OD 
ER (R)OLLENPAPIER 7" 

DO : GET KEY DM*: LOOP WHILE DM*<>"E" AND DM 

*< >"R" 

PRINT TAB(18)"CDOWN)DRUCKER O.K. DANN CRVSON 
>RETURNCRVOFF> DRUECKEN" 

DO : GET KEY A*: LOOP WHILE ASC (A*) 013 
OPEN 1,4,SA: SE-1: PRINT “CCLR)" 

PRINTH1,"C9SPACE)****»********************** 
««*«*••»*••«»••««»*««*««#*•»*«*•*«•«««««•»*« 


3360 PRINT#1,“C33SPACE)DISK-MANAGER VERSION 1.0" 
3370 PRINTH1,"C9SPACE)*************************** 
*•*•*••**••«•«««««•«*•••*•«#*•»•«•*««•*«•##* 
"l Z=5r 1=0 
3380 DD 
3390 PRINTtfl 

3400 PRINT#1,"C9SPACE)";LEFT*("DATEI - NAME : "+D 
N*-»-" C16SPACE)" ,33) ; LEFT* ( SEITE i "+RIQHT* 


Listing 2. (Fortsetzung) 


<0OV> 

<9TE> 

<L01 > 

<9BJ> 

< 8U5 > 
<ML3> 
<MPH> 
<’6UQ> 

< UAE > 
<PRE> 

G4A: 

<R7H> 

<K2P> 

< 0Gd:- 
<PE7> 
<4KI' 
<84A> 

< BLQ > 
<ETM> 

<DIC> 
<0BI > 

<714> 
<97U> 

<S98> 

< K8A > 
<BKO> 


<MSQ> 

<014> 

<D94> 

<05B? 

< V90 > 
<DLU> 
<OPC> 
<IOF> 
<GKN> 

<PBA> 

< JSL> 
<999> 
<G87> 
<LHK> 
•<K1I> 

< ITI > 
<QBT> 
<D9H> 
<UFR> 
<58D> 
<Q75> 

< 44P > 
<GJI > 

<MS6> 
<782> 
<0C1> 
<096 > 
<OQF> 
<F3D> 

<0E8> 

< 0JF> 
<ADK> 

<8H0> 

<0N8> 

< S93 > 


< 05M > 
<2F8> 
<T7G> 


<GB2> 

<278> 

<EST> 

<KTN> 

<RJK> 


<2GC> 

<219> 


< 0N9 > 

< IEB> 
<2M3> 
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(STR*(SE),LEN(STR*(SE)) -1) + " -(15SPACE)",27) 
; DA* 

3420 PRINT#l 

3430 PRINT#1,"(9SPACEINR. C2SPACE)NAME £13SPACE>BLO 
ECKE PRORAMMART (SSPACE>DISKETTENSEITE FILETY 

P" 

3440 PRINT#1,"C9SPACE>- 


34&0 DO t I-I + l 

3470 PRINT TAB(30)"NAME s "|NA#(I) j " € 16SPACE,UP>" 
3480 IF LEFT#(NA#(I),LEN(Gl*)>>=ßl# AND LEFT#(NA* 
(I) ,LEN(G2#> )<=>G2* THEN BEGIN 
3490 Z-Z+l« GOSUB 10250 

350O PRINTtl,"(9SPACE)";LEFT#(RIGHT*(STR*(Z-3),LE 
N(STR#(Z-3))-1)+ "(4SPACE)",5)j LEFT#(NA*+"€18 
SPACE)",19)j 

3505 PRINT#1,LEFT#(RIGHT#(STR# (BL),LEN (STR* (BL))- 
1) + "€5SPACE>",6);LEFT#(AL#(AR(I))+"€17SPACE> 
",18)jLEFT#<"<"+D*+")€14SPACE,17)j TL*(TY(I 
) ) 

3510 BEND 

3520 IF INT(Z/60)-Z/6O OR I-PZ THEN EXIT 
3530 LOOP 

3540 SE-SE+1* IF I*PZ THEN EXIT 
3550 IF DM*-"E" THEN BEGIN 
3560 PR^NT#1,CHR*(12) 

3570 PRINT "CCLRJ";TAB(18)»BITTE NEUES BLATT EINS 
PANNEN UND (RVSON>RETURN(RVOFF) DRUECKEN" 
3580 GET KEY A*: PRINT "€CLR>" 

3590 BEND : ELSE FÜR A=1 TO 4: PRINT#1,CHR*(10)r 
NEXT A 
3600 LOOP 

3610 PRINT#1,CHR*(12) 

3620 CLOSE 1: CLOSE 2s CLOSE 3s DM*="" 

3630 RETURN 

3640 REM LISTE DISKETTEN 
3650 WINDOW 0,0,79,24 
3660 PRINT "<CLR,DOWN)" 

3670 PRINT TAB (26) " yX.CJXJJ_C.C,C.C.C.C,C_C_C,C.C.CJCJZ.C.CJ - 
3680 PRINT TAB(26)"fi€4SPACE)LISTE DISKETTEN€4SPAC 
E)S" 

3690 PRINT TAB (26) " 

3700 WINDOW 0,10,79,24 

3720 PRINT TAB(18)"VON DISKETTE ( 1 -";DZ;") : "; 
3730 L=3: Al=48: A2=57: GOSUB lOlOO: DL=VAL(E*)s 
PRINT 

3740 IF DL=0 OR DL>DZ THEN GOTO 3650 
3750 PRINT TAB(18)"(DOWNJBIS DISKETTE (";DL;"-";D 
Z;") : "; 

3760 L=3: Al=48: A2=57: GOSUB lOlOO: DH=VAL(E*): 
PRINT 

3770 IF DH (DL OR DH>DZ THEN GOTO 3650 
3780 PRINT TAB(18)"CDOWN)BENUTZEN SIE (E)INZEL OD 
ER (R) OLLENF’AP I ER ?" 

3790 DO : GET KEY DM*: LOOP WHILE DM*<>"E" AND DM 
#< >"R" 

3800 PRINT TAB(18)"CDOWN)DRUCKER O.K. DANN fRVSON 
)RETURN€RVOFF) DRUECKEN" 

3810 DO : GET KEY A#: LOOP WHILE ASC(A#)<>13 
3820 OPEN 1,4,SA: SE=1: ZE=3: PRINT "€CLR)" 

3B30 PRINT#1,"C9SPACE)************»******#»**«•»» 


38.40 PRINT# 1, " {33SPACE)DISK-MANAGER VERSION 1.0" 
3850 PRINT#1,"(9SPACE)**»*#****»*#***#*##»**#»##» 

••••*•■••■»*«•*««»«««««*«##»«K««««««ff»»ff««#* 

3860 DO 
3870 PRINT#1 

3BBO PRINT#1,"(93PACE)“;LEFT*(“DATEI - NAME : "+D 
N#+"€16SPACE)",33){LEFT*(SEITE s "+RIGHT# 
(STR*(SE),LEN(STR#(SE))-1)+" -€15SPACE)",27) 

{DA* 

3900 DO 

3910 A-0« B=Oi PRINT "€CLR) M 
3920 FOR 1-1 TO PZ 

3930 IF DI(I)=2*DL-1 THEN A-A+li A(A)-Il PRINT TA 
B(20)"DISKETTE s "jDLj" SEITE A i"|NA*(I) 
3940 IF DI(I)*2*DL THEN B*B+li B(B)-Is PRINT TA 

B(20)"DISKETTE i ";DLs" SEITE B t";NA#(I) 
3950 NEXT I 

3960 IF ZE+A+B+16>63 THEN EXIT 
3970 ZE=ZE+A+B+16 
3980 PRINT#ls PRINT#1 

3990 PRINT#1,"€9SPACE)DISKETTE s";DL;" SEITE s A" 
4000 PRINT#1 

4010 PRINT#1,"C9SPACE>NR. (5SPACE)NAME(16SPACE)BLO 
ECKE€5SPACE)PR0RAMMART €11SPACE)FILETYP" 

4O20 PRINT#1,"C9SPACE)- 


4O30 Z-l 

4040 IF DB(2,1,DL)«1 THEN BEGIN 
4O50 FOR 1=1 TO A 

4060 PRINT#1,"C9SPACEJ";LEFT#(RIGHT*(STR*(Z),LEN( 
STR#(Z)>-l)+"C7SPACE)",8);LEFT#(NA*(fl(I))*"( 
20SPACE)",21) ; 

4065 BL = BL( A (Z)) : PRINT#1,LEFT*(RIGHT*(STR*(BL) 
,LEN(STR*(BL))-1)+"(10SPACE)",11);LEFT*(AL*( 
AR(A(I))> + "€20SPACE)",23);TL#(TY(A(I)))s Z=Z 
+ 1 

4070 NEXT I 

4075 BEND : ELSE PRINT#1,"€9SPACE)KEINE EINTRAEGE 
VORHANDEN" 


<TTK> 

<223> 


<3BU> 


< I JH> 
<JIT> 
<OAH> 


4O80 PRINT#1,"(9SPACE)• 


409O PRINT#1,"C9SPACE)FREIE BLOECKE s IF DB(2 

,1,DL)=1 THEN PRINT#1,DB(1,1,DL): ELSE PRINT 
#1," 664" 

41O0 PRINT#1 1 PRINT#1 

4110 PRINT#1,"€9BPACE)DISKETTE s";DL;" SEITE s B" 
4120 PRINT#1 

4130 PRINT#1,"(9SPACEJNR. (5SPACE5NAME £16SPACE)BL0 
ECKE C5SPACE)PRORAMMART€11SPACE)FILETYP" 

4140 PRINT#1,"C9SPACE)- 


<QFD> 

<GIH> 

<L75> 


<2I2> 

<50U> 

< JES> 
<40P> 

< J3H> 
<P7P> 
<EDL> 

<9DH> 

<6G5> 

<QRG> 
<G29> 
<E5K> 
<U1G> 
<0Q7> 
<340 
<057> 
<OAF> 
<RMl > 

<CSR> 

< T 63 > 
<85T> 
<G45> 

€ 3AG > 

< 141 > 

.-CVF- 


<9EG> 

<41R> 

< GB2> 

<278> 

<OUD> 

<HT3> 

<5NN> 


< IGO 
<A49> 


<KGC> 

<ADB> 

<1M3> 


<STK> 

<EDR> 

<GTL> 

<PM9> 

<EOD> 

<2PN> 
<LA4> 
<95F> 
< PKK > 
<GC0> 
<42B> 
<0Q3> 

<FBU> 


4150 Z=1 

4160 IF DB(2,2,DL)-1 THEN BEGIN 
4170 FOR I«I TO B 

4180 PRINT#1,"C9SPACE)";LEFT#(RIGHT*(STR#(Z>,LEN( 
STR*(Z))—1)+"C7SPACE)",8)j LEFT#(NA#(B(I)) + " £ 
20SPACE)",2l)5 

4185 BL - BL(B(I))l PRINT#1,LEFT*(RIGHT*(STR*(BL) 
, LEN (STR* (BL) ) -1) + " € 10SPACE ) " , 11) j LEFT * (AL* ( 
AR(B(I)))+"€20SPACE)",23)t TL#(TY(B(I )))1 Z = Z 
+ 1 

4190 NEXT I 

4195 BEND : ELSE PRINT#1,"(9SPACE)KEINE EINTRAEGE 
VORHANDEN" 

4200 PRINT#l."(9SPACE)- 




4210 PRINT#1,"€9SPACE)FREIE BLOECKE : "ji IF DB (2 
,2, DL) =1 THEN PRINTttl,DB(1,2,DL): ELSE PRINT 
#1," 664" 

4220 DO : DL=DL+1 

4222 IF DB(2,1,DL)=1 OR DB(2,2,DL)*1 OR DL>DH THE 
N EXIT 
4224 LOOP 

4230 IF DL>DH THEN EXIT 
4240 LOOP 

4250 IF DL>DH THEN EXIT 
4260 IF DM*="E" THEN BEGIN 
4270 PRINT#1,CHR#(12) 

4280 PRINT "£CLR>"{TAB(18)"BITTE NEUES BLATT EINS 
PANNEN UND (RVSON)RETURN€RVOFF> DRUECKEN" 
4290 DO : GET KEY A*: LOOP UNTIL A*=CHR*(13) 

43O0 BEND : ELSE BEGIN 

4310 DO WHILE ZE<>63: PRINT#1: ZE=ZE+1: LOOP 
4320 FOR 1=1 TO 7; PRINT#1: NEXT I 
4330 BEND 
4340 ZE=0: SE=SE+1 
4350 LOOP 

1,CHR*(12) 

CLOSE 2: CLOSE 3 

4380 DM#="" 

4390 RETURN 

44O0 REM LISTE PROGRAMMART 
4410 PRINT "CCLR)" 

4420 PRINT TAB (25) " U.CC.C_C_CC,CCC.C.CCCC.CCCCCCCCC I " 

4430 PRINT TAB(25)"2U3SPACE>LISTE PROGRAMMART€3SP 
ACE)fl" 

4440 PRINT TAB (25) "j? 

4450 WINDOW 0,5,79,24 
4460 PRINT "€24SPACE)PR0GRAMMARTEN" 

4465 PRINT 

CC C C C.C CCCCC CCCCC C C C CC CCCCCCCCCCC " 

4470 FOR 1=1 TO 6 

4480 PRINT " ("; I; ") ";TAB(B)AL*(I);TAB(24)" (";I 
+6;") ";TAB(32)AL*(1+6);TAB(48)" (";I+12;") 

"|TAB(56)AL#(1+12) 

4490 NEXT I 

4495 PRINT TAB(48)" ( 19 ) "5AL*<19> 

4500 PRINT TAB(18)"<DOWN)VON ART (€2SPACE)1 (2SPAC 
E>- 19 ) s "j 

4510 L*2i A1=4B: A2-57: GOSUB 10100: G1=VAL(E*): 
PRINT 

4520 IF G1=0 OR Gl>19 THEN GOTO 4400 
4530 PRINT TAB(18)"(DOWN'BIS ART ( "jGlj" -(2SPAC 
E)19 > 3 

4540 L-2s Al-48: A2-57: GOSUB 1O10O: G2=VAL(E#)i 
PRINT 

4550 IF B2<G1 OR G2>19 THEN GOTO 4400 
4560 PRINT TAB(18)"(DQWN)BENUTZEN SIE (E)INZEL OD 
ER (R)OLLENPAPIER 7" 

4570 DO : GET KEY DM*s LOOP WHILE DM#<>"E" AND DM 

#< >"R" 

4580 PRINT TAB(18)"(DOWN)DRUCKER O.K. DANN (RVSON 
)RETURN(RVOFF) DRUECKEN" 

4590 DO : GET KEY A*s LOOP WHILE ASC(A*)<>13 
46O0 OPEN 1,4,SA: SE=1» PRINT " (CLR)" 

4610 PRINT#1,"I9SPACE)*»»»»•*««»»»**»#*»»**•*#»## 


< 2RL > 

< JE9> 

< JTN> 

< VRO> 


<4NL> 


<J6E> 

<L64> 

<544> 


4620 PRINT#1,"(33SPACE)DISK-MANAGER VERSION 1.0" 
4630 PRINT#1, " €9SPACE)##*-»»3hhm»*#*##«##**##*##*## 

■ K 

"s Z=5 

4640 PRINT#1 

4650 PRINT#1(9SPACE)"»LEFT*("DATEI - NAME : "+D 
N*+" (16SPACE)",33);LEFT*("— SEITE : "+RIGHT* 
(STR*(SE),LEN(STR*(SE))-l)+" -(15SPACE)",27) 
; DA# 

4680 DO 1 1=0 
4690 DO 1 I-I+l 

4700 IF AR(I)=G1 OR I*PZ THEN EXIT 
4710 LOOP 

4720 IF AR(I)=G1 THEN BEGIN 
4730 IF Z+5>=61 THEN GOSUB 4930 


<3JL> 


<TJ4> 

<GS2> 

<4U8> 

<0Q3> 

<FBU> 

< 2BL > 
<RF9> 
<3PN> 

< VNR )* 


<2RC> 


<6QL> 

:la4- 


r5B4r 
\ 23L> 


<DL4> 

<24H> 

<DHC> 

< 089 > 
<S96> 
<GA9> 
<SH5> 

< 85T > 

< AL6> 

<T31> 

<9SB> 

< I JK> 
<40L> 
<P8K> 
<DHU> 
<GH5> 
<SBP > 
<AD5> 
<B53> 
<KJH> 
<P27> 
<44G> 
<FLM> 
<U21> 

<AR8> 

<PI3> 

<HOB> 

<0H8> 

<0T0> 

<K61> 


<C1V> 

<504> 

<TJ3> 

<BCE> 

<CIV> 

< J5M> 

<VB6> 

<UIV> 

<L2H> 

<6B2> 

<978> 

<KVL> 

< IDD> 
<V3K> 


<GGC> 

<65P> 


<NPN> 

<1Q3> 


<C7K> 
<HJ7> 
<MAT> 
<G3I > 
<CDP> 
<H34> 
<NSK> 


aas?' 
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4740 GOSUB 5040 <07P> 
4750 1*0: P-0: S=1 <5HV> 
4760 DO : 1*1+1 <L2T> 
4770 PRINT TAB(30)"NAME : ";NA*(I)} " C16SPACE,UP>" <UQB> 
47B0 IF AR(I)"Gl THEN BEGIN <51K> 
4790 IF S=0 THEN S=li GOSUB 5040 <GDB> 
48O0 P“P+1: Z-Z+l: GOSUB 1O250 <CG6> 
4810 PRINT«1,"C9SPACE)"{LEFT*(RIGHT*(STR*(P),LEN( 

STR*(P))-1)+"C4SPACE)",5);LEFT*(NA*»"C18SPAC 
E>",19)| 


5000 PRINT#1, "C9SPACE >- 


5100 Z=Z+4 
5110 RETURN 

5120 REM LISTE PROGRAMMTYP 
5130 PRINT "CCLR>" 

5140 PRINT TAB(25)"i 
5150 PRINT TAB(25)"SC3SPACEDLISTE PROGRAMMTYPC3SP 
ACE>£" 

5160 PRINT TAB(25) "!££££££&&W£S£££££££££££A U 
5170 WINDOW 0,5,79,24 
5180 PRINT "C4SPACE)TYPEN" 

5185 PRINT "£££££££££££££." 

5190 FOR 1=1 TO 7 

5200 PRINT " ("; I; " > ";TAB(8)TL*(I) 

5210 NEXT I 

5220 PRINT TAB(18)"CDOWN>VON TYP (<2SPACE>1 C2SPAC 
E>- 7 ) i " ;CHR* (15) ; "1?CLEFT) " j CHR* (143) | 
5230 GET KEY Gl: PRINT Gl 
5240 IF G1=0 OR Gl>7 THEN RETURN 
5250 PRINT TAB(18)"{DOWN>BIS TYP ( ";G1;" -C2SPAC 
E>7 > « "|CMR* < 13) i •' 1 DCLEFT( 143) ; 

5260 GET KEY G2: PRINT G2 
5270 IF G2<G1 OR G2>7 THEN RETURN 
520O PRINT TAB(18)"(DOWN)BENUTZEN SIE (E>INZEL OD 
ER < R > OLLENPAPIER ?“ 

5290 DO r GET KEY DM*: LOOP WHILE DM*<>"E" AND DM 
*< >"R" 

5300 PRINT TAB(18)"CDOWN)DRUCKER O.K. DANN CRVSON 
)RETURNCRVOFF) DRUECKEN" 

5310 DO x GET KEY A4: LOOP WHILE ABC (A*) 013 
5320 OPEN 1,4,SA: SE-1: PRINT "CCLR)" 

5330 PRINT« 1 , " C9SPACE) •»•»»»*•*• •##*«*##«»****#»«* 

5340 PRINTM1,"C33SPACEJDISK-MANAGER VERSION 1.0" 
5350 PRINT«1,"C9SPACE}**»*»*+»*******+*»*+**+<»** 

Z=5 

5360 PRINT«1 

5370 PRINIM1,"C9SPACE)";LEFT*("DATEI - NAME x "+D 
N*+"C16SPACE)",33)j LEFT* <"— SEITE : "+RIGHT* 
(STR*(SE),LEN(STR*(SE)>-l)+" —CI5SPACE >",27) 
; DA* 

540O DO : 1-0 
5410 DO : 1=1+1 

5420 IF TY(I)=G1 OR I=PZ THEN EX IT 
5430 LOOP 

5440 IF TY(I)=G1 THEN BEGIN 

5450 IF Z»5>=61 THEN Z-Z-6: GOSUB 4930 

5460 GOSUB 5650 

5470 1=0; P=0: 9=1 

5480 DO : 1=1+1 

5490 PRINT TAB(30)"NAME : ";NA*(I);"C16SPACE, UP) " 


5500 IF TY(I)=G1 THEN BEGIN 
5510 IF S=0 THEN S=l: GOSUB 5650 
5520 P-P+l: Z-Z + l: GOSUB 10250 

5530 PRINT«1,"C9SPACE)LEFT*(RIGHT*(STR*(P),LEN( 
STR*(P))-l)+"C4SPACE) " , 5);LEFT*(NA*+"C18SPAC 
E)",19)j 

5535 PRINT«1,LEFT*(RIGHT*(STR*(BL),LEN(STR*(BL))- 
1)+"C5SPACE >" ,6);LEFT* (AL* (AR ( I ))+" C17SPACE) 
", 18);LEFT*("("+D* »"><14SPACE}",17)j TL* (TY(I 
) ) 


Of 

<EJH> 
<S31 > 
<PI7> 
<74S> 
<CLM> 
<V21> 


< IQ8> 
<023> 
<GGD> 
<701 > 
<OSB> 
<K21 > 
<H25> 
<504> 

<07Q> 

<B13> 

<G30> 

< 7MM > 
<997> 
<LOC> 


<B7B> 

<KVL> 
<IDD> 
< S3K > 


<SGC> 

<M7P> 


< N9L > 

< 0A3 > 


<CVK> 
<H37> 
<KAT> 
< I B0> 
CCDP> 
<B2C> 
<VKU> 
<RFK> 
<5HV> 

<M2T> 

<TQ7> 


. PRINT 

584C " G2<G1 OR G2>DZ THEN RETURN 

5850 PRINT TAB(18)"CDOWN)BENUTZEN SIE (E)INZEL OD 
ER (R)OLLENPAPIER ?" 

5860 DO : GET KEY DM*: LOOP WHILE DM*<>"E" AND DM 
*<>"R" 

5870 PRINT TAB(18)"CDOWN)DRUCKER O.K. DANN CRVSON 
>RETURN CRVOFF > DRUECKEN" 

5880 DO x GET KEY A*: LOOP WHILE ASC(A*)<>13 
5890 OPEN 1,4,SA: SE-1: PRINT "CCLR)" 

« »««* »ft« »««« N «#»«*««•«* «*««•* ■!»»»*«*■#««**** 

5910 PRINT«!,"C33SPACE5DISK-MANAGER VERSION 1.0" 
5920 PRINT«1,"C9SPACE)•*»»**•**•**»»»»«»#»»•**•** 

": Z=3: I=G1-1 
5930 DO 
5940 PRINT«1 

5950 PRINT«1,"C95PACE)";LEFT*("DATEI - NAME x "+D 
N*+"C16SPACE>",33)jLEFT*(SEITE : "+RIGHT* 
(STR*(SE),LEN(STR*(SE))-1)+" -C15SPACE)",27) 
; DA* 

5970 PRINT*1 

5980 PRINT#1,"C9SPACE)DISKETTEC3SPACE>!<3SPACE>FR 
EIE BLOECKE SEITE AC3SPACE>!C3SPACE1FREIE BL 
OECKE SEITE B" 

5990 PRINT«1,"C9SPACE)- 

6010 DO 

6020 1=1+1: Z-Z+2 

6025 IF I>G2 OR Z>-60 THEN EX IT 

603© PRINT TAB(20)"DISKETTE i "|I|"CUP>" 

6039 TRAP 

6040 PRINT«l,"<12SPACE>";LEFT*(RIGHT*(STR*(I),LEN 
(STR*(I))-1)+"C7SPACE)",8) } "!C1©SPACE >"; 

6042 IF DB(2,1,I)-1 THEN PRINT*1,LEFT*(RIGHT*(STR 
*(DB(1,1,I)),LEN(STR*(DB(1,1,I)))-1)+"CI6SPA 
CE>",17)|: ELSE PRINT*1," 664 C14SPACE)"; 

6045 PRINT * 1,"!CIOSPACE >";: IF DB(2,2,I) = 1 THEN P 
RINT*1,DB(1,2,1): ELSE PRINT*1," 664" 

6050 LOOP 

6O60 SE-SE+1: Z=0: IF I>G2 THEN EX IT 
6070 IF DM*="E" THEN BEGIN 
608O PRINT«1,CHR*(12) 

609O PRINT "CCLR)"|TAB(18)"BITTE NEUES BLATT EINS 
PANNEN UND CRVSON>RETURNCRVOFF> DRUECKEN" 
6100 GET KEY A*: PRINT "CCLR>" 

6110 BEND : ELSE FÜR A=1 TO 7: PRINT«1,CHR*(10): 

NEXT A 
6120 LOOP 

6130 PRINT*1,CHR*(12) 


<73S> 

< JL5> 

< D86 > 


<QH2 > 


4815 

PRINTII1,LEFT*(RIGHT*(STR* (BL) ,LEN (STR* (BL) )- 


534 0 

BEND 

<HME> 


I) + " (6SPACE> " ,6) ; LEFT* (AL* (AR (I) > -*" C17SPACE) 


5550 

IF I=PZ THEN EXIT 

<764 > 


", IS) jLEFT* (" ("+D*+") C14SPACE)", 17) ;TL*(TY(I 


5560 

IF Z >-61 THEN Z-Z-6x GOSUB 4930 

<S1K> 


) ) 

<N36> 

5570 

LOOP 

<KEP > 

4820 

BEND 

<HGE> 

55B0 

BEND 

<1GE> 

4830 

IF I=PZ THEN EXIT 

<6M2> 

5590 


<4 AL 

1840 

IF Z >=50 THEN GOSUB 4930 

<NED> 

5600 

IF Gl>G2 THEN EXIT 

<990> 

4Q50 

LOOP 

<40P> 

5610 

LOOP 

<KEP> 

4B60 

BEND 

<IOE> 

3620 

PRINTNl,CHR*(12): DM*="” 

<Q9N> 

4870 

G1=G1+1 

<6 AL > 

5630 

CLOSE 1: CLOSE 2: CLOSE 5 

<003> 

4880 

IF G1>G2 THEN EXIT 

<B98> 

3640 

RETURN 

<947> 

4890 

LOOP 

<K6P> 

5650 

PR1NTW1 

<1E3> 

4900 

PRINT*1,CHR*(12): DM*~"" 

<R9N> 

3660 

PRINT« 1 , •• <38SPflCE!"i TL* (01 ) 

<IHL> 

4910 

CLUSE l! CLOSE 2l CLOSE 3 

<0C3> 

5670 

PRINT»1: PRINT "SCLR>";TAB(38)TL*(Gl>: PRINT 


4920 

RETURN 

<8S7> 


TAB (37 )"£££.&£": PRINT 

<S4U> 

4930 

SE=SE+1 

<PPD> 

5680 

PRINT«1,"C9SPACE>NR.C2SPACE)NAMEC13SPACE>BL0 


4940 

IF DM*=''E" THEN BEGIN 

<S7D> 


ECKE PRORAMMARTC8SPACE)DISKETTENSEITE FILETY 


4950 

PRINT«1,CHR*(12) 

<FLI > 


P" 

<BRU> 

4960 

PRINT "CCLR>";TAB(18)"BITTE NEUE5 BLATT EINS 


5690 

PRINT«1,"19SPACE5- 


4970 

GET KEY fl*: PRINT "(CLR>'‘ 

<30J> 



<3JH> 

4780 

BEND : ELSE DO : PRINT»): Z=Z+1: LOOP UNTIL 


5710 

Z=Z+4 

<KE1 > 


Z=66 

<7MA > 

5720 

RETURN 

<9C7> 

4990 

Z=0: S=0 

<CVR> 

5730 

REM LISTE FREIE BLOECKE 

<4CH> 

5000 

BEND 

<9HE> 

5740 

PRINT "(CLR)" 

<EDM> 

5O10 

PRINT«1,"C9SPACE)";LEFT*("DATEI - NAME : "+D 


5750 

PRINT TflB (25) 11 u.c.c.c.c.c.c.c.c.cj.c.c.c.c.c.c.[:.(;.c.c.c.c.cj" 

<UM1 > 


N*+"CI6SPACE)",33>;LEFT*("- SEITE : "+RIGHT* 


5760 

PRINT TAB(25)"£C2SPACE)LISTE FREIE BLOECKEC2 



(STR* (SE) , LEN (STR* (SE) 1-1)*'' - C15SPACE5 " , 27) 



SPACE) 2 ." 

<OFR> 


; DA* 

<CVK> 

5770 

PRINT TflB <25) " J.CC.CLLL.LCC.C.LLC.LC.CCC.CLCL_C 

<PM3> 

5025 

Z=3 

<S7K> 

5780 

WINDOW 0,5,79,24 

<GSC> 

503O 

RETURN 

<PI7> 

5790 

PRINT TAB(18> ” (DOWNIVON DISKETTE ( (2SPACEJ1 ( 


5O40 

PRINTS1 

<0Q3> 


2SPACE)- "; DZ ;" ) : 

<819> 

5O50 

PRINT«1,"C36SPACE)" ; AL*(Gl) 

<7HC> 

5BO0 

L=3: Al=48: A2=57: GOSUB 1O10O: G1=VAL(E*): 


5060 

PRINT« 1 : PRINT '■ (CLRT " ; TflB (30) flL* (Gl ) : PRINT 



PRINT 

<IIV> 


tab ( 29 )" cc_ccj:j:j:j:.cc_cc.cccx.cc." • print 

<PCT> 

5810 

IF G1=0 OR Gl>D THEN RETURN 

<OL0> 

507O 

PRINT»!, " {9SPACEJNR.(2SPACE>NAME{1JSPACE5BL0 


5820 

PRINT TAB(18) " CDOWN)BIS DISKETTE ( ";G1;" - 



ECKE PRORAMMARTC8SPACE>DISKETTENSEITE FILETY 



"■DZ;" ) : "; 

<C03> 


P" 

<9BU> 

5830 

L=3: Al=48: A2=57: GOSUB 10100: G2=VAL(E*): 



<CIV> 
< V8G> 


<6NB> 

<5TH> 
<LLI > 
<RBK> 


< BGC > 
<K3H> 


<FF7> 

<LEN> 

<2I3> 


< DJ K > 

< 2U3 > 


<DLD> 

<D3N> 
<9D7> 
<S36> 
<75A> 
< JNF> 
<RF5> 

<P2Q> 


<DHN> 

<EC1 > 
<4CP> 
<ODL> 
<549> 
< AD5 > 

<95H> 

<CHD> 

<OTG> 

<GE9> 

<850 
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6140 

6150 

6160 

6170 

6100 

6190 

6200 

6210 

6220 

6230 


6240 

6250 

6260 

6270 

6200 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6300 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6400 

6490 

6500 

6510 

6520 

6530 

6535 

6540 


6550 

6570 


6500 

6590 


6600 

6610 


CLDSE 1: CLOSE 2: CLÜSE 3s DM*«"" 

RETURN 

REM DATEN EDITIEREN 
SI-0 

WINDOW 0,0,79,24 
PRINT "CCLR)"; 

PRINT TAB (25) " 

PRINT TAB<25>"ÄC5SPACE)DATEN EDITIERENC4SPAC 

EJa" 

PRINT TAB(25)"J ££££££££££££££££££££££££&" 
PRINT TAB(27)"(DOWNJA : NACHLADE-PRG’S MODUS 
AN *'|i IF TR-1 THEN PRINT " <3LEFT)AUS": ELS 
E PRINT " " 


"CDOWN>B 

* (DOWNJC 

* CDOWN)D 
' (DOWNJE 


• (D0WN5G 

• (DOWN)H 

• (DOWN>I 


DATEN LESEN" 

DATEN AENDERN" 

DATEN EINFUEGEN" 
PROGRAMMARTEN AENDER 


DIRECTORY" 

DISKE T TENKOMMANDO" 
HAUPTMENUE" 


PRINT TAB(27)' 

PRINT TAB(27)’ 

PRINT TAB(27)' 

PRINT TAB(27)* 

N" 

PRINT TAB(27)"CDOWNJF s PROGRAMMTYPEN AENDER 
N" 

PRINT TAB(27)' 

PRINT TAB(27)' 

PRINT TAB (27) " 

PRINT TAB(29)" (2D0WN)TASTE DRUECKEN" 

DO 

GET KEY A* 

IF ASC(A#)<74 AND ASC(A*)>64 THEN EX IT 
LOOP 

IF A*="I" THEN GOTO 0560 

ON ASC(A*)- 64 GOSUB 6400,6430,7050,0000,01 

70,0360,9040,9730 

GOTO 6100 

REM NACHLADE PRG-MODUS 

IF TR=0 THEN TR-1: ELSE TR=0 

RETURN 

REM DATEN LESEN 

PRINT " CCLR>": 01=2 

PRINT TAB (27) "^AC A g^ P AC.C.C.CJ.C.C.C JJ J." 

PRINT TAB(27)" JK4SPACE>DATEN LESENC4SPACE>J5" 
PRINT TAB (27) " ^.CACJJJJ.C.C.C.CJJ.C.K " 

WINDOW 0,5,79,24 
GOSUB 9930 
FOR 1=1 TO PZ 

IF DI(I)=DK THEN NA#<I)="ZZZZ" 

NEXT I 

IF DN>DZ THEN DZ=DN 
DB(2,S,DN)=1 

PRINT "CCLR,6D0WN>";TAB(12)"BITTE DISKETTE I 
NS LAUFWERK SCHIEBEN UND CRVSONJRETURNCRVOFF 
> DRUECKENCSHF.SPACE)!" 

DO : GET KEY A#: LOOP UNTIL A*=CHR*(13) 

PRINT " CCLR,6D0WN)";TAB(25)"DAS DIRECTORY WI 
RD GELESEN{DOWN}" 

OPEN 1,0,0,"*0": I1=0: 12=1 

IF DSO0 THEN PRINT "CCLR,6D0WNJ";TAB(25)"CR 

VSONJDISK - STATUS:CRVOFF} ";DS*: GET KEY A* 

: DB(2,S,DN)=0: RETURN 

GET #1,A*,B* 

DO 


6620 GET «tl,A*,B# 

6630 GET #1,A*,B* 

6640 C=0 

6650 IF A*< > M " THEN C=ASC(A*) 

6660 IF B#< >"" THEN C=C+ASC(B*)*256 
6670 BL*=MID*(STR*(C),2) 

6600 GET #1,B*: IF STOO THEN 7020 
6690 IF B#< >CHR#(34) THEN 6600 
6700 DO 
6710 GET ttl,B* 

6720 IF B*=CHR#(34) THEN EX IT 

6730 N*»N**P* 

6740 LOOP 
6750 DO 
6752 GET #1,B* 

6756 LOOP WHILE B*=CHR*(32) 

6760 C*="" 

6770 DO 

6772 C#=C*+B*» GET «1,B* 

6774 LOOP WHILE B*<>"" 

6700 TY#=LEFT*(Cf,3) 

6790 PRINT TAB(25)"GELESENE - FILES "sII;"CUP}" 
60OO Il-Il+l 

6010 IF I1-1 THEN N*="": PZ=PZ+1* GOTO 6620 

602O IF 12=1 THEN BEGIN 

6030 NAf(PZ)=Nf: DI(PZ)-DKi I2=0 

6040 FOR A=1 TO 6 

6050 IF TY#=TL*(A> THEN TY(PZ)»A 

6060 NEXT A 


6070 IF TY(PZ)=0 THEN TY(PZ>=7 
6B0O BEND 


6090 IF TR=0 THEN BL(PZ)=BL(PZ)+VAL(BLf) 

6900 IF TR=0 AND N* = "-" THEN PZ=PZ 

+ls 12=1 

6910 IF TR*1 THEN BEGIN 
6920 BL(PZ)=VAL(BLf) 

6930 12=1 
6970 PZ=PZ+1 
6900 BEND 
699C N*="" 

7000 IF STOO THEN EX IT 
7010 LUOP 
7020 CLOSE 1 

7030 DB(1,S,DN)=VAL(BLf) 

7040 GOTO 7140 


<65G> 

<P27> 

<54K> 

<8TB> 

<OPC> 

<T7G> 

<63D> 

<DED> 

<9JF> 


<HDS> 

<OFG> 

<BMB> 

<P7G> 

< JHK> 

<MPL> 

<G00> 

< IQN> 
<QW> 
<SPN> 
<DDN> 

< OOD > 
<5KR> 
<GE9> 
<RAO> 

<VKM> 

< 0G2> 

< 640 > 

< VMS« 
<907 > 
<6SR> 
<N3Q> 

< 09R> 
<PAK> 
<OMP> 
<HK9> 
<GUS> 
<NM9> 
<MSR> 
<D14> 

< E8K > 

<MI7> 


<FL5> 
<BC1 > 

<HUB> 

<4KD> 


<IOI> 

<ETK> 

<5CN> 

<ATK> 

<8TK> 

<PR3> 

<3B0> 

<KKE> 

<FAO> 

< 1U2> 
<D5A> 
<6CR > 
<TJK> 
<ECK> 
<FDn> 
<0B9> 
<3CF> 

< SRK. > 

< VF I > 
<K6l> 

< 1C7> 
<KVE> 

< I6S> 
<691 > 
<C00> 
<PPD> 
<DM8> 
<LJA> 

<7DC> 
<TI i > 
<OGV J 
<SVO> 
<H9E> 

< PRE > 

< OKP > 

<BSB> 

<FVB> 

<LMC> 

<V7L> 

<GKF> 

< HQE > 
<MM9> 
<RH3> 

<4CP> 

<DCN> 

<N7A> 

< 10A> 


7050 REM DATEN AENDERN 
7060 IF SI=0 THEN SI»1 
7070 WINDOW 0,0,79,24 
7080 PRINT " (CLR)" 

7090 PRINT TAB (29) " £££££££££££££££££££££££SLU." 
7100 PRINT TAB(29)"SC5SPACE)DATEN AENDERNC6SPACE} 

a M 

7110 PRINT TAB(29) " 3££££££££££££££££££££££££.*" 

7120 WINDOW 0,5,79,24 

7130 GOSUB 9930: PRINT "CCLR>" 

7140 1=0: LI=0: WINDOW 0,4,79,24 
7150 PRINT "CCLR,DOWN)" 

7160 PRINT "DISKETTE NR. DN;TAB(30)"SEITE : "; 

Sf;TAB(57)"FREIE BLOECKE :";DB(1,S,DN) 

7170 PRINT '£££££££££££££££££££££££££££££££££££££. 

&£j.c.c.c 11 

7100 PRINT "CDOWN,21SPACE)MOEGLICHE PROGRAMMARTEN 
C20SPACE)TYPEN" 


7190 print " c.c.c.c.c.c.c.c.ci:j:,cj;ji:jj,cj,c_c_c_cj:x_c£.c.c.cj:j:.c,c.c,cc 

£JJiLCJiLC^J.CJJJJ.CJiLCJj;.CJ:J.C.C.g.C.(4SPACE > £££££££ 


7200 

PRINT " 

(Ol) 

"; AL#(1);TAB(27)"< 07) " 

;AL*(7); 


TAB(49)" 

(13) 

11 ; AL* (13); TAB (71) ; " (1) 

";TL#(1) 

7210 

PRINT " 

(02) 

";AL#(2);TAB(27)"(OB) " 

;AL# (8) ; 


TAB (49) " 

(14) 

";AL*(14);TAB(71);"( 2 ) 

";TL#(2) 

7220 

PRINT " 

(03) 

";AL#(3);TAB(27)" (09) " 

;AL# (9) ; 


TAB(49)" 

(15) 

";AL#(15);TAB(71);"(3) 

";TL*(3) 

7230 

PRINT " 

(04) 

";AL#(4);TAB (27) "(10) " 

; AL*(10) 


; TAB(49) 

"(16) 

"; AL*(16);TAB(71); " (4) 

"; TL* ( 4 

7240 

/ 

PRINT " 

(05) 

"; AL* (5); TAB (27) "(11) " 

;AL#(11) 


;TAB (49) 
) 

" (17) 

"; AL* ( 17) ; TAB(71 );" (5) 

"; TL*(5 

7250 

PRINT " 

(06) 

"; AL* (6) ;TAB (27) "(12) " 

; AL*(12) 


5 TAB(49) 

" (18) 

"; AL#(18) ; TAB(71 );" (6) 

TL*(6 


);"CDOWN> 


7260 PRINT TAB(15)"C7SPACE)NAME C9SPACE)LAENGE C8SP 
ACE >ART C1OSPACE>TYP" 

7270 PRINT TAB(15)"i 


7200 PRINT TAB(15)"£C18SPACE>aC6SPACE>aC18SPACE>Ä 
C5SPACE>a" 

7290 PRINT TAB(15 )"3 
7300 FOR IC=1 TO PZ 

7310 IF DI(IC)=DK AND NAf(IC)<>"ZZZZ" THEN BEGIN 
7320 WINDOW 17,20,33,20: PRINT "CCLR)";NAf(IC); 
7330 WINDOW 36,20,40,20: PRINT "CCLR5";MIDt(STR#( 

734® h . t (AR (IC) ) =" " THEN AR (10 = 19 
7350 WINDOW 43,20,59,20: PRINT "<CLR>";AL*(AR(IC) 


7360 WINDOW 62,20,65,20: PRINT "CCLR)";TL*(TY(IC) 

>S 


7370 IF I=0 THEN BEGIN 
7380 WINDOW 11,23,69,24 

7390 PRINT "CCLR}WOLLEN SIE DIE DIE ANZAHL DER FR 
EIEN BLOECKE AENDERN (J/N)7"; 

7400 GET KEY Af: 1=1 
7410 PRINT "CCLR)" 

7420 IF A*="J" THEN BEGIN 

7430 WINDOW 57,6,77,6: PRINT CHR*(15);"CREDJFREIE 
BLOECKE : CBLACK)";CHR*(143); 

7440 A=73: B=77: C=4: D=4S: E=57: G=6: D*=STR*(DB 
(1,S,DN)): GOSUB 9520: DB(1,S,DN)=VAL(RIGHT# 
(Df,ID) 

7450 WINDOW 57,6,79,6: PRINT "FREIE BLOECKE :";DB 
(1,S,DN); 

7460 BEND 
7470 BEND 

7400 WINDOW 25,22,60,24 

7490 PRINT "CCLR,4SPACE><A) - AENDERN" 

7500 PRINT "C4SPACE)(L) - LOESCHEN" 

7510 PRINT "(SPACE) - NAECHSTER FILE"; 

7520 GET KEY A* 

7530 IF A#< >"A" AND A*<>"L" AND A#<>" " THEN GOTO 
7520 

7540 PRINT "CCLR)" 

7550 IF A*=" " THEN LI=1 

7560 IF A#="L" THEN SI-2: NA*(IC)="ZZZZ": GOTO 80 
30 

7570 IF A#="A" THEN BEGIN 
7575 LI=1 

7580 REM NAMENSEINGABE 

7590 WINDOW 15,19,34,22» PRINT CHR*(15);MR#(1);CH 
R*(143)| 

7600 WINDOW 17,20,33,20» PRINT "CBLACK,CLR)";NA*( 
IC); 

7610 A=17» B=33* C=16: D-32: E=95: G»20» D#=NA*(I 
C): GOSUB 9520 

7620 IF NA*(IC)< >D# THEN SI=2 
7630 NA*(IC)=D* 

7640 WINDOW 15,19,34,22* PRINT MS*(1); 

7650 WINDOW 17,20,33,20: PRINT "CBLACK,CLR)NA*( 
IC); 

7660 REM LAENGENEINGABE 

7670 WINDOW 34,19,41,22» PRINT CHR*(15);MR#(2);CH 
R*(143); 

7680 WINDOW 36,20,40,20: PRINT "CBLACK,CLR)"; MID* 
(STR*(BL(IC)),2); 

7690 A=36: B=40: C=4: D=48: E=57: G=20: D*=STR*(B 
L(IC)): GOSUB 9520: BL(IC)=VAL(RIGHT*(Df,I1) 
) 

7700 WINDOW 34,19,41,22* PRINT MS*(2); 


<4CH> 

<E70> 

<PT8> 

<CTM> 

<KFD> 


<20D> 

<PVF> 

<H4B> 

<9CP> 

<400> 

<mof: 


< 3QB > 
<2S1> 

<E9U> 

<B4N> 

<PCA> 

<NG2> 

< NQ J > 

<2K3> 


<5U0> 

< 3U9 > 
<49J > 

< 1MR> 

<5HI > 
<B6F> 
<TJ7> 
<BRQ> 

<MF4> 

<9TV> 

<6NC > 

<82D> 

<F06> 

< BG7 > 

<0NG> 

<F07> 

<CLM> 

< 9H6 > 

<BRA> 


<!M52> 

<9PU> 

<HIE> 

<LIU> 

<DOV> 

<QLS> 

<QLC> 

<TIM> 

<3GD> 

< OBN> 
<DDM> 
<2D3> 

<FND> 

<FH8> 

<DTV> 

<5KM> 

< 1 0A> 

<HDE> 

<TJP> 

<2K3> 

<2K2> 

<4UK> 

<5FU> 

<7KU> 

<99M> 

<F01> 


<T75> 
< CBM > 
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ANWENDUNG 


PRINT CHR*(15);MR*(1);CH 
'* {BLACK , CLR ) "; AL* < 


7710 WINDOW 36,20,40,20: PRINT " {BLACK,CLR)";RIGH 
T*(D*,I1); 

7720 REM ARTEINGABE 
7730 WINDOW 41,19,60,22: 

R* <143); 

7740 WINDOW 43,20,59,20: PRINT 
AR(IC)); 

7750 DO 
7760 D*="" 

7770 WINDOW 43,20,59,20: PRINT "{BLACK,CLR>"JAL# f 
AR(IC)); 

7780 FÜR 12=1 TO 2 

7790 GET KEY A*: A=ASC(A*) 

7B00 IF A=20 THEN D*="": GOTO 7700 
7810 IF A“13 AND 12-1 THEN EXIT 
7820 IF A>57 OR A<48 THEN GOTO 7790 
7830 D*=D**A* 

7840 NEXT 12 

7850 IF VAL(D*)>18 OR VAL(D*)=0 THEN GOTO 7780 
7860 AR(IC)-VAL(D*): WINDOW 43,20,59,20: PRINT "C 
CLR)";AL*(AR(IC)); 

7870 LOOP 

7880 WINDOW 41,19,60,22: PRINT M3*(3)| 

7890 WTNDOW 43,20,59,20: PRINT " (BLACK,CLR)AL*( 
AR(IC))| 

7900 REM TYPENEINGABE 

7910 WINDOW 60,19,66,22: PRINT CHR*(15);MR*(4);CH 
R*(143); 

7920 WINDOW 62,20,65,20: PRINT "CBLACK,CLR) ";TL*( 
TY(IC)); 

7930 DO 

7940 GET KEY A*: A=ASC(A*> 

7950 IF A=13 THEN EXIT 
7960 IF A>54 OR A<49 THEN GOTO 7940 
7970 WINDOW 62,20,65,20: TY<IC)=ASC(A*)-48: PRINT 
" {CLR ) " } TL* (TY (IC) ) ; 

7980 LOOP 

7990 WINDOW 60,19,66,22: PRINT MS*<4); 

0000 WINDOW 62,20,65,20: PRINT "CBLACK,CLR)";TL*( 
TY(IC))J 
801O BEND 
8020 BEND 
8030 NEXT IC 
8040 WINDOW 20,23,60,24 

8050 PRINT “(CLR)KEINE WEITEhCN EINTRAGUNGEN VORH 
ANDEN» 

8055 GET KEY A* 

8060 Dß(2,5,DN)=LI 
8070 RETURN 

8080 REM DATEN EINFUEGEN 
8O90 PRINT "(CLR)" 

8100 PRINT TAB (27) " U-C.C.CAC.CJJ.CC.CACAC.C.CAC.C.C.I » 

8110 PRINT TAB(27)"£<3SPACE)DATEN EINFUEGEN{3SPAC 
E)fi" 

8120 PRINT TAB (27) » J.qcCCJCCCCCCC.Cccc,cCCCC,«. 1 ’ 

B130 WINDOW 0,5,79,24: GOSUB 9930 

8140 PZ=PZ+1: NA*(PZ)=»NEUER EINTRAG»: TY(PZ)=7: 

AR(PZ)=19: DI(PZ > =DK: SI=2 
8150 IF DK>DZ THEN DZ=DK 
8155 DB(2,S,DN)=1 
8160 GOTO 7140 

8170 REM PROGRAMMARTEN AENDERN 
8175 DO 

8180 IF SI=0 THEN SI=1 
8190 PRINT "{CLR)" 

8200 PRINT TAB (25) " JJLC. C 

8210 PRINT TAB(25)"JK2SPACE)PROGRAMMARTEN AENDERN 
(25PACE)Ä" 

8230 PRINT »(DOWN,22SPACE)AKTUELLE PROGRAMMARTEN" 
0250 FOR 1 = 1 TO 6 

8260 PRINT " ("{I»") ";TAB(8)AL*(l) ; TAB(24)" ("jl 
+6|") " j TAB (32) AL* (I -*-6) ; TAB (40) " <"»I + 12|") 
"lTAB(56)AL*(1+12) 

8270 NEXT I 

8280 PRINT " (DOWN)ART - NUMMER{3SPACE): "; 

8290 DO : L=2s Al=40: A2-57: GOSUB 10100: LOOP WH 
ILE VAL(E*)>18 
8300 IF VAL(E*)=0 THEN EXIT 
B310 I-VAL(E*) 

8320 PRINT : PRINT "(DOWN)PROGRAMM - ART : "j 
0330 L=16: Al-32: A2-95: GOSUB 10100 
0340 AL*(I)-E* 

B345 LOOP 
8350 RETURN 

0360 REM PROGRAMMTYPEN AENDERN 
0365 DO 

8370 IF SI=0 THEN SI-1 

8380 WINDOW 0,0,79,24: PRINT "(CLR)" 

8390 PRINT TAB (25) 

8400 PRINT TAB(25)"5(2SPACE'PROGRAMMTYPEN AENDERN 
(2SPACE )£" 

041O PRINT TAB (25) 

B420 WINDOW 25,5,79,24 

043O PRINT "(DOWN,2SPACE)AKTUELLE PROGRAMMTYPEN" 

8450 FOR 1=1 TO 6 

8460 PRINT TAB(B)"(":Ij") ";TL*(I) 

8470 NEXT I 

8480 PRINT "(DOWN)TYP - NUMMERC3SPACE): ";CHR*(15 
); "f?CLEFT>"; CHR* (143); 


<0J2> 
<640> 

<BHE> 

<FPB> 
<7CV> 
<Q3P> 

<F1B> 
<PMG> 
<H38> 
<N5N> 
<VLJ> 
<HP3> 
<TJ5> 
<TQG> 
^G0D> 

<TÜA> 
<S7P> 
<L8J> 

<B1B> 
<1K6> 

<90A> 

<GS9> 
<TFN> 
<01C> 
<RAO> 
<NHK> 

<JRR> 
<819> 
<E1U> 

<RS9> 
<TBU> 
<HAE> 
<198> 
<0AF> 

<F7H> 
<FCD> 
<MUG> 

<B50> 
<3LM> 
<KDS> 

<611> 
<L1U> 
<CV1> 

<DON> 
<9D0> 
<EA4> 
<E8A> 
<BDD> 
<NOT> 
<D7K> 
<35M> 

< BLK > 

< AV7 > 
<L5M> 
<E36> 

<LVi> 
<B61> 


;liv> 

<KI4> 

nOVN> 

<2K7> 

<07H> 

<4NB> 

<SHV> 

<BTM> 

<B00> 
< 111 > 
<007> 
<A5B> 
<IG>9> 
<TJM> 

< I59> 
<"E5K> 

'UBF> 

< ILM> 
<0FL> 
<RMG> 

< HPA > 
<D61> 
<OPH> 

<KU4> 


Lli 


8490 DO : GET KEY E*: LOOP WHILE VAL(E*)>6 
8500 PRINT E*: IF VAL<E*)=0 THEN EXIT 
8510 I=VAL(E* > 

8520 PRINT "(DOWN)PROGRAMM - TYP : 

8530 L-3« A1=32: A2=95: GOSUB 10100 
8540 TL*(I)*E* 

8545 LOOP 
8550 RETURN 

8560 REM DATEN SORTIEREN UND SPEICHERN 
8570 IF PZ=0 OR SI-0 THEN RETURN 
8580 IF SI = 1 THEN GOTO 9240 
8590 SZ-INT(PZ/2)+PZ-l 
8600 PRINT "(CLR,7D0WN)" 

061O PRINT TAB (18) " AÜL&C 

8620 PRINT TAB(18)"U{47SPACE)£" 

B630 PRINT TAB(18)"JK11SPACE)DIE DATEN WERDEN BOR 
TIERT(11SPACE>£" 

8640 PRINT TAB(18)"aC47SPACE)Ä" 

8650 PRINT TAB(18)"Ä(5SPACE)ES SIND"jSZ|"RECHENSC 
HRITTE NOTWENDIG";TAB(66) ; "Ä" 

8660 PRINT TAB(18)"IK47SPACE)A" 

8670 PRINT TAB(18)"Ä<47SPACE)a" 

8680 PRINT TAB(18)"fi(47SPACE)fi» 

8690 PRINT TAB (18) 


B70O PRINT "(4UP)" 

0710 REM HEAP SORT 
8720 L=INT(PZ/2)+1: R=PZ 
8730 DO WHILE L>1 
B740 L»L-li SZ=SZ-1 

8750 PRINT TAB(30)"VERBLEIBENDE SCHRITTE : ";STR* 
(SZ);" (UP)" 

8760 REM SIFT 

B770 I-L: J-2#I: X1*=NA*(I>: X2=TY(I): X3-BL(I): 

X4=DI(I): X5=AR(I) 

8780 PL=0 
8790 DO 

8800 IF J>R OR PL=1 THEN EXIT 
8810 IF J<R THEN IF NA*(J)<NA*(J+l) THEN J=J+1 
8820 IF X1*>NA*(J) THEN PL-1: ELSE BEGIN 
8830 NA* <I)=NA*(J) 

8840 TY(I)=TY(J) 

8850 BL(I)=BL(J) 

8860 DI(I)=DI(J) 

8870 AR(I)=AR(J) 

8880 I=J: J=2*I 
B890 BEND 
■ L°OP 

891v. . *(I)=X1*: TY(I)=X2: BL(I)=X3: DI(I)=X4: AR 
(I)=X5 

8920 REM SIFT END 

8930 LOOP 

8940 DO WHILE R>1 

8950 Z*=NA*(R): NA*(R)=NA*<L): NA*(L)=Z* 

8960 Z=TY(R): TY(R)=TY(L): TY(L)=Z 
8970 Z=BL(R): BL(R)=BL(L): BL(L)=Z 
8980 Z=DI(R): DI(R)=DI(L): DI(L)=Z 
8990 Z=AR(R): AR(R)=AR(L): AR(L)=Z 
9000 PRINT TAB(30)"VERBLEIBENDE SCHRITTE : ";STR* 
(SZ);" (UP)" 

9010 R=R-1: SZ=SZ—1 
9O20 REM SIFT 

9030 I=L: J-2*I: X1*=NA*(I): X2=TY(I>: X3=BL(I): 

X4=DI<I): X5=AR(I) 

9040 PL=0 
9050 DO 

9060 IF J>R OR PL=1 THEN EXIT 
9070 IF J<R THEN IF NA*(J)<NA*(J+l) THEN J-J+l 
9O80 IF X1*>NA*(J) THEN PL-1: ELBE BEGIN 
9090 NA*(I)-NA*(J) 

9100 TYd)-TY(J) 

9110 BL(I)-BL(J) 

9120 DI(I)-DI(J) 

9130 AR(I)-AR(J) 

9140 I-J: J-2*I 
9150 BEND 
9160 LOOP 

9170 NA*(I)-XI*: TY(I)-X2: BL(I)=X3: DI(I)=X4: AR 
(I)=X5 

9180 REM SIFT END 
9190 LOOP 

9200 REM HEAP SORT END 
9210 DO WHILE NA*(PZ)-"ZZZZ" 

9220 PZ-PZ-1 
9230 LOOP 

9240 PRINT "(CLR,9D0WN)";TAB(28)"DIE DATEN WERDEN 
GESPEICHERT" 

9280 PRINT TAB(28)"(DOWN)DATEN DISKETTE EINLEGEN" 
9285 GET KEY A* 

9290 PRINT TAB(28)" (UP,23SPACE)" 

93O0 SCRATCH (DN*) 

9310 DOPEN #1,(DN*),W 

9311 IF D6O0 THEN DCLOSE Ml: PRINT TAB (28) " (DOWN 
,RVSON)DISKETTENSTATUS{RVOFF):";DS*: GET KEY 

A*: GOTO 9240 
9320 FOR A=1 TO 6 
9330 PRINT#1,TL*(A) 

9340 NEXT A 

9350 FOR A=1 TO 18 


<ok 9> Listing 2. (Fortsetzung) 


<F3B> 

< KGS > 

< 2NB > 

< 9F8 > 

< QNH > 

<CEO> 
<2Kl> 
<027> 
(954 > 
<118> 
<RR8> 
<KR0> 
<L60> 

<ETO> 
<HD 1 > 


< JVF> 
<HL2> 

<9EJ > 
<HT3> 
<HP3> 
<G54> 


<8LP> 
<CAB> 
<9T7> 
<FVJ> 
<T0O> 
<2RJ > 


<KQM> 

<850> 

< 1 JN> 
<5GT> 
<NAV> 
<5QK> 
<KPC> 
<E6B> 
<MC2> 
<RFV> 
<E0R> 
<39V> 
<K3R> 

< B3F > 
<T7U> 

< 0R9 > 

<DM3> 

<E50> 

<KQP> 

<914> 

<CDN> 

<UKJ> 

<SNQ> 

<T93> 

<VB2> 

<8T6> 
<9J I > 
<BLE> 

<23N> 

<TJT> 

<HA7> 

< 1U4> 
<GTS> 
<FQF> 
<6G1 > 

< VBV> 
<A4R> 
<7DV> 
<G7R> 
<63F> 
<LAU> 
<GI9> 

<CI7> 

<9L6> 

<CLP> 

< A58> 
<2R4> 
<K09> 
<SJP> 

<6N5> 

<2P6> 

<C4D> 

<5C3> 

<5GN> 

<P1F> 


<ERQ> 
<BI 1 > 
<UIP> 
<TN0> 
<MOP> 
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9360 

PRINT#1,AL*(A) 





<0B8> 

1034O 

9370 

NEXT A 





<SK0> 


9380 

PRINT#1,DZ 





<GDF> 

1035O 

9390 

FOR A=1 TO DZ 





<BQT> 

10360 

9400 

PRINTN1,DB(1,1,A) 





<1.62 > 

1O370 

9402 

PRINT#1,DB(1,2,A) 





<MMC> 

1038O 

9404 

PRINT#1,DB(2,1,A) 





<07M> 

10390 

9406 

PRINT#1,DB(2,2,A) 





<RNO> 

10400 

9410 

NEXT A 





<5S0> 


9420 

PRINT#1,PZ 





<HDR> 

10410 

9430 

FOR A-1 TO PZ 





<flQ9> 

10420 

9440 

PRINT#1,NA*(A) 





<SCJ> 

1O430 

9450 

PRINT #1,TY(A> 





<PRM> 

1044O 

9460 

PRINT#1,BL(A) 





<QSI > 

10450 

9470 

PRINTMI,DI(A) 





<PTM> 

10460 

9480 

PRINT#1,AR(A) 





<SJJ> 


9490 

NEXT A 





<SKO> 

1O470 

9500 

DCLOSE #1 





<79S> 


9510 

RETURN 





<Q27> 

10480 

9520 

REM EINGABEMODUL 





<93«> 

1049O 

9530 

11-0 





<E1J> 

105OO 

9540 

DO 





<OBB> 

1O510 

9550 

GET KEY A* 





<CBD> 

10520 

9560 

IF A*=CHR*(20) AND 

LEN (DO =0 

THEN 

LOOP 

<UNS> 

10530 

9570 

IF A*=CHR*(20) THEN 

PRINT "<LEFT > 

<LEFT>"|x 




D*-LEFT*(D*,LEN(D*) 

-1)1 

LOOP 



<T9Q> 


9580 

IF A*=CHR*(13) AND 

11=0 

THEN 

I1-LEN(D*): RET 


1054O 


URN 





<96H> 



9590 IF A*=CHR*(13) THEN RETURN 
9600 IF ASC(A*><D OR ASC(A*)>E THEN LOOP 
9610 IF 11=0 THEN WINDOW A,G,B,Gi D*-""I PRINT "i 
CLR >"| 

9630 IF LEN(D*)=C THEN LOOP 
9640 PRINT A4; 

9650 D*=D*+A*: 11=11+1 
9660 LOOP 

9730 REM DISKETTENKOMMANDO 
9740 PRINT " {CLR}" 

9750 print TAB(25) M jj jj.cj 

9760 PRINT TAB(25)"Ä<4SPACE>DISKETTENKOMMANDOC4SP 
ACE>Ä" 

9770 PRINT TAB (25) " J.C.C.C.C.C.CJACAC^£P.C.CJj^£f J.CJJA" 
9780 PRINT "(7D0WNJKOMMANDO <"; 

9790 L=40: Al=32: A2=95: GOSUB 10100 
9800 OPEN 1,8,15,E*: CLOBE 1 

9810 PRINT : PRINT "C2D0WN,RVS0N>DISK-STATUS<RVOF 
F)x"jDS* 

9820 GET KEY A* 

9830 RETURN 

9840 REM DIRECTORY 

9850 PRINT "<CLR>" 

9860 PRINT TAB (28) 11 

9870 PRINT TAB(28)"£<6SPACE>DIRECT0RY<6SPACE>5" 
9880 PRINT TAB (28) ^_CCJ_CJ,C.CC^ 

9890 WINDOW 26,6,54,24 
99O0 D=ls DIRECTORY : D=0 

9910 PRINT " <DOWN) TASTE DRUECKEN": GET KEY A* 
9920 RETURN 

9930 REM DISKETTEN ANGABE 

9940 PRINT "<CLR)BITTE GEBEN SIE NUMMER UND SEITE 
DER DISKETTE AN !" 

9950 FOR 1 = 1 TO 80s PRINT NEXT I 

9960 PRINT s PRINT "CDOWNIDISKETTE (1-999) : "; 
9970 L=3x Al=48: A2=57: GOSUB 10100 
9980 IF VAL(E*)=0 THEN GOTO 9940 
9990 PRINT : PRINT "(DOWN3SEITE (A/B)C6SPACE5:";C 
HR*(15);"B£LEFT) ";CHR*(143) ; 

10000 DO 

10010 GET KEY 6* 

10020 IF S*-"A" OR S*="B" THEN EXIT 
10025 LOOP 
1O030 PRINT S* 

10040 PRINT "L3D0WN1EINGABE IN ORDNUNG 7" 

10050 GET KEY A* 

10060 IF A*="N" THEN GOTO 9940 

10070 IF S*="B" THEN 5=0: ELSE S=1 

10080 DK-2*VAL(E*)-S: DN»VAL(E*>: IF S-0 THEN S-2 

10090 RETURN 

1010O REM EINGABE II 

1O110 E*“""i PRINT CHR*<15);"B«_EFT>"|CHR*(143); 

1O120 DO 

10130 GET KEY A* 

1O140 A=ASC(A*) 

10150 IF A=13 AND E*="" THEN LOOP 
10160 IF A-13 THEN PRINT " RETURN 
1O170 IF A=20 AND LEN(E*)=0 THEN LOOP 
1018O IF A=20 THEN E*=LEFT*(E*,LEN(E*)-1): PRINT 
"<LEFT5"; CHR*(15) | "B C2LEFTJ";CHR*(143);: L 
OOP 

10190 IF LEN(E*)=L THEN LOOP 

1020O IF A<Al OR A>A2 THEN LOOP 

1021O PRINT A*; CHR* (15) ; "T?(LEFT>" ; CHR* (143) ; 

1022O E*=E*+A* 

10230 LOOP 

10240 REM PROGRAMM NAMEN AUSGEBEN 

1O250 IF NA*(I)=NA*(I +1) THEN BEGIN 

10260 BL=BL(I)x DL-DI(I>: DH=DI(I)x NA*=NA*(I) 

1O270 DO 

10280 1=1+1 

1029O BL=BL+BL(I) 

103O0 IF DMIXDL THEN DL=DI(I> 

10310 IF DI(I)>DH THEN DH=DI(I) 

10320 LOOP WHILE NA*(I)=NA*(1+1) 

1033O IF INT(DL/2)<>DL/2 THEN SL*="A": DL=(DL+1)/ 
2: ELSE SL*="B": DL=DL/2 


<SEH> 

<E0M> 

<0V6> 
<UOR> 
<TIB> 
<VCS> 
<8L9> 
< BD1 > 
<2DM> 
<E5K> 

<REJ> 

<GLM> 

<SLB> 

<75M> 

<0B2> 

<R78> 

<B0D> 

<RI7> 


<51 

< JDS> 
<748> 

< IDU> 
<CP6> 
<14Q> 

< DHO > 
<BK7> 
<FDT> 

<NEP> 
<LFI > 

<OFG> 

<PNL> 

<KUB> 

<7TE> 
<PV3> 
<04U> 
<VSB> 
<K61 > 
<D5P> 

< IMB> 
<5KC> 

< OHM > 
<HAR> 
<40V> 
<0U7> 
< 002 > 
<009 > 
<PV3> 

< 4KC > 
<T20> 
<B20> 
<D2G> 
<SEF> 


<2P5> 

<EER> 

<PAF> 

< H5H > 
<FLC> 

< A5P> 
<080> 
<LVO> 
<10S> 
<DVF> 
<FGT> 
<COL> 
<OFT> 

<G9T> 

<RAO> 

<R1G> 


IF INT(DH/2)ODH/2 THEN SH*="A"t DH=(DH+1>/ 
2: ELSE SH*="B"x DH=DH/2 
DL*=STR*(DL): DH*=STR*(DH) 

DO WHILE LEN(DL*)<3 t DL*=" "+DL*: LOOP 
DO WHILE LEN(DH*)<3 t DH*=" "+DH*x LOOP 
D*=DL*+" "+SL*+“ -'•+DH*+" "+SH* 

BEND : ELSE BEGIN 

IF INT(DI(I)/2)<>DI(I)/2 THEN S*="A": D=(DI 
(I)+l)/2* ELSE S*="B'': D=DI(I)/2 
D*=STR*(D) 

DO WHILE LEN(D*)<3 : D*=" "+D*x LOOP 
D*=D*+" "+S*r BL=BL(I)x NA*=NA*(I) 

BEND 

IF DM*< >"" THEN RETURN 

IF IC-0 THEN WINDOW 0,8,79,21x PRINT "CCLR> 
IC=1 

PRINT NA*;TAB(20)BLjTAB(30)AL*(AR(I))»TAB(5 
1)" ( M |D*| ")"|TAB(72) TL*(TY <I ) ) 

GET A*: IF A*<>"" THEN GET KEY A* 

RETURN 

REM FEHLERBEHANDLUNG 
TRAP 1O500 

IF D-l THEN RESUME NEXT 

IF ER-5 AND DS-0 THEN PRINT : PRINT TAB(30) 
"<DOWN>DRUCKER EINSCHALTEN !": GET KEY A*r 
CLOBE 1: CLOSE 2* CLOSE 3s RETURN 
RESUME 


<S0O> 

<SP0> 

<E18> 

<V3C> 

<SUV> 

<RGG> 

<DC7> 
<574> 
<631 > 
<ROT> 

<FPE> 

<LKC> 

<MB2> 

<2CD> 
<V08> 
<0E7> 
<20A> 
<358> 
<Q71 > 


<2UB> 
<H4 1 > 


Listing 2. »Disk-Manager 128«, die komfortable 
Diskettenverwaltung. Bitte mit dem Checksummer 
(Seite 158) eingeben. 


10 FAST 



<S3J > 

20 GRAPHIC 5,1 



<0EO> 

30 COLOR 6,16 



<08A> 

40 DZ=100: PZ=300 



<ETC> 

50 DIM NR*(PZ >! DIM TY(PZ): DIM RL*(19> 


<LS6> 

60 DIM BL(PZ): DIM DI(PZ) : DIM AR(PZ): DIM 

FB(2, 



, DZ) 



<J8J> 

70 PRINT "(DOWN,BLACK 

24SPACE >K.OPIERPROGRAMf* 

FUER 



SYSTEMDATEIEN“ 



<E6U> 

80 PRINT ” (23SPACE;{JJLE££JA££££W.EWJJWJJJ 






<B26> 

90 INPUT "<DQWN>OUELL 

- NAME : ";SN* 


<NLN> 

100 

INPUT " iDOWNJZIEL 

- NAME<2SPACE>: ";DN* 


<EON> 

110 

DOPEN »1,(SN*) 



<E9A> 

120 

FOR 1=1 TO 6 



<RO0> 

130 

1NPUT#1,TL*(1) 



<0B8> 

190 

NEXT I 



<RN4> 

150 

FOR 1=1 TO 18 



<MCO> 

160 

I NPUTtt 1, AL* (I) 



<U9P> 

170 

NEXT I 



<3K4> 

180 

INPUT#1,DZ 



<S0C> 

190 

FOR 1=1 TO DZ 



< BEU > 

200 

INPUT H1,FB(1,1,I> 



<58J> 

210 

INPUT #1,FB(1,2,1) 



< 60T > 

220 

INPUTW1,FB(2,1,1) 



<897> 

230 

INPUTMl,FB(2,2,1) 



< BP9> 

240 

NEXT I 



<BH4> 

250 

INPUT#1,PZ 



<I0O> 

260 

FOR 1=1 TO PZ 



<7EA> 

270 

INPUT#1,NA*(I) 



<010> 

280 

INPUT #1,TY(I) 



<GJ2> 


INPUT H1 ,DL( I > 



< 1K6> 

30O 

INF’UT# 1 , DI (I) 



<GT3> 

310 

INPUTM1,AR(I) 



<9V7> 

320 

NEXT I 



<BL4> 

330 

DCLOSE Ml 



<TL5> 

340 

PRINT 11 (2DQWNJ INSERT DESTINATION - DISK.' 

: GET 



KEY A* 



<H6K> 

350 

SCRATCH <DN*> 



<20P> 

360 

DOPEN #1,(DN*),W 



<5EU> 

370 

FOR 1-1 TO 6 



<RA0> 

380 

PRINT#1,TL*(I) 



<2FA> 

390 

NEXT I 



<JU4>’ 

9 00 

FOR 1-1 TO 10 



<PCO> 

410 

PRINTM1,AL*(I) 



<69R: 

420 

NEXT I 



<RR4 > 

430 

PRINT#1,DZ 



<HHC> 

990 

FOR 1=1 TO DZ 



<CEU> 

950 

PRINT«1,FB(1,1,1) 



<7G8> 

460 

PRINT«1,FB(1,2,1) 



<502 > 

470 

PRINTM1,FB(2,1,1) 



<AHS> 

480 

PRINTttl,FB(2,2,I> 



<EIE> 

490 

NEXT I 



<3G9> 

500 

PR!NT«1,PZ 



<LHO> 

510 

FOR 1=1 TO PZ 



<EEAü 

520 

PRINT#1,NA*(I) 



<GD3> 

530 

PRINT#1,TY(I) 



<SR2> 

590 

PRINT#1,BL(I) 



<T06> 

550 

PRINT#1,DI(I) 



<SP2> 

560 

PRINT#1,AR(I) 


/ 

<LR6> 

570 

NEXT I 



<3S4> 

3S0 

DCLOSE »1 


V 

<SD5> 

Listing 3. Das Programm zu Erstellung von Sicherheits- 

kopien der mit »Disk-Manager 128« erstellten Dateien. 
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C128 


ANWENDUNG 


Bringen Sie Ordnung 



qmr anun®"» 


in Ihr Video-Archiv 


Wer Video-Filme sammelt, braucht früher oder 
später ein Verzeichnis, das alle Titel mit den wich¬ 
tigsten Daten enthält und ein rasches Aufsuchen 
einzelner Filme ermöglicht. Das hier vorgestellte 
»Videoarchiv-System» kann noch viel mehr. Es 
verwaltet bis zu 1100 Titel und macht dank komfor¬ 
tabler Sortier- und Druckroutinen die Dokumenta¬ 
tion Ihrer Video-Sammlung zum Vergnügen. 

N atürlich kann man seine Video-Kassetten auch mit 
einem universellen Datei-Programm, wie Datamat, 
verwalten. Wer sich aber die Mühe von Masken¬ 
aufbau, Definition von Kategorien, Erstellung von Druck¬ 
listen und andere Kleinigkeiten sparen will und stattdessen 
eine Komplettlösung sucht, die von Anfang an alle Wün¬ 
sche berücksichtigt, der ist mit dem »Videoarchiv-System« 
bestens bedient. Das Programm arbeitet im 80-Zeichen- 
Modus des C128 und ist nach dem Prinzip einer index¬ 
sequentiellen Dateiverwaltung aufgebaut. Pro Diskette 
werden maximal 1100 Videofilme verwaltet, was auch für 
größere Sammlungen ausreichend sein dürfte. Für jeden 
Film stehen folgende Datenfelder (vergleiche Tabelle 1) zur 
Verfügung: 

- Videotitel (Indexfeld, maximal 55 Zeichen) 

- Kategorie (Indexfeld, 20 mögliche Kategorien) 

- Kassettennummer (Indexfeld, maximal vier Stellen) 

- Laufzeit in Minuten (drei Stellen) 

- Farbfilm (ja/nein) 

- Dolby-Rauschunterdrückung (ja/nein) 

- Longplay (ja/nein) 

- Stereo (ja/nein) 

- Hifi-Ton (ja/nein) 

- Bemerkungen (maximal 42 Zeichen) 


ln Zeichen 

wird gespeichert 

In Zeichen 

wird gespeichert 

1 bis 55 

Titel 

65 

Dolby 

56 

Kategorie (a-t) 

66 

Longplay 

57 bis 60 

Kassettennummer 

67 

Stereo 

61 bis 63 

Laufzeit 

68 

Hifi 

64 

Farbe 

69 bis 110 

Bemerkungen 


Tabelle 1. Der Aufbau eines Datensatzes im Videoarchiv- 
System. Ein Datensatz ist 110 Zeichen lang. 


In Zeichen wird gespeichert 

In Zeichen wird gespeichert 

1 bis 15 Titel (Kurzfassung) 

16 Kategorie (a-t) 

17 bis 20 Kassettennummer 
21 bis 24 Datensatznummer 


Tabelle 2. Der Aufbau eines Indexstring beim Videoarchiv- 
System. Er hat eine Länge von 24 Zeichen. 


Die drei genannten Indexfelder (siehe auch Tabelle 2) 
ermöglichen ein besonders rasches Auffinden einzelner 
Datensätze (maximal 2,5 Sekunden), da die Indexfelder 
ständig im Speicher des Computers stehen, was ja gerade 
den großen Vorteil der index-sequentiellen Dateiver¬ 
waltung ausmacht. Generell ist jedoch die Suche nach 
allen Feldinhalten sowie nach beliebigen Kombinationen 
möglich. 

Schnelle Suche nach Filmen 


Durch verschiedene Sicherheitsabfragen wird ein verse¬ 
hentlicher Datenverlust verhindert; viele Bedienungsfehler 
werden erkannt und abgefangen. Zur Vermeidung unnöti¬ 
ger Wartezeiten sortiert das Programm nur auf Anforde¬ 
rung sowie bei Beenden der Arbeit; dabei wird ein »Quick- 
sort«-Algorithmus verwendet. 
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C128 


Das Programm verfügt für die Darstellung auf dem Bild¬ 
schirm über einen eigenen, neuen Zeichensatz mit dem 
Schrifttyp »Orator«, der auf die DIN-Tastatur des C128 
abgestimmt wurde. Für den Ausdruck der Ergebnisse auf 
Papier dürfen entweder Epson-kompatible Drucker oder 
die Commodore-Drucker MPS 801 und MPS 803 (letztere 
auch mit deutschen Umlauten!) verwendet werden. Für 
Geräte mit Centronics-Anschluß wurde eine software¬ 
mäßige Schnittstelle integriert; es wird lediglich ein ent¬ 
sprechendes Userport-Kabel benötigt. Unterstützt werden 
aber auch folgende Interfaces: Görlitz VC-DIN, Görlitz 
VCEI, Data-Becker-Interface. Für die Ausgabe von Listen 
stehen vier Zeilen mit jeweils 40 Zeichen Text als »Benut¬ 
zerdaten« zur Verfügung, die gespeichert werden und beim 
Ausdruck automatisch am Listenanfang erscheinen. 

Integrierte Centronics-Schnittstelle 


ta»EHweiii*-5wTEii 




cm* 


DELCO 


- VnEHUHmw-SvsTEM 




t 


m 


WHHlMII* 

niiAiii«mfi:«n:ii 


Bild 1. Der Hilfsbildschirm des Videoarchivs kann jederzeit 
aufgerufen werden. 


Der Betrieb ist sowohl mit einem als auch mit zwei Laufwer¬ 
ken vom Typ 1541/1570/1571 möglich, wobei die jeweils ver¬ 
wendete Konfiguration vom Programm automatisch festge¬ 
stellt und korrekt angesprochen wird. Die Bedienung des 
Programms ist sehr einfach, weitgehend sogar selbst¬ 
erklärend und erfolgt vollständig über Menüs. Zur Menü¬ 
steuerung dienen die oberen Cursortasten des C128 oder 
aber Joystick bzw. Maus am Control-Port 2. Dies ist viel¬ 
leicht am Anfang etwas gewöhnungsbedürftig; wer damit. 
anfänglich Probleme hat, kann mit Hilfe der HELP-Taste 
einen Hilfsbildschirm (Bild 1) abrufen. 

Kurzbeschreibung der einzelnen Programmteile 

»VIDEOARCHIV« (Listing 1): Dies ist die Basic-Version 
des Hauptprogrammes (Variablen-Übersicht in Tabelle 3). 
Die Programmservice-Diskette enthält außerdem die com- 
pilierte Version, die nicht nur kürzer, sondern auch deutlich 
schneller als der Basic-Quellcode ist. Wenn Sie das Pro¬ 
gramm selbst compilieren wollen, müssen Sie den Austro- 
Comp 128 verwenden, da das Programm wegen seiner 
komplizierten Variablenfelder von Basic 128 nicht akzep¬ 
tiert wird. 

»VIDEO-CH ARACTERS« (Listing 2): Der veränderte Bild¬ 
schirmzeichensatz »Orator« als MSE-Listing. Er wird vom 
Hauptprogramm nachgeladen. 

»KATEGORIEN« (Listing 3): Dieses Teilprogramm erstellt 
die sequentielle Datei »video-katgorien«. Sie enthält die 20 
vorgegebenen Standardkategorien, die aber nach indivi¬ 
duellen Wünschen abgewandelt werden können. 

Für jeden Drucker ein eigenes Programm 


»VIDEO-CENTRONICS« (Listing 4): Die Software- 
Centronics-Schnittstelle, ebenfalls als MSE-Listing. Wenn 
Ihr Drucker nicht über ein Userportkabel angesteuert wird, 
benötigen Sie dieses Programm nicht. Die Zeilen 190 bis 
220 und 2300 des Hauptprogramms dürfen dann nicht ein¬ 
getippt werden. 

»DRUCKERTAB.MPS« (Listing 5): Dieses kleine Pro¬ 
gramm erstellt die sequentiellen Dateien »video-mps 801« 
und »video-mps 803«, die vom Hauptprogramm eingelesen 
und in der Datei »video-standards« auf der Datendiskette 
gespeichert werden. Dabei handelt es sich um die Zeichen¬ 
tabellen für den integrierten Codewandler. Listing 5 müs¬ 
sen Sie nur eingeben, wenn Sie einen der Drucker 

MPS-801 oder MPS-803 besitzen. 

»DRUCKERTAB.EPSON« (Listing 6): Dieses Teilpro¬ 
gramm erfüllt den gleichen Zweck wie Listing 5, nur daß 
eine Druckertabelle für Epson-Drucker erstellt wird. Auch 
Listing 6 brauchen Sie nur abzutippen, wenn Sie einen 


Variable 

Verwendung 

te$(—) 

Menütexte 

le 

Anzahl der Menütexte 

by 

Beginn des Menüs (Spalte) 

f1% 

oszillierendes Flag (bewirkt einen permanenten Wech¬ 
sel zwischen den beiden Bildschirmen) 

n% 

Anzahl der Datensätze 
n%=0 : Datei ist leer 

m% 

Anzahl der Datensätze im Puffer 

pu$(...) 

Datenpuffer (Größe: 114) 

prS(„.) 

Druckertabelle (Größe: 255) 

g$(-.) 

Indexstring (Größe: 1100) 

d$ 

Aktueller Datensatz im Speicher 

cün^» 

Nummer des aktuellen Datensatzes 

z$ 

erlaubte Zeichen (Input-Routine) 

sa% 

Sekundäradresse des Druckers 

cw% 

Steuerflag für die Codewandlung 
cw%=1 : Codewandlung eingeschaltet 
cw%=0 : Codewandlung ausgeschaltet 

p°/o 

Anzahl der gedruckten vollständigen Datensätze (0 - 3) 

dd% 

Drive Datendiskette (0 oder 1) 

ud% 

Unit Datendiskette (8 oder 9) 

dm% 

Drive Programmdiskette (0 oder 1) 

um% 

Unit Programmdiskette (8 oder 9) 

si 

Steuerflag der Bildschirmwechselroutine 
si=0 : Bildschirm nicht sichtbar 
si=1 : Bildschirm sichtbar 

bi 

Steuerflag der Bildschirmwechselroutine 
bi=0 : Bildschirm »0« eingeschaltet 
bi=1 : Bildschirm -1« eingeschaltet 

fl% 

Flag, ob Datei »video-standards« geladen werden soll 
f1%=0 : nicht laden 
f1%=1 : laden 

f2°/o 

Flag, ob Indexdatei geladen wurde 
f2%=0 : noch nicht geladen 
f2%=1 : bereits geladen 

f3% 

Steuerflag für die »Input-Routlne 

14% 

momentan bearbeitete Eingabefeldnummer 

f5% 

Flag für die Datenausgabe 
f5%=0 : Ausgabe auf Drucker 
f5%=l : Ausgabe auf Bildschirm 

(6% 

Steuerflag für die Eingabemaske 

f6%=0 : normale Eingabe 

f6%=1 : Eingabe für »suchen, ändern, löschen« 

f6%=2: Änderungsmodus 

f6%=3: Kriteriensuche 

f7% 

Steuerflag für Suchmodus 
f7%=0 : Suchmodus eingeschaltet 
f7%=l : Suchmodus ausgeschaltet 

18% 

Offset-Flag für Druckerausgabe 
f8%=0 : kein Offset 
f8%=6 : Offset = 6 


Tabelle 3. Die wichtigsten Variablen von »VIDEOARCHIV« 
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C128 


ANWENDUNG 


VlOEORRCHZV~SVBTEM - 


VXDEOI 1 ROHZV-SV 5 IEN 




Dm EHDZSKC TTE WECHSELN 
Hhleden einer neuen Dhtet 
ihtoeliitk Drten Undirn 
VIDEQ-HRnHIV VKRLRSSEN 


Bild 2. Nach dem Start erscheint das Hauptmenü des 
Videoarchiv-Systems 


VZDEOnROHXV-bvSTEN 


“ VXDEDHHDHIV~5VITEM 


Titel ezncgeen 

Txthu SUCHEN, UNDERN , LÖSCHEN 
TZTCLLISTE HUF MONIIDH 
Titellzste huSDrucken 
Dhten pflegen 
P nDGRRNNZNFUHMnTZDH 


Epson- oder kompatiblen Drucker haben, egal ob er über 
ein Interface oder über ein Kabel am Userport angeschlos¬ 
sen ist. 

Hinweise zur Bedienung 

Geladen und gestartet wird das Programm mit RUN 
"VIDEO*es meldet sich nach kurzer Zeit mit dem Titel¬ 
bild. Durch einen beliebigen Tastendruck gelangt man in 
das Startmenü. Bei diesem wie bei allen anderen vertika¬ 
len, also von oben nach unten angeordneten Menüs erfolgt 
die Bedienung mit Hilfe der oberen Cursortasten des C128: 

< I > rollt den revers dargestellten Balken schrittweise 
nach oben, < I > bewegt ihn nach unten. Mit 

< — > wird die gewünschte Funktion gewählt (siehe auch 
Hinweise auf der durch die HELP-Taste aufrufbaren Hilfs¬ 
seite). Eine analoge Steuerung ist auch mittels Joystick 
oder Maus am Control-Port 2 möglich, wobei zur Anwahl 
der Menüpunkte der Feuerknopf gedrückt werden muß. 

Das Startmenü(Bild 2) 

Wenn Sie noch keine Datendiskette angelegt haben, 
wählen Sie hier zunächst den Menüpunkt »Anlegen einer 
neuen Datei«. Das daraufhin erscheinende Menü hat nur 
zwei Punkte: »Standardkategorien« und »eigene Katego¬ 
rien«. Sie können hier wählen, ob die Video-Kassetten nach 
den vom Programm vorgegebenen Kategorien verwaltet 
werden sollen oder ob Sie lieber Ihre eigenen Kategorien 
eingeben wollen. 

Die Datendiskette wird vorbereitet 


Bild 3. Vom Hauptmenü aus werden alle Funktionen des 
Programms angewählt 


on 


VxocaRNCHxv-5vs 


Vxofohrum iv-S ystem 


IXIfei.LXSTE PHUCHEM_L 

NHcm Krtegorien rusdrucreh 
nhch Lnss. Nummern rusdruekeh 
nhch Kriterien drucken 
NHDH DrTEHSHTZNUMNERN DRUCKEN 
HflUPTMKMÜ 


Bild 4. Das Druckmenü zum Drucken einer Titelliste zeigt 
die vielfältigen Möglichkeiten des Programms 


VXDEBRRBNZV-SVBTBM 


“ VlDEOHRDHIV'SVITIH 


Dn.iaxrruma - Mtwü . 

Index bdrtzeren 
Index «reichern 
Index nieoerherbtellen 


Directdhv rnzexden 


Hruptmenü 


Bild 5. Vom Dateipflege-Menü aus werden die leistungs¬ 
fähigen Indexfunktionen angewählt 


Wird »eigene Kategorien« gewählt, so fragt der Computer 
nach jfider Kategorie. Das nächste Menü dient dann noch 
der Auswahl des Druckers und erklärt sich selbst. Sollten 
Sie nur ein Laufwerk angeschlossen haben, so werden Sie 
jeweils zum Diskettenwechsel aufgefordert. Ist ein Doppel¬ 
laufwerk angeschlossen, so erwartet das Programm die 
Programmdiskette in Laufwerk 0 und die Datendiskette in 
Laufwerk 1. Verwenden Sie zwei Einzellaufwerke, so muß 
sich das Programm in Laufwerk 8 und die Datendiskette in 
Laufwerk 9 befinden. Das Anlegen der Datendiskette dau¬ 
ert einige Zeit (ca. sieben Minuten), danach gelangen Sie 
wieder in das Startmenü. Dieses besteht aus vier weiteren 
Menüpunkten: 

»Arbeit mit bestehender Datei«: Hiermit gelangen Sie in 
das Hauptmenü (siehe unten). 

»Datendiskette wechseln«: Sollten Sie mehrere Daten¬ 
disketten besitzen, so müssen Sie einen Diskettenwechsel 
über diesen Menüpunkt vornehmen. 

»Festgelegte Daten ändern«: Dieser Punkt dient zur 
Änderung der Datei »video-standards« auf der Datendis¬ 
kette. Hiermit ist also eine Modifizierung der verwendeten 
Film-Kategorien und der Benutzerdaten (=Titelleiste für 
den Ausdruck) sowie eine Neuwahl des Druckertreibers 
möglich. 

»Video-Archiv verlassen«: Ein Abschluß der Arbeit mit 
dem Videoarchiv-System sollte immer über diesen Punkt 
erfolgen. Dabei wird der Index sortiert und gespeichert, 
anschließend erfolgt ein Reset. Achtung: Wird das Videoar¬ 
chiv nicht auf diese Weise verlassen, erfolgt keine Speiche¬ 
rung des Index auf Diskette!. Die Datei geht dabei zwar 
nicht verloren, kann aber erst wieder verwendet werden, 
wenn der Index vom Programm rekonstruiert wurde, was 
sehr lange dauern kann. 

Das Hauptmenü (Bild 3) 

Bevor man erstmalig in das Hauptmenü gelangt, muß 
zunächst das aktuelle Datum in der Form »TTMMJJJJ« ein¬ 
gegeben werden. Danach besteht die Wahl zwischen 
sechs verschiedenen Menüpunkten. 
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C128 


1ELC® *"“■ 


Hdchiv 


E I N G H B E 


Datum: 14.BH.13H7 
Datensatz: BH5B 


Titel: 

Huf 

DEM HlOHHRV IST 

die Hülle los 

Kategorie: 

H 

[Rbtionfilm 

1 

Crss.Nr . : 

1 BH 

Laufzeit: 

9B Minuten 

Frrbe : 

3R 

DDLBV: 

NEIN 

Lunuplrv: 

NEIN STERED: 

nein HiFi 

Bemerkungen: 

HIT 

Burt Reynolds und Roder Moore 


Hauptmenü 


PEICHERN 


Speichern 8. Drucken Krtecqrzen Statistik 
Bild 6. Hier wurde bereits ein Film mit allen benötigten Daten in die Eingabemaske eingetragen 


»Titel eingeben«: Die Eingabemaske erscheint, und Sie 
können Ihre Eingaben zu einzelnen Filmtiteln durchführen. 
(Näheres siehe weiter unten.) 

»Titel suchen, ändern, löschen«: Bei diesem Menüpunkt 
ist eine nachträgliche Bearbeitung bereits gespeicherter 
Daten möglich. 

Komfortable Steuerung 


»Titelliste auf Monitor«: Hier können Sie sich die in der Datei 
enthaltenen Titel auf dem Bildschirm anzeigen lassen. 
Wenn eine Bildschirmseite beschrieben ist, stoppt die Aus¬ 
gabe; es besteht dann die Wahl zwischen Fortsetzung der 
Auflistung und Rücksprung ins Hauptmenü. 

»Titelliste ausdrucken«: Durch diesen Unterpunkt 
gelangt man in das Druckmenü. 

»Daten pflegen«: Hiermit wird das Datenpflege-Menü 
aufgerufen, in dem verschiedene Dienstprogramme ent¬ 
halten sind. 

»Programminformation«: Auf einer Info-Seite werden die 
aktuelle Versionsnummer und der Programmautor ange¬ 
zeigt. Ein Druck auf eine beliebige Taste bringt Sie ins 
Hauptmenu zurück. 

»Startmenü«: Dieser Punkt bewirkt einen Rücksprung in 
das Startmenü. 

Das Druckmenü(Bild 4) 

»Titel alphabetisch drucken«: Alle in der Datei vorhande¬ 
nen Titel werden in alphabetischer Reihenfolge auf dem 
Drucker ausgegeben. 

»nach Kategorien ausdrucken«: Hier werden die einzel¬ 
nen Titel nach der Reihenfolge der Kategorien ausge¬ 
druckt, wobei Start- und Endkategorie (von »A« bis »T«) 
anzugeben sind. 

»nach Cass.Nummern ausdrucken«: Die Titel werden in 
der Reihenfolge der Kassettennummern ausgedruckt. 
Auch hier ist eine Vorwahl von Start- und Endnummer 
(Nummer 1 bis 9999) vorgesehen. 

»nach Kriterien drucken«: Dieser Menüpunkt erlaubt 
eine sehr flexible Datenausgabe, da eine Auswahl nach 
individuellen Suchkriterien erfolgt. Es erscheint zunächst 
die Datensatzmaske für den Eintrag der Suchkriterien. 
Anschließend werden alle Datensätze, die den genannten 
Kriterien entsprechen, ausgedruckt. 

»nach Datensatznummern drucken«: Jeder Datensatz 
erhält bei der Eingabe automatisch eine Nummer zugeteilt. 
Mit diesem Punkt lassen sich die Datensätze also in der 
Reihenfolge der Eingabe ausdrucken. 


»Hauptmenü«: Dieser Menüpunkt bringt Sie zurück ins 
Hauptmenü. 

Das Datenpflege-Menü (Bild 5) 

»Index sortieren«: Da die Indexdatei nur bei Programm¬ 
ende, nicht aber bei der Dateneingabe automatisch sortiert 
wird, kann hier jederzeit während der Dateiarbeit ein Sor¬ 
tiervorgang durchgeführt werden. 

»Index speichern«: Vor allem bei sehr vielen Ergänzun¬ 
gen oder Änderungen einer Datei ist es ratsam, nach eini¬ 
ger Zeit den Index auf der Diskette zu sichern. Dies 
geschieht über diesen Menüpunkt. Vor dem Abspeichern 
wird der iudex noch sortiert; das obige Untermenü braucht 
daher nicht extra angewählt zu werden. 

»Index wiederherstellen«: Wird das Programm nicht ord¬ 
nungsgemäß verlassen, z.B. durch einen versehentlichen 
Reset des Computers oder durch einen plötzlichen Strom¬ 
ausfall, dann kann es passieren, daß der Index der Datei 
nicht mehr vollständig bzw. nicht ganz korrekt vorhanden 
ist, weil z.B. zwischenzeitlich erfolgte Neueinträge fehlen. 
Durch dieses Untermenü läßt sich jedoch der komplette 
Index rekonstruieren. Dieser Vorgang dauert, vor allem bei 
umfangreichen Dateien, einige Zeit. 

»Datum ändern«: Das bei Programmbeginn erfragte 
Tagesdatum, das in der Eingabemaske und beim Listen¬ 
ausdruck erscheint, kann hier noch einmal geändert wer¬ 
den. Bei versehentlicher Anwahl dieses Punktes ist ein Ver¬ 
lassen mit der oberen Cursortaste (< I >) möglich. 

»Directory anzeigen«: Hiermit wird das Inhaltsverzeich¬ 
nis der Programm- wie der Datendiskette auf dem Bild¬ 
schirm angezeigt. 

»Diskettenbefehl senden«: Zur Überprüfung der Einträge 
auf der Datendiskette kann hier der COLLECT-Befehl 
durchgeführt werden; außerdem ist es möglich, einzelne 
Files zu löschen (SCRATCH-Befehl). Einzelheiten siehe 
Benutzerhandbuch der Floppystation. 

»Hauptmenü«: Dieser Menüpunkt bringt Sie zurück ins 
Hauptmenü. 


Horizontale Menüs 


Dies waren alle vertikalen Menüs des Programms. Auch die 
nachfolgend erläuterten horizontalen Menüs werden mit 
den oberen Cursortasten des C128 gesteuert: < - > 
bewirkt dabei ein schrittweises Springen des revers darge¬ 
stellten Balkens nach rechts, < — > bewegt ihn nach links. 
Die Auswahl der gewünschten Funktion erfolgt mit der 
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Video- I E I N G H B E 

Hrchiv I 


Dutum : 14.03.1907 
Dhtehsrtz : 0050 


Titel: 


Krtecdrie: 

C 


3 

Cnss.N h. 


Laufzeit: 

Minuten 

Fhrbe: 


DDLBV: 


Londplhv: 


Stereo: 

HiFi 

Bemerkungen: 





Hctxonfxlm 
Bericht/Report 
Historisch 
Dokumentation 
Ehsterh 


(RIECSFXLM 

Humor/Komik 
Kriminrlfilm 
Science Fiction 
khmerrrufnrhme 


Hruptmenü Speichern Speichern & Drucken H1II113XES3H Statistik 
Bild 7. Das »Kategorien«-Fenster hilft dem Gedächtnis beim Anlegen neuer Datensätze auf die Sprünge 


< t >-Taste (siehe auch Hinweise auf der durch die HELP- 
Taste aufrufbare Hilfsseite). Analog dazu ist auch eine 
Steuerung mittels Joystick oder Maus am Control-Port 2 
möglich, wobei zur Anwahl der Feuerknopf gedrückt wer¬ 
den muß. 

Die Eingabemaske (Bild 6) 

Die Eingabemaske erreichen Sie vom Hauptmenü aus 
über den Menüpunkt »Titel eingeben«. Es erscheinen alle 
Felder eines Datensatzes, wobei die Eingabefelder auf 
dem Bildschirm unterstrichen sind. Der Cursor innerhalb 
der einzelnen Felder wird hier durch die unteren Cursorta¬ 
sten Zeichen- bzw. feldweise bewegt. Bei der Eingabe ist zu 
beachten, daß bei den Kategorien nur die jeweiligen 
Anfangsbuchstaben benötigt werden. Die Felder »Farbe«, 
»Dolby«, »Longplay«, »Stereo« und »Hifi« beantworten Sie 
bitte mit »j« oder »ja« bzw. »n« oder »nein«; nur der jeweils 
erste Buchstabe wird hier kontrolliert. Der Texteditor inner¬ 
halb der Felder entspricht dem vom Basic her gewohnten 
Modus, <INST> und <DEL> können also wie üblich 
benutzt werden. 

Eingabe der Daten 


Das horizontale Menü der Eingabemaske besteht aus fünf 
Punkten, die sich im wesentlichen selbst erklären: Mit 
»Hauptmenü« gelangt man in die vorherige Menüebene 
zurück, »Speichern« bewirkt ein Speichern des aktuellen 
Datensatzes auf die Datendiskette, bei »Speichern und 
Drucken« erfolgt zusätzlich eine Druckausgabe des Daten¬ 
satzes. Sollten Ihnen bei der Eingabe die Kategorien nicht 
mehr geläufig sein, so wählen Sie den Menüpunkt »Katego¬ 
rien« an. Dadurch werden alle Kategorien in einem 
Bildschirm-Fenster angezeigt (Bild 7). Wie bei einem verti¬ 
kalen Menü kann daraus die entsprechende Filmart ausge¬ 
sucht werden, wobei ein automatischer Übertrag in das 
Eingabefeld erfolgt, auch wenn der Cursor in einem ande¬ 
ren Feld steht. Der Menüpunkt »Statistik« informiert in 
einem weiteren Fenster über die Anzahl der Datensätze, 
die Belegung der Datei (in Prozent) und über die größte bis¬ 
her vergebene Kassettennummer. 

Menübereich »Titel suchen, ändern, löschen« 

Auch hier erscheint wieder die Eingabemaske, allerdings 
sind die einzelnen Punkte des horizontalen Menüs etwas 
anders als bei »Titel eingeben«. Der Menüpunkt »Suchen« 
sucht innerhalb der Datei nach dem Eintrag, der den ange¬ 
gebenen Kriterien entspricht. Dabei werden die Suchkrite¬ 


rien ähnlich wie ein Neueintrag eingegeben. Es ist grund¬ 
sätzlich nicht nötig, vollständige Angaben zu machen, bei¬ 
spielsweise genügt es, zum Auffinden eines Filmes nur 
einen Teil des Titels zu nennen; allerdings sollte man die 
Groß- und Kleinschreibung von Suchbegriffen beachten. 

Suche nach allen Kriterien 


Je mehr und je spezifischere Kriterien aufgeführt wurden, 
desto genauer ist die Suche. Eine Suche ist für alle Felder 
möglich erheblich schneller ist der Suchvorgang jedoch, 
wenn Sie sich auf die drei Indexfelder (Titel, Kategorie und 
Kassettennummer) beschränken. Die Felder haben bei die¬ 
ser Funktion eine unterschiedliche Wertigkeit, die (auf die 
Eingabemaske bezogen) von oben nach unten abnimmt. 
Es wird also zunächst nach dem Titel gesucht (sofern einge¬ 
tragen), dann nach der Kategorie, der Kassettennummer etc. 

Durch den Menüpunkt »Drucken« erfolgt ein Ausdruck 
des gefundenen und angezeigten Titels, mit »Weiter 
suchen« wird die Datei nach dem nächsten Titel, der den 
Suchkriterien entspricht, durchgesehen. Durch den Menü¬ 
punkt »Ändern« gelangt man in die Eingabemaske und 
kann den aktuellen Datensatz beliebig abändern und 
erneut speichern. Der Punkt »Löschen« bewirkt - nach 
einer zusätzlichen Sicherheitsabfrage - ein Löschen des 
Datensatzes im Index. Der Datensatz selbst wird nicht 
gelöscht, sondern beim nächsten Neueintrag einfach über¬ 
schrieben. Bis dahin ist es möglich, diesen schon abgeleg¬ 
ten Titel durch Anwählen der Funktion »Index wiederher¬ 
stellen« im Dateipflege-Menü wieder in den aktuellen 
Bestand aufzunehmen. 

Menübereich »Titelliste auf Monitor« 

Auch hier existiert wieder ein horizontales Menü, das im 
wesentlichen den ersten drei Punkten des Druckmenüs 
entspricht: »Listen nach Alphabet«, »Listen nach Katego¬ 
rien« und »Listen nach Kassettennummern«. In den letzten 
beiden Fällen ist wiederum eine Definition von Start- und 
Endnummern bzw. -kriterien vorgesehen. 

Mit dieser Kurzanleitung und etwas Übung sollte ein feh¬ 
lerfreies Bedienen des Programms ohne große Probleme 
möglich sein. Zu beachten ist vor allem die Unterscheidung 
der beiden Menüarten (vertikal und horizontal). Auf der 
Programmservice-Diskette zu diesem Sonderheft befindet 
sich zudem eine compilierte Fassung von »Videoarchiv«, 
mit der sich eine wesentlich höhere Arbeitsgeschwindig¬ 
keit ergibt. 




SONDERHEFT 22 


(Detlef Erdmann/Dr. Rudolf Egg) 

123 



























ANWENDUNG 


C128 


100 

REM DELCO VIDEOARCHIV-SYSTEM 


< 11 A> 

550 

OPEN 1,UDX,15,"I1" 

: REM ST 


102 

: 



<25B> 


ELLT ART UND ZAHL DER 


<FP9> 

103 

REM COMPILERANWEISÜNGEN 

FUER 

AUSTRO-COMP 128 

< IUB> 

560 

IF DS=0 THEN DDX=1: GOTO 

59 : REM 


104 

: 



<3CD> 


ANGESCHLOSSENEN FLOPPIES 

FEST 

<8CJ > 

105 

REM **NG 



< I6B> 

570 

CLOSE 1 


<GAN> 

106 

REM »*R1 



< I A9> 

575 

TRAP 61» 


<GJD> 

108 

REM *»FI 1,11,12,13,J,J1 

,J2,T 

,SI,BI 

<JIE> 

500 

OPEN 1,9,15,“ 10": UD7.-9 


<U40> 

110 

: 



<2SB> 

590 

CLOSE 1 


<GMN> 

120 

FAST 



<PJ3> 

600 

GDTO 620 


<PUA> 

130 

COLOR 0,1: COLOR 4,1: PRINT * 

(CLR >" CHR*(14)i 

< B2U > 

610 

IF ER THEN UDX-8: RESUME 

590 

<LPP> 

140 

POKE 0,PEEK <01 OR 6 


: REM D 


620 

TRAP 


<U7T > 


EUTSCHE TASTATUR AUF 



<0Oß> 

630 



<4SJ > 

150 

POKE 1,PEEK(1) AND 6 


: REM D 


080 

TIX-Ol GOSUB 2200 

: REM TITELBIL 



AUER EINSCHALTEN 



<HVH> 


D AUFRUFEN 


< JCQ> 

16» 

POKE 792,98 


i REM ST 


BBS 

RI=0: SI-1: GOSUB 11»OO: 

PRINT “(CTRL+G)“1 

<H44 :> 


OP/RESTORE SPERREN 



<UI5> 

890 

FLX-0 


<HIF> 

170 

POKE 247,12B 


: REM TA 


90» 

ZI*-“AEIJN " 

: REM JA/NEIN 

<GBE> 


STENUMSCHALTUNG SPERREN 



< VOG> 

91» 

Z2*-"ABCDEFGHIJKLMNOPORST 

" : REM KATEGORIE 


18» 

GRAPHIC 5,1 


: REM 8» 



N 


<PF4> 


ZEICHEN BILDSCHIRM 



<N9A> 

915 

Z3*«"0123456709" 

: REM ZIFFERN 

<BE 1 > 

185 

IF PEEK(215)-0 THEN SYS 

4919 

l REM 


920 

Z4*-Z3*»Z2*VUVWXYZ 



UMSCHALTEN AUF B0-ZEICHEN 
19© i 

195 REM CENTRONICS-SOFT-INTERFACE LADEN 

200 REM DIE NAECHSTEN DREI ZEILEN NUR ABTIPPEN 

201 REM WENN DRUCKER UEBER USERPORT ANGESTEUERT! 

205 FI*="VIDEO-CENTRONICS": GOSUB 44000 
210 BLOAD(FIt),B0,P4864 

215 SYS 406 * REM 

CENTRONICS-INTERFACE AKTIVIEREN 

220 : 

225 REM ZEICHENSATZ LADEN UND INITIALISIEREN 
230 : 

240 FI*-"VIDEO-CHARACTERS": GOSUB 44000 
250 BLOADtFIO,B1,P53248 

260 POKE 50,200: CLR * R 

EM START DER ZEROPAGE-KOPIE DER 
262 P1=PEEK(674): P2-PEEK(675): P3=PEEK<676> : R 

EM KERNAL "LLLi&£"-ROUTINE WIRD 
264 FÜR 1=0 TO 9: READ A: POKE 2816+1,A: NEXT 
: REM MIT "JSR 0B00" UEBERSCHRIEBEN 
266 DATA 162,1,189,240,247,170,173,0,255,96 : REM 
CONFIGURATION-REGISTER MIT 
268 POKE 674,32: POKE 675,0: POKE 676,11 
: REM "BANK 1" LADEN, DA ZS. DORT 
270 BANK 15: SYS 5274 : R 

EM SPRUNG IN ZS.-LADEROUTINE 
272 POKE 674,P1: POKE 675,P2: POKE 676,P3 
: REM URSPRUENGLI CHE " F_LT.V_E-C. " -ROUT I NE 
274 POKE 50,255: CLR : R 

EM WIEDERHERSTELLEN 
280 : 

290 REM FUNKTIONSTASTEN MIT CHRJ-CODE BELEGEN 
300 : 

310 RESTORE 310: FOR 1=1 TO 8: READ D: KEY I,CHR* 
(D): NEXT 

320 DATA 133,137,134,138,135,139,136,140 
330 POKE 4105,1: POKE 4123,132 : REM " 

HELP" MIT CHR*(132) BELEGEN 
340 : 

490 DIM DTX(12> ,K*(19> ,C*<19> ,UJ <9> ,PU*(114) ,PR*< 
255),REX(1100),G»(1100),SX(30,2) 

500 FOR 1-1 TO 12: READ D: DTX(I)=D: NEXT : REM K 
ALENDERDATEN 

510 DATA 31,29,31,30,31,30,31,31,30,31,30,31 
520 : 

530 BI=1: SI-1: GOSUB 11000: SCNCLR : BI=0: SI=0: 
GOSUB 11000: SCNCLR 

535 POKE 2592,1 : REM TA 

STATURPUFFER = 1 

536 : 

34» UMV.-Di DMX-0, UDX-Di DDX-O I REM 

AUTOKONFIGURATOR 


<HRN> 

< 6SR> 
<GE1> 
<J2C> 

< J6C> 
<061 > 
<PAI> 

<293> 

<0C1> 

< J6C> 
<0S3> 
<DKK> 
<UKL> 

<KL3> 

< 458 > 
<QED> 
<4BK> 
<HLN> 
<02T> 
<E52> 

<8131 > 

<5CL> 

<HA5> 

<0C1> 

<CND> 

<VKB> 

<6PG> 

<2C9> 


<FRI > 
<6VK> 
<7CT> 


<P96> 

<6CP> 


ire3T±=-V0/ =-+. ,; 1 7! # 1 SV.b () C K >W« (SHF. SPACE > " 

: REM ERLAUBTE ZEICHEN 
925 Z5#-" {BROWN) 

?T<GREEN>" 

930 Z6*-"<79SPACE>" 

935 T1*(1)-"£ARBE , "1 T1*(2)="S / W , " 

940 U*(5)■"- 

945 U*(6)=" C15SPACE>fi £ i. £ £C2SPACE>-(2SPACE>I J. 

nnun ^(2 space>-(2space>£ nn 
n" 

950 U* < 7)-"£ASS (3SPACE>fll LMTITEL (49SFACE>AAUF ZEIT 
(7SPACE)" 

955 U*(7)=U*(7)+"flR.<3SPACE>- 


960 U* (7) =U* (7) + " (7SPACE > ÄATEGORIE < 17SPACE > .BEMERK 
UNGEN" 

980 PUDEF "0" 

990 IF JOY(2)>127 THEN 1000 
995 GET T*x IF T*="" THEN 990 

997 : 

998 REM STARTMENUE 

999 : 

1000 TE*(1)■" ARBEIT MIT BESTEHENDER £ATEI " 

1005 TE* (2)-" (3RIGHT> BATENDISKETTE WECHSELN " 
1010 TE*(3)=" <2RIGHT> ANLEGEN EINER NEUEN JJATEI " 
1020 T c *'4>="(2RIGHT> FESTGELEGTE SÄTEN FNDERN " 
103O TT' ",)=" <3RIGHT> V VERLASSEN " 

1040 TE*(9)="(3D0WN.CTRL+B,GREEN>5. T A R T M E N 

y :(2D0WN)" 

1045 GOSUB 22010 

1050 BY=11: TE=5: F3X=0: GOSUB 36000 
1060 ON UX GOTO 3500,3800,2000,3000,4000 
1070 : 

1098 REM HAUPTMENUE 

1099 : 

1100 TES(1)="<7RIGHT) IITEL EINGEBEN " 

1110 TE*(2)="IITEL SUCHEN, FNDERN , L'ESCHEN" 

1120 TE#(3)="(3RIGHT > IITELLISTE AUF flONITOR " 
1130 TE*(4)="C3RIGHT) IITELLISTE AUSDRUCKEN " 

1140 TE*(5)="(7RIGHT) SÄTEN PFLEGEN " 

1150 TE*(6)="(4RIGHT) £R0GRAMMINFORMATION " 

1160 TE*(7)-" (5RIGHT) ÄTARTMENy" 

1165 TE*(9)="(2D0WN.CTRL+B,GREEN)fl A U P T M E N 

7 :(2DOWN)" 

1170 IF DT*«"" THEN F3X-0: GOSUB 9400 
1180 GOSUB 22010 
1190 BY-10: TE-7* GOSUB 36000 

120© ON UX GOTO 3000,6»©»,7000,0000,1300,880©,10» 


<MKE> 


<:rd5> 
<H11 > 

<KNN> 

< IS5> 


< 5VU > 
<D36> 

< 4U4 > 

< PML > 
<VLL> 

< JE8> 
<RTQ> 
<F5S> 
<LQN> 
<CLI> 
<3R3> 
<0Q8> 
<RTT> 
<1IP> 
<TG4 > 

<4KF> 
<0MJ > 
<Q3U> 

< J3G> 
<2GB> 
<0C1 > 
<70U> 
<SH8> 
<8U2> 
<NP4> 
<ED7> 
<0A9' 
<L3B> 
<KD3> 

<70S> 

<DAJ> 

<C6J> 

<TGE> 

<V2F * 




SONDERHEFT 22 


124 






































C128 


ANWENDUNG 


1220 

: 

<209> 

2740 

DCLOSE «»1 ON U(UM7.) 

<GBR> 

1298 

REM DATEIPFLEGE-MENUE 

< 1C5> 

2750 

BEND 

<LQU > 

1279 


<50M> 

2755 

FI*-"VlDEO-"+DR*: GOSUB 45000: IF DR7.O0 THE 


1300 

TE*(1)="(6RIGHT) JUDEX SORTIEREN » 

<LG2) 


N 2600 

< PGK > 

1310 

TE* (2) - " C6RIGHT> 1/MDEX SPEICHERN " 

<VDN> 

2760 

DOPEN Hl, (FI*) ,D(DM7.) ,U(UM7.) 

<50T> 

1320 

TE*(3) - "(3RIGHT) I^IDEX WIEDERHERSTELLEN " 

<07T> 

2770 

FOR 1-32 TO 222 

<COQ> 

1330 

TE*(4I="<7R1GHT> DATUM C2SPACEJFNDERN " 

< VSK> 

2780 

INPUTH1,PR*(I) 

< AJB> 

1340 

TE»(5)="<SRIGHT> DIRECTORY ANZEIGEN •' 

<GTE> 

2790 

NEXT 

<ED8> 

1350 

TE*(6)="C3R1GHT) £1SKETTENBEFEHL SENDEN " 

<O0N 1 

2800 

DCLOSE Hl ON U(UM7.) 

<MR1 > 

1360 

TE*(7)-"{6RIGHT5 ÜAUPTMEN*" 

<20P> 

2B05 

IF F1X-1 THEN RETURN 

<70T> 

1370 

TE» (91«“ I2D0WN,CTRL*B,BREEN>SATEIPFLEBE - HE 


2810 

GOSUB 351O0 

<UU4> 


NV :IPDOWNI" 

<KQR> 

2820 

CHAR 1,0,24: PRINT "<9SPACE)fiIE SATENDISKETT 


1300 

GOSUB 22010 

<86J> 


E WIRD ANGELEGT. .SITTE EINIGE fllNUTEN GEDULD 


1390 

BY-101 TE-7: F3X-0! GOSUB 360O0 

<6IS> 


■ 

< HN4 > 

1400 

ON U7. GOTO 7000,9100.9300,9400,9600,9800,110 


2830 

FI *="VIDEOARCHIV DATA": HEADER(F1*>,101,D(DD 



0 

<ST7> 


X),U(UDX> 

<SA7> 

1410 

t 

!5GN> 

2835 

IF DR7.O0 THEN GOSUB 45020: GOTO 2820 

<L9B> 

1998 

REM NEUE DATEI ANLEGEN 

< 4SJ > 

2840 

DOPEN #1," VIDEO-DATEI C5SPACEI",L112,D<DDX) ,U 


1999 

t 

\EPO> 


• UD7.) 

< J9F > 

2000 

TE*(1)-"(5RIGHT> DTANDARDKATEGORIEN " 

<F54> 

2850 

RECORD «1,1101,1 

<HS9> 

2100 

TE»(1)-"{5RIGHT> STANDARDKATEGORIEN " 

<D5C> 

2860 

PR INTIM, CHR»( 255)| 

<5H4> 

2110 

TE»(2)«" fSRIGHT > EIGENE «SPACE 1KATEGORIEN " 

<POD> 

2870 

IF 0S>1 AND DSC>50 THEN GOSUB 45020: GOTO 20 


2120 

GOSUB 22010 

< A6J > 


20 

<BK3> 

2130 

PRINT TAB(201TE»(7) 

<56B> 

2880 

DCLOSE Hl ON U(UD7.) 

<GBR- 

2140 

PRINT TAB(19)"SELCHE KATEGORIEN SOLLEN VERWE 


2890 

DOPEN #1, "VIDEO-STANDARDS * , D (DDX) ,U (UD7.) ,W 

<U97> 


NDET WERDEN?" 

< TKO > 

2910 

FOR 1=0 TO 19: PRINT«),CHR*(34)+K*(I>: NEXT 

<VFO> 

2150 

BY-14: TE-2: GOSUB 36000 

<O0C> 

2920 

PRINTH1 ,SA7.: PRINTH 1 , CW/. 

XD4C > 

2160 

IF U7.-1 TUEN K7.*l 

<HES> 

2930 

FOR 1=32 TO 222: PRINT«1,CHR*(34)+PR*(I): NE 


2170 

IF U%=2 THEN BEGIN 

■:G!J9> 


XT 

<MA9> 

2180 

GOSUB 2201O 

< 06 J > 

2940 

FOR 1 = 1 TO 4: PRINT«!,CHR*(34> »U*(I): NEXT 

<V7T> 

2190 

PRINT TAB(28)TE*(7) 

<F73> 

2950 

DCLOSE Hl ON U(UD7.) 


2200 

PRINT TAB(26)"EIGENE KATEGORIEN ERSTELLEN:" 

<GD4> 

2955 

IF F 17.-1 THEN RETURN 

<4GJ > 

2210 

WINDOW 0,14,79,20 

sB°G> 

2960 

DOPEN »1. " VIDEO-INDEX «SPACE>" , D (DD7.) ,U (UD7.) 


2220 

SI-1: BI-FLV.! GOSUB I10O0 

< VT2> 


,w 

<KGH> 

2230 

FOR 1-0 TO 19 

<SGH> 

2970 

PRINT«1,0 

<8HR > 

2240 

CHAR 1,24,5,"{BROWN)KATEGORIE "+CHR*(1+193)+ 


2980 

DCLOSE Hl ON U(UD7.) 

<GRP> 


" : fGREEN)" 

<MTK> 

2990 

GOTO 1000 

<40K> 

2250 

CHAR 1.39.6: PRINT CHR* ( 142) " <BROWN> 


2995 

: 

<BPE> 


HliEUäii&'SIGREEN) "-.CHR* (14); 

<E2H> 

2998 

REM FESTGELEGTE DATEN AENDERN 

<7SV> 

2260 

CHAR 1,39,5: LT-15: Z1-Z4»; F3X-2« GOSUB 400 


2999 

: 

<8P2> 


00 

< DO J > 

3000 

IF F27.-0 THEN GOSUB 22010: CHAR 1,0,22,Z5*: 


2270 

K*(I)=LEFT*(G*+Z6*,15): PRINT "C4DOWN)" 

<OFP> 


PRINT TAB(28)"fDOWN,CTRL+GlKEINE DATEN IM DP 


2280 

NEXT : KX=0: PRINT " ICLR>": WINDOW 0,0,79,24 

<TSO> 


EICHER SI=1: BI-FLX: GOSUB 11000: SLEEP 


2290 

BEND 

<DPU> 


3: GOTO 1000 

< 2D0 > 

2300 

TE* < 1 ) = " {6RIGHT5 EA5.DN. (PARALLEL) " 

<8HA> 

3056 

TE*(9)—"" 

<N34> 

2310 

TE»(2) = " l£S0fit2SPACE5 (SERIELL + JMTERFACE! 


3060 

TE»(7 > ="«DOWN,CTRL+B,GREENIZESTGELEGTE SÄTE 




<S0E> 


N INDERN:«DOWN 5” 

<03B> 

2320 

TE* < 3) = " .C.OJUlO.D.G.Rf {2SPACE ) J1P.S{SHF. SPACE } BO 1 


3070 

Fl 7.-1 

< QBR > 

2340 

/ VC. 1525 " 


2-?5££2;. u ? 

<H7l > 

ACE>803 " 

<L7C> 

3156 

CHAR 1,0,22,Z5» 

<EE4> 

<I5K> 

2350 

GOSUB 22010 

< 96 J s 

3157 

CHAR 1,0,24,"«3SPACE>£IE DATENDISKETTE WIRD 


2360 

PRINT TAB(2S)TE»(7) 

<46F> 


GEFNDERT.{23SPACEJ" 

<D2U> 

2370 

PRINT TABC22)"SEBEN SIE BITTE IHREN JRUCKERT 


3158 

FI*="VIDEO-STANDARDS GOSUB 45010: IF DR7.< 



YP AN:" 

<A1L> 


>0 THEN 3157 

<5G2> 

2380 

BY=14: TE-4: GOSUB 36000 

< M9C > 

3160 

SCRATCH (FI*) , D (DD7.) ,U(UD7.) 

< 1 AP > 

2390 

IF U7.= l THEN DR*="EPSON*": SA7.= 0: CW7.=0 

<8C5> 

3170 

GOSUB 2890 

<HVO> 

2392 

IF U7.-3 THEN DR*="MPS 801*": SA7.=7: CW7.= 1 

<LSG> 

3180 

F 17.-0 

< 12R > 

2396 

IF UX"4 THEN DR»="MPS B03«": SA7.-7: CWX-1 

<LPG> 

3190 

GOTO 1000 

<10K> 

2400 

IF U7.=2 THEN BEGIN 

<R7F> 

3200 

: 

<70T> 

2410 

TE*(1)="!2RIGHT> filRLITZ v£-£121-INTERFACE " 

<U0B> 

3498 

REM DATEIEN LADEN 

<0C1> 

2420 

TE» (2)*" (3RIGHT) EERLITZ .Y.C.E.I.- INTERFACE " 

<KNU> 

3499 

1 

<70U> 

2430 

TE»(3) = "C3RIGHT> DATA-DECKER«SPACE>INTERFAC 


35O0 

IF F27.-1 THEN 110 c REM IN 



E " 

< KHD > 


DEX GELADEN ? 

>;BN3> 

2440 

GOSUB 22010 

<66J> 

3510 

GOSUB 22010 

<56J> 

2450 

PRINT TAB(2B)TE*(7) 

<97R> 

3520 

81=1: BI-FLX: GOSUB 11000 

< V92> 

2460 

PRINT TAB(20)"EEBEN 5IE BITTE IHREN JNTERFAC 


3530 

GOSUB 35100 

<2U4> 


E-XYP AN:" 

< MOS > 

3540 

CHAR 1,0,22,Z5*: CHAR 1,0,24: PRINT "<21SPAC 


2470 

BY-14: TE-3: GOSUB 36000 

<P8C> 


EiaiE BENÖTIGTEN DATEIEN WERDEN BELADEN (112 


2480 

IF UX=1 THEN S07.-7: CW7.-0 

<L3B> 


SPACE)"; 

C1C1> 


IF U%-2 T MEN SflX-12. CWV.-1 

<C!1A> 


ri*-"VIDEO-STANDARDS ": GOSUB 45010: IF DR7.< 


2500 

IF UX=3 THEN SAX-1: CWX-1 

<:lfb> 


>0 THEN 1000 

<95G> 

2510 

DR*-"EPSON*" 

< 4 L A > 

3550 

DOPEN «1,(FI*),D(DDK),U(UDX) 

<50F> 

2520 

BEND 

<PRE> 

3570 

FOR 1=0 TO 19: INPUT«1,K*(I): NEXT 

<JLE> 

2530 

GOSUB 22010 

<36J> 

3588 

INPUT Ml,SAX,CWX 

<PF6> 

2540 

PRINT TAB(28)TE»(71 

< A7N> 

3590 

FOR 1=32 TO 222: INPUT«1,PR*(I): NEXT 

<D40> 

2550 

PRINT TAB(20>"SENUTZERDATEN FESTLEGEN:" 

<UDO> 

3600 

FDP 1 = 1 TO 4: INPUTttl ,U* (I) : NEXT 

< VD1 > 

2560 

WINDOW 0,14,79,20 

<91P> 

3610 

DCLOSE »1 ON U (UD7.) 

<K3A> 

2570 

SI-1: BI-FL7.» GOSUB 11000 

<FB2> 

3615 

FI»="VIDEO-INDEXtSSPACEI": GOSUB 45010: IE D 


25B0 

FOR 1-1 TO 4 

<UU0> 


RXO0 THEN 1000 

<M9F > 

2590 

CHAR 1,15,5: PRINT “(BROWN)£EILE "I" i IGREE 


3620 

DOPEN »1 , (FI * > , D (DDX > , U (UDX) 

<70F> 


N>" 

< A4H > 

3630 

INPUTM1 , NX. 

<0L0> 

2600 

CHAR 1,27.6: PRINT CHR» (142) " (BROWN JMNKNJXNN 


3640 

IE N7.-0 THEN 3660 

< PO A > 


»CHR 


3650 

FOR 1-1 TO N7.I INPUT« 1 ,G* (I) : INPUT« 1 ,REX (I) 

<DJE> 


*(14); 

<OJL.> 

3655 

IF CAX.VAL(MID*(G»(I),17,4)> THEN CAX-VAL(M1 


2610 

CHAR 1,27,5: LT-40: Z»=Z4*: F3X-2: GOSUB 400 



D*(G*lI),17,4)) 

< 40M.7 


00 

<EEL> 

3657 

NEXT 

<098> 

2620 

U* (1 ) -LEFT* (Z6», (LT/2) - (LEN (G* > /2> ) -*G*i U» ( I 


3660 

DCLOSE «1 ON U (UD7.) 

<LRD> 


>"U*( 1 )+LEFT* <Z6#,LT-(LEN (U» (I))))! PRINT "{ 


3670 

F2X-1: GOTO 1100 

<N9G> 


4DOWN)" 

< 5C8 > 

3680 

: 

<70T> 

2630 

NEXT : PRINT "(CLRJ": WINDOW 0,8,79,24 

<06B> 

3798 

REM DATENDISKETTE WECHSELN 

< 1S7> 

2650 

GOSUB 22010 

<36J > 

3799 

: 

<401 > 

2660 

PRINT TAB(28)TE»(71 

<E77> 

3BO0 

IF F27.-0 THEN 3500 

<9JB> 

2665 

SI-l! BI-FLX: BOSUB 11000 

<N02> 

3810 

F 17.-1: GOSUB 9100: Fl7.-0 

<0S1> 

2670 

GOSUB 35000 

<4E6> 

3815 

CA7.=0: FOR 1 = 1 TO NX: B*(I)="": REX(I)=@: NE 


2680 

CHAR 1,0,22,Z5»: CHAR 1,0,24: PRINT "{21SPAC 



XT 

<FD@> 


EIDIE BENÖTIGTEN DATEIEN WERDEN GELADEN !(12 


3820 

CHAR 1,0,24: PRINT "<9SPACE>SITTE DIE ICTRL+ 



SPACE )“; 

<FC1 > 


0>NEUE"+CHR*(27)"0"+" SATENDISKETTE EINLEGEN 


2690 

IF KX=1 THEN BEGIN 

<6F9> 


UND EINE XASTE DRUCKEN !I8SPACE>"; 

< C4M > 

2695 

FI»-"VIDEO-KATEGORIEN" : GOSUB 45000: IE DR7.< 






>0 THEN 26B0 

<A0T> 




2700 

DOPEN *1, (FI*) ,D (DM7.) ,U(UM7.) 

<90T> 

Listing 1. Das Hauptprogramm »VIDEOARCHIV«. 

Bitte mit 

2710 

2720 

FOR 1-0 TO 19 

1NFUTH1,K*(I) 

<KGH> 

<LJN> 

dem Checksummer 128 (Seite 158) eingeben und vor dem 

2730 

NEXT 

<6BG> 

Start unbedingt speichern! 
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ANWENDUNG 


C128 


3930 

IF JOY(2)>127 THEN 3050 

<74L> 


29PACE>ÄRSCHEN(29PACE,RVOFF,7SPACE)": TE-5: 


3B40 

GET TT*: IF TT*»"" THEN 3830 

<7VR> 


IF U'/.>2 THEN UX-UX+1 

<TIO> 

3950 

F2X-0« GOTO 3540 

<NTJ> 

6120 

FOR 1-1 TO NX 

<LR8> 

3997 

: 

<994> 

6125 

IF Bf(I)="" THEN 6525 

<SGF> 

3990 

SEM VIDEO-ARCH1V VERLASSEN 

■;6SR> 

6130 

IF LEN(GG*(1))>0 THEN BEGIN 

<HAE> 

3999 

: 

< APA> 

6132 

IF LEN(GG*(1)> >15 THEN IF INSTR(GG*(1),LEFT* 


4000 

B05UB 22010 

<I6J> 


(Gf(I),15))=0 THEN 6525 

<MC9> 

4010 

CHAR 1,@,22,Z5* 

<3LI > 

6133 

IF LENIGGf (1) X-15 THEN IF INSTR(LEFTf(Gf(I) 


4020 

PRINT TAB(11)" (DOWN)XIDEO-ARCHIV VERLASSEN? 1 



,15),BG*(1) 1-0 THEN 6525 

< HOP > 


4SPACE)£IND .SIE SICHER ( JA / NEIN ) ?"; 

<5HB> 

6134 

BEND 

<LMU> 

4030 

SI-1: BI-FLXs BOSUB 11000: PRINT "CCTRL+G)"s 

<CHI > 

6135 

IF LEN(GG*(2))>0 THEN IF INSTR(MID*(G*(I),16 


4040 

SET KEY T* 

<600> 


,1),GG*(2))-0 THEN 6525 

<9PM> 

4050 

IF T*-"N" OR T*-"Ä" THEN 10ÖO 

<A5U> 

6140 

IF LENIGGf(3))>0 THEN IF INSTR(MIDf(Gf<I),17 


4060 

IF T*-"J" OR T*-"£" THEN BEB IN 

< AC8> 


,4),GGf<3)>-0 THEN 6525 

<6DB> 

4065 

IF F27.-0 THEN 4090 

< V3H> 

6310 

D-VAL(RIGHT *(G*(I),4)) 

< PID > 

4070 

F1X-1« GOSUB 9100: FIX-0 : REM 1 


6315 

RECORD #2,D,1: IF DSO0 THEN GOSUB 45020: GO 



NDEX SORTIEREN UND SPEICHERN 

<MOV> 


TO 1100 

<MB3> 

4000 

CHAR 1,0,24: PRINT "tl1SPACE)SENKEN SIE AN X 


6320 

INPUT»2,Df 

<618> 


HRE ÜATENSICHERUNG !<6SPACE>flUF HIEDERSEHEN 


6325 

FOR J-5 TQ 9 

<T36> 


f C78PACE)"; 

<7QI > 

6330 

IF LEFT*(GG* < J) ,1)—"J" THEN GG*(J)-"1" 

<7P5> 

4090 

SLEEP 3: SCNCLR : FLX-l-FLXl SI-0: BI-FL'/.: G 


6335 

IF LEFTf(GGt(J),1>-"N” THEN GGt<J)-"2” 

<29J > 


OSUB 11000: SCNCLR 

<EUB> 

6340 

NEXT 

<O70> 

4100 

SYS 65341 

<vvu> 

6360 

IF LEN(GGf(4))>0 THEN IF INSTR<MIDt(Dt,61,3) 


4110 

BEND 

<LIU> 


,BG*(4>)-0 THEN 6525 

<0M8> 

4120 

GOTO 4040 

< 004 > 

6365 

IF LENIGGf(5))>0 THEN IF INSTR(MIDf(Dt,64,1) 


4130 

* 

<BHF> 


,GGt(5>>»0 THEN 6525 

<64G> 

4998 

REM TITEL EINGEBEN 

< 1S7> 

6370 

IF LENIGGf(6))>0 THEN IF INSTRIMID*(Dt,65,1) 


4999 

1 

<400 


,GGf(6)1=0 THEN 6525 

<NG0> 

5000 

FI*="VIDEO-DATEI <5SP^CE)": GOSUB 45010: IF D 


6375 

IF LENIGGf(7))>0 THEN IF INSTR(MIDf(Df,66,1) 



R7.O0 THEN 1100 

<TK1 > 


,GGt(7>)=0 THEN 6525 

<B1G> 

5002 

DOPEN »2, (Fit) ,L1 12,D(DD7.1 ,U<UD7.1 : TE*="S i 


6380 

IF LENIGGf(8)>>0 THEN IF INSTR(MIDf(Dt,67,1) 



a ß fl fi £ :" 

<OIK> 


,GG*(8>)=0 THEN 6525 

<CD3> 

5005 

TEt (1) -" (2SPACE )IiAUPTMENSf(2SPACE, RVOFF) " : TE 


6385 

IF LENIGGf(9)> >0 THEN IF INSTR(MIDf(Df,60,1> 



*(2)- n tZSPACE ) SPEICHERN C2SPACE,RVOFF >": TE*( 



,GG* <9))“O THEN 6525 

< 0QJ > 


3)="<2SPACE)SPEICHERN SPUCKEN C25PACE ,RVOFF 


6390 

IF LENIGGf(10))>0 THEN IF INSTR(RIGHTt(Dt,42 



)«: TE*<41="<2SPACE ) KATEGORIEN <2SPACE,RVOFF > 



),GG*(10)> =0 THEN 6525 

< J81» 


": TE*(5)-"<2SPACE > &TATISTIK T2SPACE,RVOFF )": 


6393 

IF F67.-3 THEN F7X-1: GOSUB 8560: GOTO 6525 

<I0O> 


TE-5: UX-2: F3X-1 

<8NC> 

6395 

F77.=l: CHAR 1,0,24: Cf (UX> =" (RVSON>" : FOR J= 


5010 

F47.-1: FÜR 1-1 TO 10: ZL(I>=0: GGt(I)-"": NE 



1 TQ TE: PRINT C*(J)TE*(J)\: NEXT 

<U0L> 


XT 

<543> 

6400 

CHAR 1,75,1: PRINT USING "H*H4";D 

<9GD> 

5015 

FLX-1-FLX: SI-0: BI=FL*/.i GOSUB 11000: GOSUB 


6405 

CHAR 1,15,4,LEFT*(D*,55): CHAR 1,15,7,MID*(D 



20000 

<LRT> 


*,56,1>: CHAR 1,20,7,K*(ASC(MlD*<D*,56,1))-6 


5020 

CHAR 1,0,22,Z5* 

<JPJ> 


5) 

<OGN> 

5030 

CHAR 1,0,24,+TE*(l>+" <RVSON) "+TE*(2) + " CRVOFF 


6410 

CHAR 1,15,10,MID*(D*,57,4): CHAR 1,36,10,MID 



>"+TEt(3)+TEf < 4 >+TEt < 5) 

<OBP> 


*(D*,61,3) 

<600> 

5040 

81-1: BI =FL7.: GOSUB 11000 

<U12> 

6415 

IF MIDf(Df,64,1> ="0" THEN CHAR 1,15,13,"(4SP 


5050 

D=1: DO UNTIL REX CD)-0 OR D=1100: D-D+l: LOO 



ACE)" 

<5TE> 


P 

<T8L> 

6420 

IF MID*(D*,64,1)="1" THEN CHAR 1,15,13,"JA<2 


5089 

IF D=1100 THEN BEGIN 

< IDJ > 


SPACE)" 

<0HQ> 

5090 

CHAR 1,0,24,"<CTRL+0> ÜATEI VOLL '"+CHR*(27> 

G^6B i 

6425 II- r Df (D*,64,1) ="2" THEN CHAR 1,15,13, "NEIN 



+"0"+"C2SPACEJSITTE NEUE DATENDISKETTE ANLEG 



" 

<IRM> 


EN ODER DIE DATEI REORGANISIEREN !"+CHR#(7) 

<A0L> 

6430 

IF MIDf(Df,65,I)="0" THEN CHAR 1,36,13,"<4SP 


5095 

IF JOY(2)>127 THEN 5105 

<68G> 


ACE)" 

<25E> 

5100 

GET T*: IF T*="" THEN 5095 

< 1TK> 

6435 

IF MIDf(Df,65,1> ="1 u THEN CHAR 1,36,13,”JA£2 


5105 

GOTO 110O 

< 5CM > 


SPACE)" 

<6PQ> 

5110 

BEND 

<5GU> 

6440 

IF MIDf(Dt,65,!)=”2“ THEN CHAR 1,36,13,"NEIN 


5120 

CHAR 1,75,1: PRINT USING ”"!D 

<9KD> 



<N3M> 

5130 

IF F4X< 1 THEN F47.= 10 

<L42> 

6445 

IF MID* <D*,66,1)—"0" THEN CHAR 1,15,16,"C4SP 


5135 

IF F4X=11 THEN F4X-1 

<TQF> 


ACE)" 

<V7E> 

5140 

IF F4X-1 THEN Z*-Z4*: LT-55: CX-15: CY-4 

<FH5> 

6450 

IF MID*(D*,66,1)="1" THEN CHAR 1,15,16,"JAC2 


5150 

IF F4X-2 THEN Zt=Z2t: LT-lJ CX-15: CY=7 

<EKI > 


SPACE)’ 1 

<RBO> 

5160 

IF F4X—3 THEN Z*=Z3*: LT=4: CX-15: CY=10 

< I9L> 

6455 

IF MIDf(Df,66,1)= "2" THEN CHAR 1,15,16,"NEIN 


5170 

IF F4%—4 THEN Z*=Z3*: LT-3: CX=36: CY-10 

<2EH> 



< 91M > 

5180 

IF F4X-5 THEN Z*-Zl*: LT-4: CX-15: CY-13 

<R48> 

6460 

IF MIDt(Dt,67,1>“"0” THEN CHAR 1,36,16,"<4SP 


5190 

IF F4X-6 THEN Z*=Zlt: LT=4: CX=36: CY=13 

<130 


ACE)" 

<OVE> 

5200 

IF F4X-7 THEN Z*=Z1*: LT-4: CX-15: CY-16 

< NH I > 

6465 

IF MIDf(Dt,67,1)="1” THEN CHAR 1,36,16,"JA(2 


5210 

IF F4X-0 THEN Zf-Zlf: LT-4: CX-36: CY-16 

<1MM> 


SPACE)" 

<530> 

5220 

IF F4V.=9 THEN Z*=Z1*: LT-4: CX-53: CY-16 

<BVQ> 

6470 

IF MIDf (Df, 67,1 > ■*"2" THEN CHAR 1 ,36,16, "NEIN 


5230 

IF F47.-10 THEN Z*=Z4*: LT-42: CX-15: CY-19 

<B9M> 



<EPM> 

5240 

ZL=ZL CF47.1 : Gf-GGf(F4X) l WINDOW CX,CY,CX+LT+ 


6475 

IF MID*(D*,69,1)—"0" THEN CHAR 1,53,16,"(4SP 



1.CY: PRINT TAB(ZL): GOSUB 40010 

<9TC> 


ACE)" 

<1JE> 

5230 

GOIU 3130 

<105> 

6400 

IF MIDf(Df,68,1)-"1" THEN CHAR 1,33,16.”JA£2 


5260 

1 

<810 


SPACE)“ 

<2V0> 

5999 

REM TITEL SUCHEN, AENDERN, LOESCHEN 

<0S3> 

6485 

IF MIDf(Df,68,1)»"2" THEN CHAR 1,53,16,"NEIN 


5999 

: 

<6QQ> 


" 

< GLM > 

6000 

FI*-'• VIDEO-DATEI C5SPACE)": GOSUB 45010: IF D 


6490 

CHAR 1,15,19,RIGHT*(Dt,42) 

<030 


R7.O0 THEN 11O0 

<HLH> 

6495 

GOSUB 36510 

<T61> 

60O2 

DOPEN «2, (Fit) ,1.112,D(DDX) ,U(UDX)l TE*-"£15S 


6500 

IF U7.-1 THEN 6005 

< 4KJ > 


PACE)'' 

<20E> 

6505 

IF UX-2 THEN 6525 

<ESR> 

6005 

TE*(1)<2SPACE>ÜAUPTMEN7C2SPACE,RVOFF>" i TE 


6510 

IF UV.“3 THEN CHAR 1,0,24,” (26SPACE)£ATENSATZ 



«(2)-" (2SPACE1IITEL SUCHEN(2SPACE,RVOFF) 11 : T 



WIRD GEDRUCKT (<11SPACE)": GOSUB 33500: UX" 



E*(3)-"C2SPACE) XI TEL FEDERN C2SPACE,RVOFF)": 



2: GOTO 6495 

<R1R> 


TE*14)<2SPACE)XITEL LOSCHEN(2SPACE,RVOFF) ' 


6515 

IF UX-4 THEN 6800 

<0G1 > 


: TE-4: U7.-1: F37.-1: D-0 

< 40F > 

6520 

IF UX-5 THEN 6900 

<043> 

6010 

F4X-I« F67.-1: F7X-0J FOR I»1 TO 10: ZL(I)-0: 


6525 

NEXT 

<O30> 


GG*(INEXT 

<3BR> 

6530 

IF F7X-0 THEN BEGIN 

<4T2> 

6015 

FLX-1-FLX* SI-0: BI-FLX* GOSUB 11000: GOSUB 


6532 

CHAR 1,0,24," <7SPACE)JS£IN XITEL MIT DEN ANGE 



20000 

<DRT> 


GEBENEN XRITERIEN IN DER fiATEI VORHANDEN !<5 


6020 

CHAR 1,0,22,Z5* 

<J1B> 


SPACE>"+CHRf(7): SLEEP 3: IF F6X-3 THEN 8005 


6030 

CHAR 1,0,24,"<RVSON>"+TE*(1 > + "(RVOFF >"♦TE*(2 



i ELSE GOTO 60O5 

<0LJ> 


> +TE* <3> + TE*(4) 

<7S3> 

6533 

BEND 

<RJ6> 

6040 

SI-1: BI-FLXi GOSUB 11000 

<UP2> 

6534 

IF F6X-3 THEN 8650 

<7Q3) 

6050 

GDTO 5120 

<3G4> 

6535 

TEt(2)■”(RVOFF,22SPACF1ÄEIN WEITERER XITEL I 


6100 

IF U7.-1 THEN 41120 

<A1A> 


N DER SATEI VORHANDEN !”*CHRt(7): TE-1: UX=1 

<QC2> 

6105 

IF GG*<i)“"" AND GG*(2)="" AND GG*(3)-"" AND 


6540 

F7X=0: CHAR 1,0,24,”(RVSON)"+TEt(1)+TEf(2): 



GG*(4)" AND GG*(5)="" AND GG*<6>="" AND G 



GOSUB 36510: GOTO 6005 

<9DI > 


G*(7)—"" AND GG* <8)="" AND GG*<9)="" AND GG* 


6545 

: 

<994> 


(10)*'"' THEN BEGIN 

<IUG> 

6798 

REM GELADENEN DATENSATZ WEITERVERARBEITEN 

< 4SJ > 

6107 

CHAR 1,0,24,"(24SPACE)J(£IN SUCHKRITERIUM VOR 


6799 

: 

<EPG> 


HÄNDEN '(6SPACE)"+CHR*(7): SLEEP 3: GOTO 600 


6800 

TEt (1) = " (2SPACE >UAUPTMEN5?(2SPACE, RVOFF ) “: TE 



5 

<4LC> 


» (2) = '■ (25PACE )3f EI CHERN 12SPACE, RVOFF ) "! TEI ( 


6108 

BEND 

< 1KE> 


3) ■" (2SPACE) SPEI CHERN K, SPUCKEN (7SPACE, RVOFF 


6109 

TE*(1)="(2SPACE)ÖAUPTMEN7<2SPACE,RV0FF)"x TE 



)”: TEt (4)=” C2SPACE > J1ATEG0RI EN (2SPACE, RVOFF ) 



*(2)(2SPACE)WEITER SUCHEN(2SPACE,RVOFF}": 



": TEt(5)(2SPACE)STATISTIK(2SPACE,RVOFF}” 

<FD4> 


TE*(3)—"(2SPACE>aRUCKEN(2SPACE,RVOFF)": TE*( 


6803 

TE-5: UX-2: F3X-1: F4X-1: F6X-2 

<EHP> 


4)="(2SPACE) iJ^DERN(2SPACE,RVOFF)": TE*(5)C 


6805 

GGt(l)=LEFTt(Df,55): 11=55: DO UNTIL MIDf(GG 
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ANWENDUNG 


11=11-1: 


LOOP : GG*<1)=LEFT 
r REM “SPACES" 


*( 1 ) , 11 , 1)0 

*(GG*(1),II) 

ENTFERNEN 

6010 GG*(2)=MID*(D*,56,1)x GG*(3)=MID*(DT,57,4): 


6015 

6020 

6825 

6030 

6835 

6840 

6845 

6850 

6055 

6060 

6065 

6070 

6075 

6080 

6005 

6098 

6899 

6900 


6910 

6920 

6930 

6940 

6950 


GGT(4)=MIDT(Dt,61,3) 

FOR J-5 TO 9 

IF MIDT(DT,59+J, 1) — " 1" THEN GGT(J)="JA“ 

IF MIDT(DT.59+J,1)“"2" THEN GGT(J)■"NEIN" 

IF MIDT <DT,59+J,1)“"0" THEN GGT <J> -"" 

NEXT 

GGT(10)-RIGHT*(DT,42): 11=42: DO UNTIL II-l 
OR MIDT(GGT(10) ,11,1)0" 11 = 11-1: LOOP 

IF 11=0 THEN GGT<10)="": ELSE GGT(10)=LEFTT( 
GGT(10),11) 

FOR J-l TO 10i ZL(J>=0: NEXT 

CHAR 1,0,24,TE*(1)+" (RVSQN) "+TET (2) + TE* (3) + T 
ET(4)+TE*(5) 

GOTO 5120 

IF U7.-1 THEN 6005 

IF UX*2 OR UX-3 THEN 34500 

IF UX-4 THEN 32000 

IF U7.-5 THEN 31OO0 

REM TITEL LOESCHEN 

CHAR 1,0,24,"(9SPACE)SOLL DER DATENSATZ WIRK 
LICH GELÖSCHT WERDEN 7C2SPACEX JA / NEIN >( 
8SPACE > " +CHR* (7) 

BET KEY TT 

IF TT="N" OR TT="Ä" THEN 6495 

IF TT="J" OR T*-"£” THEN REX(D)-0* GT(I)=“" 

CHAR 1,0,24,Z6T 

CHAR 1,0,24,"(20SPACE)#\TENSATZ HUMMER": PRI 
NT Dj" WURDE GELÖSCHT '(14SPACE>";i SLEEP 3« 
GOTO 6495 


6960 

6990 

6999 

7000 

7005 

7010 


7030 

7040 


7000 

7090 

7100 

7110 

7120 

7130 

7140 

7500 


7510 

732© 

7530 

7540 


7560 

7570 

7500 

7590 

7600 

7610 

7620 

7990 

7999 

0000 

8002 

0005 

0010 

0020 

0O25 

8O30 

0040 

8050 

0060 

0070 

0071 

0075 

8005 

8090 


REM TITELLISTE AUF BILDSCHIRM 

E 

FI*="VIDEO-DATEI(5SPACE)": GOSUB 45010: IF D 
R7.O0 THEN 11O0 

DOPEN #2, (FIT) ,LI 12,D (DD7.) ,U(UDV.) 

TET(1)="<2SPACE 5ÜAUPTMEN7C2SPACE,RVOFF,3SPAC 
E, BROWN>i.ISTEN NACH: {GREEN, 2SPACE) " : TET(2> = 
"C2SPACE)ALPHABET (3SPACE,RVOFF>": TET(3)="<2 
SPACE >KATEGORI EN (2SPACE, RVOFF ) " : TET (4)="(2S 
PACE )£ASS. HUMMERN C2SPACE, RVOFF > " : TE=4: U7.=2 
: F 57.-1 

FL7.= 1-FL7.: SI=0: BI=FL7.: GOSUB 11000 
PRINT "(CLR,BROWN,5SPACE)T EILMTITEL(47SPACE 
)? .LAUFZEIT" 

PRINT "£ASS.t 

v+v+v* 

PRINT "AR.(2SPACE)T KATEGORIE(7SPACE JT(7SPAC 
E>T JEMERKUNGEN" 

PRINT "V4V+>'t>>V+V+V+V*-VVV+V+>^i>>>V+>>'i>>'+'+>' 

CHAR 1,0,22,Z5T 
GOSUB 36510 

IF UX-1 THEN WINDOW 0,0,79,24: DCLOSE #2 ON 
U(UDX): GOTO 1100 
IF U7.=2 THEN 0100 
IF U7.-3 THEN 0200 
IF UX-4 THEN B300 

IF MX-9 THEN TET(1) = "(2SPACE)UAUPTMEN7(25PAC 
E,RVOFF>": TET(2)="<2SPACE>NFCHSTE SEITE(2SP 
ACE,RVOFF,4BBPACE>'': TE=2: UX=2« GOTO 7510 
IF MX>1 THEN TET(1>="(RVSON,2SPACE)ÜAUPTMEN7 
C2SPACE,RVOFF>" x TET (2)=" (RVOFF, 31 SPACE) KJEIN 
E WEITEREN £INTR?GE VORHANDEN !"+CHRT(7>: TE 
-1* UX-1 

CHAR 1,0,24,TET(1)+"(RVSON)"+TE*(2) 

WINDOW ©,'1,79,2©« CHAR 1,0,16 

FOR 12-1 TO MX—1 

DT-MI DT (PUT (I2),57,4)♦" (3SPACE > " +LEFT* (PUT (I 
2),55) + " , "♦MIDT(PUT(12),61,3)+" Hl NUTEN(12 
SPACE)" 

DT-DT+"(BROWN)"♦KT(ASC(MIDT(PUT(12),56,1))-6 
5) ♦" , "+T1* (VAL (MIDT (PUT (12) ,64,1) ) ) ♦RIGHTT 
(PUT(12),42)♦"(GREEN)" 

PRINT DT 
NEXT 12 

WINDOW 0,0,79,24 
GOSUB 36510 
IF UX-1 THEN 7O10 
IF UX-2 THEN RETURN 

REM TITELLISTE DRUCKEN 

i 

FIT-"VIDEO-DATEI(5SPACE) ": GOSUB 45010: IF D 
RXOO THEN 1100 

DOPEN #2, (FIT) ,L112,D(DD7.) ,U(UDX> 

TET(1)="(RIGHT) XITEL ALPHABETISCH DRUCKEN " 
TET(2)-" (RIGHT) NACH .KATEGORIEN AUSDRUCKEN " 
TET(3)-" NACH £ASS. HUMMERN AUSDRUCKEN " 

TET(4)-"C3RIGHT) NACH KRITERIEN DRUCKEN " 

TET(5)-" NACH 2ATENSATZNUMMERN DRUCKEN " 

TET(6)="(6RIGHT) ß fl U P T M E N F 

TET(9)="(2D0WN,CTRL+B,GREEN)XITELLISTE DRUCK 

EN :(2D0WN)" 

GOSUB 22O10 

F5X=0: F6X-0: F0X=0: BY-10: TE=6: GOSUB 3600 

0 

IF UX=6 THEN U7.= 1: GOTO 41100 

GOSUB 22010: CHAR 1,0,22,Z5T 

ON UX GOTO 8100,0200,8300,8500,0400 


<NLF> 

< E5K > 
<NJ6> 
<AL9> 
<DDP> 
<BNE> 
(KEO> 

<09D> 

< BBS > 
<0RF> 

< 03G > 
<704 > 
<D8K> 
<UN9> 

< KKL > 
<68 V> 

<2BB> 

<3CD> 

< 106> 


<MQF> 

< 10Q> 

< AH 1 > 

< U4V > 
<UG6> 


< NH6 > 
<50L> 

< 3SF > 
<0O2> 

<LL1 > 
<PJ7> 


<650 

6^0 

<IK1> 

<LV5> 

<7E8> 
<3TJ> 
<0M1 > 

<NKM> 

<A18> 

<RLE> 

<BLD> 


<NT6> 
<ONM > 

\ NLR > 

<L43> 


<2A7> 


<LIM> 

<RLE> 

< C0G > 
<P9A> 
<PM1 > 
<5CK> 
<1K0> 

< Al 9> 

< 2SB > 

< 20 A > 

<9IH> 

< MEO > 
<7G8> 
<T07> 
<ABT> 
<N91 > 
<MRF> 
<6SP> 

<BOT> 

<42J> 

<D9G> 
<101 > 
<87Q> 

< VNS > 
<NIV> 


809B REM TITEL ALPHABETISCH DRUCKEN 
8099 « 

0100 GOSUB 8700: SI»ii BI=FLXi GOSUB 11000 
8110 MX—1: FOR 1=1 TO NX 
0120 D=VAL(RIGHTT(GT(I),4)) 

8125 IF REX(D)=0 THEN 8160 

0130 RECORD #2,<D),1: IF DSO0 THEN GOSUB 45020: 
GOTO 1100 

Bl35 INPUT#2,DT * 

REM DATENSATZ LADEN 
8140 PUT(MX)=DT: MX-MX+1 

8150 IF F5X-0 THEN IF MX-FBX+109 THEN GOSUB 33000 
: MX-1 x REM DRUCKROUTINE 
8155 IF F5X-1 THEN IF MX»9 THEN GOSUB 7500: MX-1 
8160 NEXT 

8162 IF MX>1 THEN IF F5X-0 THEN GOSUB 33OO0 

8163 IF MX>1 THEN IF F5X-1 THEN GOSUB 7500 
8165 IF F5X-1 THEN 7010 

8170 GOTO 8005 
B180 i 

8198 REM NACH KATEGORIEN SUCHEN 
0199 : 

8200 CHAR 1,12,9,"£EBEN SIE BITTE DIE ZU IF F5 
X-l THEN PRINT "LISTENDEN";: ELSE PRINT "JJRU 
CKENDEN"; 

8201 PRINT " KATEGORIEN AN(2SPACE)(A-T) IF F5 

X-l THEN F3X-6: ELSE F3X-5 

8202 CHAR 1,31,15," (BROWN)ERSTE KATEGORIE: (GREEN 
,2SPACE)": CHAR 1,48,16,CHRT(142)♦"(BROWN)H( 
GREEN)"♦CHRT(14) 

B203 CHAR 1,30,17,"(BROWN)LETZTE KATEGORIE: (GREE 
N,2SPACE)": CHAR 1,48,10,CHR*(142)+"(BROWN)H 
(GREEN)"+CHRT(14) 

8204 CHAR 1,48,15: LT-1: ZT-MIDT(Z4T,11,20): SI=1 
: BI=FLX: GOSUB U0OO: GOSUB 4OO0O 

8205 J1=ASC(GT) 

8206 CHAR 1,40,17: GOSUB 4O0O0 
0207 J2=ASC(GT) 

02OG IF J1>J2 THEN B202 

8209 WINDOW 0,5,79,20: PRINT "(CLR)": WINDOW 0,0, 
79,24 

0210 GOSUB 87O0 

0229 MX-1: FOR J=J1 TO J2: FOR 1=1 TO NX 
8230 IF INSTR(MIDT(GT(I),16,1),CHRT(J))=1 THEN BE 
GIN 

8235 D=VAL < RIGHTT(GT(I),4)) 

8240 RECORD #2,(D),1: IF DSOO THEN GOSUB 45020: 

GOTO 1100 
8245 INPUT#2,DT 
8250 PUT(MX)=DT: MX-MX+1 

8260 tc F5X-0 THEN IF MX=F8X+109 THEN GOSUB 33000 
: MX-1 

0265 IF F57.= l THEN IF MX=9 THEN GOSUB 7500: MX-1 

8267 BEND 

B270 NEXT : NEXT 

0272 IF MX>1 THEN IF F5X-0 THEN GOSUB 33000: GOTO 
8275 

8273 IF MX>1 THEN IF F5X-1 THEN GOSUB 7500: GOTO 
0275 

8274 IF MX-1 THEN CHAR 1,0,24,"(13SPACE)JEIN £INT 
RAG IN DEN GEWALTEN KATEGORIEN VORHANDEN ! < 
12BPACE)"+CHRT(7): SLEEP 3 

8275 IF F5X-1 THEN 701© 

8200 GOTO 8005 

8290 : 

8298 REM NACH CASSETTENNUMMERN SUCHEN 
0299 : 

0300 CHAR 1,11,9, ".GEBEN SIE BITTE DIE ZU ": IF F5 
X-l THEN PRINT "LISTENDEN";: ELSE PRINT "DRU 
CKENDEN"; 

B301 PRINT " J2ASSETTEN-HUMMERN AN :": IF F3X-1 TH 
EN F3X-6; ELSE F3X=3 

0302 CHAR 1,28,15," (BROWN)ERBTE £ASS.HUMMER: (GRE 
EN,5SPACE)": CHAR 1,40,16,CHR*(142)♦"(BROWN) 
HMKM (GREEN)»+CHR#(14) 

8303 CHAR 1,27,17," (BROWN)LETZTE £ASS.HUMMER: (GR 
EEN,5SPACE)": CHAR 1,40,18,CHR*(142)+"(BROWN 
)HHHÄ(GREEN)"+CHR*(14) 

8304 CHAR 1,48,15: LT-4: Z*»Z3*: 61-1t Bl-FLX: GO 
SUB 11000: GOSUB 40O00 

8305 J1-VAL(G*>: IF J1<1 THEN 8302 

8306 CHAR 1,4B,17: GOSUB 40O0O 
03O7 J2-VAL(B*>: IF J2<1 THEN 8302 

8308 IF Jl>J2 THEN B302 

8309 WINDOW 0,5,79,20: PRINT "(CLR)": WINDOW 0,0, 
79,24 

8310 GOSUB 8700 

8320 MX-1: FOR J-Jl TO J2x FOR 1-1 TO NX 
8330 IF VAL(MID*(G*(I),17,4))-J THEN BEGIM 
0335 D=VAL(RIGHT*(Bf(I),4)) 

8340 RECORD **2,(D),1: IF D5O0 THEN GOSUB 4502O: 

GOTO 1100 
8345 INPUT#2,D* 

8350 PU*(MX)®D1: MX-MX+1 

8360 IF F5X-0 THEN IF MX-F8X+109 THEN GOSUB 330OO 
: MX-1 

8365 IF F5X-1 THEN IF MX-9 THEN GOSUB 7500: MX-1 

8367 BEND 

8370 NEXT : NEXT 

8372 IF MX>1 THEN IF F5X-0 THEN GOSUB 33000: GOTO 
8375 

9373 IF MX>1 THEN IF F57.-1 THEN GOSUB 7500: GOTO 
B375 


<9D5> 

< , LQM> 

<JIM> 

<OHL> 

<ACD> 

<7AI> 

<HEB> 

<K74> 

<08U> 

<GOM> 

<T6B> 

< 200 > 

<H1H> 

< 0GB > 
<V7D> 

< 051 > 
<M2P > 
<9T7 > 
<KQI> 


<L2D> 

< 05 A > 

<SP7> 

<RRC> 

<NVD> 

<F6K> 

<OAMv 

<EAK> 

<DOM> 

<81)7 > 
<867> 
<Q9J> 

< J3P> 

< 17D> 

<PES> 

<OLS> 

<T82> 

<EK5> 

<N73> 

< VBM> 

< VOH> 

<F6R> 

<D54> 


<02F> 

< VRE > 
<2DI > 
<LIN> 
C8D1> 

< NQU > 


<TGD> 


<4MI > 

< 2A2 > 
<71P> 

< OEM > 
<M7P > 

< D2L > 

<8E7> 
<967> 
<N9J > 
<SIB> 

<I3D;'> 

<9ES> 

<QLS> 

<V0A> 

<CK5> 

< J7J> 
- NAM> 

< UQH > 

<F6P> 

<DT6> 


Listing 1. (Fortsetzung) 
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0374 IF M7.-1 THEN CHAR 1, 0,24 , " U6SPACE)£IESE £AS 
SETTENNUMMERN SIND NICHT VORHANDEN ! £16SPACE 
>"+CHR*(7): SLEEP 3 
8375 IF F5X=1 THEN 701© 

030© GOTO 0005 
0390 : 

8398 REM NACH DATENSATZNUMMERN DRUCKEN 

8399 s 

0400 CHAR 1,7,9,"HEBEN &IE BITTE DIE ZU DRUCKENDE 
N DATENSATZ-HUMMERN AN (2SPACE)(1 -"s PRINT N 
7."):": F3X=5 

0402 CHAR 1,25,15,"CBROWN>ERSTE DATENSATZ-JÜUMMER: 
(GREEN,5SPACE>": CHAR 1,49,16,CHR* <142)+"CB 
ROWN>£LSüÄ(GREEN) " + CHR* < 14) 

0403 CHAR 1,24,17,"(BROWN)LETZTE ÜATENSATZ-ÜUMNER 
i (GREEN,5SPACE ) ": CHAR 1,49,1B,CHR*(142)♦ "( 
BROWN(GREEN)"+CHR*(14) 

0404 CHAR 1,49,151 LT-4: Z*=Z3*s SI-1: BI-FL7.: GO 
SUB 11000s GOSUB 40000 

8405 Jl=VAL(G*)t IF J1<1 OR Jl>NX OR Jl>1100 THEN 
8402 

0406 CHAR 1,49,17s GOSUB 40000 

0407 J2-VAL(G*)r IF J2<1 OR J2>NX OR J2X1100 THEN 
8402 

8400 IF J1>J2 THEN 0402 

0409 WINDOW 0,5,79,20s PRINT "(CLR)"s WINDOW 0,0, 
79,24 

8410 GOSUB B70O 

8420 MX-li FDR J-Jl TO J2s FOR 1 = 1 TO N7. 

0430 IF VAL(RIGHT*(G*(I),4))=J THEN BEGIN 
8435 D=VAL(RIGHT*(G*(I),4)) 

8440 RECORD M2,(D),lx IF DS<>0 THEN GOSUB 45020s 
GOTO 1100 
8445 INPUT#2,D* 

8450 PU*(MX)=D*: MX-MX+1 

8460 IF MX=FBX+109 THEN GOSUB 33000s M7.= l 

8465 BEND 

8470 NEXT s NEXT 

8475 IF M7.>1 THEN GOSUB 33000 

0480 GOTO 8005 

8490 : 

8498 REM NACH KRITERIEN DRUCKEN 

8499 s 

8500 TE*=" KRITERIENWAHL "s TE*<1>="<2SPACE)flRUCK 
MEN7(2SPACE,RVOFF>": TE*(2)-'" (2SPACE>£RITERI 
ENAU5WAHL BEENDET (2SPACE ,RVOFF>" : TE=2: UX=2 

0505 D=0s F37.= ls F47.-1S F67.=3s F7X=© 

8507 FOR 1=1 TO 10: ZL(I)=©: GG*(I)="": NEXT 
8510 GOSUB 11000: GOSUB 20000 

8515 CHAR 1,0,22,Z5$: CHAR 1,©,24,TE*(1)+"CRVSON) 
"+TE*(2> 

8520 61 = 1 s BI=FL7.s GOSUB 11000 
8525 GOTO 5120 

8530 IF U7.= l THEN F67.=0: GOTO 8005 

8535 IF GG*(1>="" AND GG*(2>="" AND GG*(3)="" AND 
GGJ(4)" AND GG*(5>="" AND GG*(6)="" AND G 
G*<7>="" AND CG*(B> ="" AND GG*(9)="" AND GG* 
(10)="" THEN BEGIN 

8540 CHAR 1,0,24,"(24SPACE3SEIN SUCHKRITERIUM VOR 
HÄNDEN '(65PACE)"+CHR*(7): SLEEP 3: F4X-1: G 
OTO 8515 
B545 BEND 

8547 GOSUB 22010: GOSUB 0700: SI = 1: BI-FLX: GOSUB 
11000 

8550 M7.-1: GOTO 6120 
8560 PU*(MX)=D*: MX-MX+1 

0565 IF MX=FBX+109 THEN GOSUB 33000: M7.= l 
8570 RETURN 

8650 IF M7.> 1 THEN GOSUB 33000 
8655 GOTO 8005 
8670 : 

HA'VH RFM DRIJCKMELDI INR AI IRREREN 

8699 : 

8700 CHAR 1,0,22,Z5* 

8710 PRINT "(DOWN) SATENSfTZE WERDEN GEPUFFERT UN 
D ANSCHLIEßEND "»s IF F5X-© THEN PRINT "GEDR 
UCKT.";s ELSE PRINT "GELISTET."; 

8720 PRINT "(2SPACE)SITTE ETWAS ££DULD ! " s 
873© RETURN 
874© : 

8798 REM PROBRAMMINFORMATION 

8799 r 

800© GOSUB 2201© 

081© PRINT CHR*(142)" (BROWN,SDOWNIOGGGGBGGBGGGGGG 
GGQ6GGGGGGBGG8GGGGGGBGGGGQGBQBGQGBGGGGQQGGQG 
GGGGGGGGGGGGGGGGGGGGI"| 

882© FOR J-l TO 6: PRINT "E" GPC(70)»E"j: NEXT 
0830 PRINT "PHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHJ" 
CHR*(14) i 

8840 CHAR 1,35,12," (BROWN).yjIRSION 2.21 Ä" 

8850 CHAR 1,17,13,"PROGRAMMIERT VON äETLEF jäRDMAN 
N, 3502 VELLMAR" 

8860 CHAR 1,28,15,CHR*(142)+"C"+CHR*(14)+" 1987 B 
Y flARKT & (SHF. SPACE > JECHNIK " 

B87© SI-1: BI=FLX: 80SUB llOO© 

888© IF JOY(2)>127 THEN 890© 

889© GET T*e IF T*="" THEN 888© 

890© GOTO HO© 

8910 : 

8990 REM INDEX SORTIEREN 

8999 : 

9000 GOSUB 22010 
901© CHAR 1,0,22,Z5* 

902© PRINT TAB(12)"(DOWN)INDEXDATEI WIRD SORTIERT 
!(3SPACE)SITTE EINEN flDMENT fiEDULD !"? 


• büd: 
*: vjf> 
<2TI> 
< KIJ > 
<BT3> 
<MQQ> 


<MLJ> 


<4 hp ; • 


<©GG> 

<523> 

<RF6> 

< BIM > 

< ©9U > 
<FAS> 

< BU7 > 
<E67> 
<B9J > 
<84E> 

< I VD> 

<P2T> 

<KLS> 

<H9I > 

< D6T > 

< BD6 > 
<POH> 
<97S> 
<1D1> 

< J IF> 
<BDD> 

< HQ6 > 


<G4P> 
<HQQ> 
< 514 > 
<NJ6> 

<NNP* 

<TH2> 

<EC4> 

<©HH> 


< BDM > 


<6RK> 

< BD6 > 

< 1 E6> 
<ISU> 
<G9M> 
<T6T> 
<067 > 
<R5K> 
<3HI > 
<MIR> 

< AD9 > 

< JOE> 
<G9T> 


<Q1U> 

< G?2A :> 
<Q67> 

< M2P > 
<ATB> 

< IQA > 
<I2J> 


<ITP> 

<620 


< INO 
<14©> 

<RLB> 

<8N1 > 

<CF2> 

<HEE> 

<HFJ> 

<COM> 

<QJB' 

<DTN> 

<SRI> 

<62J ■ 
<©TV> 

<39H> 


903© SI-ll BI-FL7.: GOSUB 11000 <DF2> 

9040 UF7.= 1: 0F7.-N7. <5RP> 

905© GOSUB 38000 <BBI> 

9060 GOTO 1300 <901> 

907© ; <IIB> 

9090 REM INDEX SICHERN <BD1> 

9099 : <NQU> 

910© GOSUB 2201© <42J> 

9105 BI-ls BI=FLXs GOSUB llOO© <L82> 

911© GOSUB 3510© <©Q4> 

912© CHAR 1,0,22,754 <GTV> 

913© PRINT TAB(4)"(DOWN)iNDEXDATEI WIRD SORTIERT 
UND GESPEICHERT! (46PACE)£ITTE EINEN flOMENT G 
EDUL.D !"; <4B5> 

914© UFX-1« OFX-NX <DRP> 

915© GOSUB 3800© <9BI> 

9152 FI*-"VIDEO-INDEX(5SPACE)"i GOSUB 45010s IF D 

RX<>0 THEN 9120 <VS9> 

9155 SCRATCH(FI#),D(DDX),U(UDX) <0UP> 

916© DOPEN #1,"VIDEO-INDEX (5SPACE)",D(DDX) ,U(UDX) 

,W <8KH> 

9165 PRINT#1,NX <LGQ> 

9170 FOR 1-1 TO NX <CV8> 

9100 PRINT«»1 ,CHR*(34>+G*(I) s PRINT# 1 ,REX < 2 ) <2RR> 

919© NEXT <ETG> 

920© DCLOSE #1 ON U(UDX) <BAB> 

921© IF F1X-1 THEN RETURN <ORA> 

922© GOTO 130© <90l> 

9230 s <11B> 

9298 REM INDEX WIEDERHERSTELLEN <9D5> 

9299 s <LOM> 

9300 GOSUB 2201© <02J> 

9305 SI=1: BI-FLXl GOSUB 1100© <L02> 

9300 GOSUB 3510© <1Q4> 

931© CHAR 1,0,24: PRINT "U1SPACE)I^DEXDATEI WIRD 

WIEDERHERGESTELLT 1 (3SPACE)SITTE ETWAS £EDU 
LD ! (7SPACE)"; <003> 

9315 FI*="VIDEO—DATEI<5SPACE>"s GOSUB 4501©: IF D 

RXO0 THEN 931© <1BI> 

932© NX-0 <N6N> 

9330 FDR 1-1 TO 1100: G*(I>="": REX(I)=0: NEXT <NMU> 

934© DOPEN #2,(FI*),L112,D(DDX),U(UDX) <NMV> 

9345 FOR 1=1 TO 110© <QQT> 

7347 RECORD #2,<I),1: IF DS<>© THEN GOSUB 45020: 

GOTO 130© <IQ2> 

9350 GET #2,D* <J3U> 

9351 IF D*=CHR*<255) OR D*="" THEN 937© <M5K> 

9353 RECORD #2,(I),1: IF DS<>0 THEN GOSUB 45020: 

GOTO 130© <AQ2> 

, .^3SÄ JNPUT#2,D* <V5S> 

9355 IT £N(D*)<110 THEN 937© <ACM> 

9356 G*=RIGHT*("0000"+RIGHT*(STR*<I),LEN(STR*(I)) 

-1>,4) <T2J> 

9360 G*(NX+I)=LEFT*(D*,15)+M1D*(D*,56,5)+G* <11N> 

9365 NX=NX+1: REX(I)=I <AUR> 

937© NEXT <6QB> 

9375 DCLOSE #2 ON U(UDX) <TOC> 

9380 GOTO 912© <29K> 

939© : <MIR> 

9398 REM DATUM AENDERN <9T7> 

9399 : <KQI> 

940© GOSUB 2201© <E2J> 

941© IF U7.=4 THEN F3X-3: PRINT TAB (33) " C2D0WN,CTR 

L+B,GREEN)SATUM FNDERN :(2D0WN>": ELSE PRINT 
"C4D0WN)" <HN5> 

942© CHAR 1,13,15,"(BROWN)GEBEN SIE BITTE DAS SAT 
UM EIN(2SPACE> ( TTjiji.J_3.J J ) : (2SPACE,GREEN,BS 
PACE)" «:.EQQ> 

943© CHAR 1,60,16: PRINT CHR* (142) " (BROWN) JWCHKNN. 

Ä(GREEN)" CHR*(14) <C8D> 

944© CHAR 1,60,15: LT=8: Z*=Z3* <3UV> 

*?4ij© 31-1 s BI=FLX: QOSUB 11 ©O© <DJ2> 

9460 GOSUB 4000© <6BA> 

947© IF VAL <LEFT*(G*,2) XI OR VAL(LEFT*(G*,2>)>31 

THEN 942© <3UV> 

9480 IF VAL(MID*(G*,3,2))<1 OR VAL(MID*(G*,3,2))> 

12 THEN 9420 <KF9> 

9490 IF VAL(LEFT* <G*,2))>DTX(VAL(MID*(G*,3,2))) T 

HEN 942© <BFT> 

950© IF VAL(LEFT*(G*,2))=29 AND VAL(MID*(G*,3,2)) 

-2 THEN IF VAL(RIGHT *(0*,4>>/4<>INT(VAL(RIGH 
T*(G*,4>)/4) THEN 942© <©L7> 

9505 IF VAL(RIGHT*(G*.4)X1906 THEN 942© <D49> 

9510 DT*-LEFT* <G*, 2) •*". "+MID* (B* , 3,2> + " . "♦RIGHT* ( 

B*»4> <K5S> 

9520 IF UX<>4 THEN RETURN <77J> 

953© GOTO 130© <A0I> 

9540 s <M2P> 

959B REM DIRECTORY ANZEIGEN <ATB> 

9599 ! <IQA> 

9600 GOSUB 22010 <A2J> 

9610 TE*(1)-"<3SPACE)aEN)?(3SPACE,RV0FF)": TEt(2)= 

" aLE<SHF.SPACE>ß?OSRAMHDISK (RVOFF)": TE*<3 
)-" Si& SATENDISK (RVOFF)": TEJ14)»" ERE1 £R 
00RAMMD1SK (RVOFF)“: TEI(S)=" EREt flATENDIS) 

(RVOFF)" < AOG > 

9620 WINDOW 0,0,79,24 <VPO> 

9630 CHAR 1,0,22,2» <01S> 

9640 TE=5: SOSUB 36500 <V0V> 

9665 IF U7.=l THEN 1300 <9C4> 

967© SLOW <ioo> 

9600 IF uy.=2 THEN GOSUB 35606: GOSUB 9736: DIRECT 

ORY D (DM7.) , U (UM7) < H8P > 

9696 IF U7.=3 THEN GOSUB 35100: GOSUB 9730: DIRECT 

ORY DCDD7),UCUD7> <EHF> 

9706 IF U7.=4 THEN GOSUB 35006: GOSUB 9730: DIRECT 
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□RY " (SHF.SPACE)",D(DM7.) ,U(UM'/.) : REM CHRf (1 
60) 

9710 IF U7.-5 THEN GOSUB 35100: GOSUB 9730: DIRECT 
DRY " (SHF. SPACE > " , D (DD7.) , U (UDV.) 

9720 FAST : IF DSO0 THEN GOSUB 45020 

9725 GOTO 9620 

9730 WINDOW 26,6,60,20 

9740 PRINT " (CLR)": CHAR 1,0,14 

9750 RETURN 

9760 : 

9790 REM DISKETTENBEFEHL SENDEN 

9799 : 

9BO0 GOSUB 22010 
9910 CHAR 1,0,22,Z5f 

9020 TEf(l)-"(4SPACE»flEN*C4SPACE,RVOFF)"« TEf(2)- 
"<?SPACE»£flLLECT JIATENDISK (25PACE,RVOFF»"« T 
Ef(3)"" (2SPACE »5CRATCH £.ILE AUF £ATENDISk(2S 
PACE,RVOFF )" 

9830 TE-3: F37.-0: GOSUB 36500 
9060 IF U7.-1 THEN 1300 
9870 IF U7.-2 THEN BEGIN 

9800 GOSUB 35100 

9890 COLLECT D (DDV. > , U < UDV.) 

9900 IF DR7.O0 THEN GOSUB 45020: GOTO 9030 
9*10 BEND 

9920 IF UV.-3 THEN BEGIN 
9930 WINDOW 0,5,79,20 

9940 CHAR 1,14,11," (BROWN) flAME DES ZU LÖSCHENDEN 
EINTRAGES :(2SPACE,GREEN,16SPACE)" 

9950 CHAR 1,50,12« PRINT CHRf ( 142) " (BROWN »M&Mm 
flJWJWXJW (GREEN> " CHRf(14) 

9960 CHAR 1,50,11: LT-16: Zf<=Z4f 

9970 F37.-4: GOSUB 4O0O0 

9900 PRINT " (CLR)"t WINDOW 0.0.79,24 

9990 GOSUB 35100 

100O0 SCRATCH(Gf> ,D(DDV.) ,U(UDV.) 

10O10 IF DS 1 THEN GOSUB 450201 GOTO 9830 
10020 BEND 
1003O GOTO 9810 
10050 : 

1099B REM BILDSCHIMWECHSELPOUTINE 

10999 : 

11000 BANK 15« IF BI=0 THEN BI-O: AT=8: EL5E BI-1 
6« AT=24 

11010 POKE 2606,BI: POKE 2607,AT: IF 51-1 THEN 5Y 
S 52604,BI,12: SYS 52684,AT,20 
11020 RETURN 
11030 x 

19998 REM EINGABEMASKE 

19999 : 

20000 PRINT CHRf(142)"(CLR,GREEN>DIA3N VXVI" CHRf 
(14)" ZIDEO- CBR0WN5TC13SPACE,GREEN?"TEf " <1 
3SPACE, BROWN »Tf DATUM: CGREEN»"DT1 

20030 PRINT CHRf(142)"(GREEN)FJBTFUWUWJ" CHRf(14) 

" ARCHIV (BROWN)'*{41 SPACE>7 DATENSATZ: C3SPA 
CE,GREEN}0O00" 

2OO40 PRINT " (BROWN?VV+V+V+V+V4 

V+“+»' * +>'+'+>» J + u +V+»'+'+>~+»»' *■>"*>" i +>>>>>■+»»' • 

+»»»'" 

20050 PR INT "(DOWN,65PACE,BROWN)TITEL: CGREEN) 
20060 PRINT CHRf (142)" (BROWN t 15SPACE ? f<-NXN_NXNXN>«xw. 

" CHRf(14) 

20070 PRINT 

20000 PRINT " (2SPACE3 KATEGORIE: (GREEN,7SPACE,BROW 
N)( (GREEN,15SPACE,BROWN >) (GREEN)" 

20090 PRINT CHRf<142)"(BROWN,15SPACE)£(3SPACE)ZÜ1N 
CHRf (14) 

20100 PRINT 

2011O PRINT " (3SPACE)£ASS.AR. : CGREEN,12SPACE.BR0W 
N)LAUF ZEIT: (GREEN,0SPACE,BROWN}filNUTEN" 
20120 PRINT CHRf(142)"(BROWN,15SPACE»fLHXH(17SPACE 
»ZUIÄ" CHRf (14) 

2013O PRINT 

20140 PRINT » (6SPACE>fARBE: CGREEN,15SPACE,BROWN)£ 
.0-LB.Y s (GREEN)" 

2O150 PRINT CHRf(142>"(BROWN t 15SPACE? KHNJ4 C17SPACE 
>&MÄ" CHRf (1 4> 

2O160 PRINT 

2O170 PRINT " (3SPACE>iX)NGPLAY: (GREEN,14SPACE.BR0W 
NJ&TEREO:(GREEN,12SPACE,BROWN)AILI:(GREEN)" 
2O1B0 PRINT CHRf(142)"(BROWN,159PACE (17SPACE 
C13SPACE)NKKR" CHRf(14) 

20190 PRINT 

2O200 PRINT "BEMERKUNGEN: (GREEN)" 

20210 PRINT CHRf < 142) " (BROWN. 155PACE » HNXJWWWOW Jl 

11 CHRf (14) 

20220 RETURN 
21130 « 

21998 REM TITELBILD 

21999 « 

22000 PRINT "<CLR,2D0WN)";: GOTO 22020 

22010 FL7.-1-FL7.« SI-O: BI=FL7.« GOSUB 11000: TI7.-1 
t PRINT " (CLR)"; 

22020 PRINT TAB(9) CHRf (142)" (RED)OGGGGGGGGGGGGGG 
GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGUGGGGGGGGGG 
GGI" 

2203O PRINT TAB(9)"E" SPC(22)"(YELLOW>DGIDGLNC2SP 
ACE»OGLOGI" SPC(22)"(RED)E" 

22040 PRINT TAB (9> "E" CHRf ( 14) " (YELLOW) 241DEOARCH 
IV-1YSTEM - " CHRf(142)"E EKO E(2SPACE)E(2S 
PACEJE E •' CHRf (14)" V'IDEOARCHIV-äYSTEM " 
CHRf<142)"(RED)E" 

22050 PRINT TAB(9)"E" SPC(22)"(YELLOW)FHJRHMFHMPH 
MPHJ" SPC(22)"<RED>E" 

22060 PRINT TAB(9)"PHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 


<F09> 

<JCS> 

< 3C6 > 

< 1TQ> 
<:B90> 

< 15Q> 
<Q27> 
<L2L> 
<BTF> 
<GQ2> 
<M2J> 
<1TR> 


<MB7> 

<LAM> 

< 0G3 > 

< TBM > 
<RQ4 > 
<DCB 

<■ BSH 

<50U> 

. TVL 
<KGT > 


607 •• 
BEF > 
« 6M5 
EAP 
OG 4 
- 5(4 
Q13 
NUE 
E34 
• 59N > 
7GV 
812: 


:* c 
<007 > 
<48J> 
<EHR> 
<03A> 

<KCO> 


<566.' 

'5MU: 


<K5A > 

< VMU> 

:bft> 

< 594 > 
' NJU 

<6TS> 

<RDJ> 

< F GU > 

<K.0v: 


<Q4E > 
<7LU> 

<3P0> 

< I DK > 

< VGU > 
<HEF> 

<E8G> 

< HQ7 > 
<997 > 

< 0G3 > 
<60G> 
<9C7> 

<IEQ> 


<91N> 

<QRK> 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHJ(GREEN >" CHR 
f (14) 

22065 IF TI7.-1 THEN RETURN 

22070 PRINT TAB«11)"(2D0WN,GREEN)DIE iNDEX-fiEQUEN 

TIELLE VIDE0CASSETTENVERWALTUN6 FW WEN" 
220QO PRINT TAB(21) " (DOWN,PURPLE)£ fi fl fl fl 5 fi Ä 
L(3SPACE)P £(3SPACE)1 28 ( £ )" 

22090 PRINT TAB<27)"(2D0WN.YELLOW)EIN ÄUALITFTSRR 
OGRAMM VON" 

22100 PRINT TAB(34) CHRf(142>"(DOWN,WH ITE)DIASN V 
XVI" 

22110 PRINT TAB(34)"FJBTFUWUWJ" 

22120 PRINT TAB(31) CHR*(14)"(DOWN,YELLOW)3. OFT 
WAR E" 

22130 PRINT TAB(26) CHRf(142)"(4D0WN,GREEN)C " CH 
Rf (14)"19B7 BY AARKT h IECHNIK"; 

22140 RETURN 
22150 « 

22998 REM HILFSSEITE 

22999 « 

23000 GOSUB 22010 

23010 PRINT CHRf(27)"M"jCHRf(142)"(BROWN,DOWN)OGG 
GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 
GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGI"$ 

23020 FÜR J-l TO 17s PRINT "E" SPC(78)"E";: NEXT 
23030 PRINT "PHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
J" CHRf(14) 

23040 CHAR 1,2,7,"(RVSON,GREEN)flEN7STEUERUNG*(BRO 
WN,RVOFF) J1IE STEUERUNG ERFOLGT MITTELS "+C 
HRf(142)♦"E"♦CHRf(14)♦" (RVSON,GREEN > £1NGAB 
E:(BROWN,RVOFF) £IE £URSORSTEUERUNG" 

23050 CHAR 1,17,0,"DER OBEREN CURSORSTEUERTASTEN 
"+CHRt <142> + "E"+CHRf<14>+" (2SPACE»ERFOLGT M 
ITTELS DER UNTEREN" 

23055 CHAR I,47,9,CHRf <142)+"E"+CHRf(14)+"(11SPAC 
E >£DRSORSTEUERTASTEN" 

23060 CHAR 1,2,IO,"(CTRL+B»VERTIKALE ßENxS"+CHRf( 
27)+"0"+"<12SPACE,CTRL+B/HORIZONTALE CENTS" 
♦CHRf(27)+"0 "♦CHRf(142)+"E" 

23065 CHAR 1,47,11,"E"+CHRf(14)+" (RVSON,GREEN»££ 
i.: (BROWN,RVOFF,2SPACE»LÖSCHT 1 ZEICHEN LINK 
6 " 


23070 CHAR 1,6,12,"HOCH": PRINT SPC(23)"WFHLENCBS 
PACE »"+CHRf(142)+"E"+CHRf(14 > +"(19SFACE» VOM 
£URSOR" 

23O80 CHAR 1,7,13,CHRf(142)+"CGREEN)^t": PRINT SF 
C(26)"^1(1OSPACE,BROWN>E" 

23O90 CHAR 1,7,14,"(GREEN)3t": PRINT SPC(26)"3T(1 
OSPACE, BROWN)E" +CHRf (14)+" (RVSON ,GREEN) 1X5. 
'—l. (BROWN,RVOFF,3SPACE)FxST EIN LEERZEICHEN" 
♦CHRf(142) 

231O0 CHAR 1,5,15,"(BROWN)YZC2SPACE,GREEN»CfCBROW 
N» "+CHRf (14) + "W?)HLEN(9SPACE>LINKS"+CHRf (14 
2)+" (GREEN)YZ(2SFACE)C£ "+CHRf(14)♦"(BROWN 
»RECHTS "+CHR# <142)+”E "+CHRf(14)+"<6SPACE> 
RECHTS VORM SLiRSOR EIN" 

23110 CHAR 1,7,16,CHRf(142)+"(GREEN)!"+CHRf(34>: 

PRINT : CHAR 1,35,16,"(BROWN) 1 "+CHRr(34)+"( 
1OSPACE>E" 

23120 PRINT : CHAR 1,7,17,"(GREEN)Hf": PRINT SPC( 
26)"(BROWN)#f(1OSPACE >E "+CHR1(14)+"(RVSON, 
GREEN) .S.UJAPJ1 J-O-MX : (BROWN, RVOFF > 1 £ELD VORW 
FFfTS" 

23130 CHAR 1,5,10,"RUNTER": PRINT SPC(36) CHRf(14 
2) "E" 

23140 CHAR 1,1,19,"GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 
GGGGGGÖGGGGGGGGGE "+CHRf<14) + "(RVSON,GREEN> 
.C.U.WAP.« ü£: (BROWN,RVOFF,3SPACE»EIN £ELD ZURT 
CK" 

23145 CHAR 1,2,20,"(RVSON,GREEN)(BROWN,RVOFF 
» fl) IFPflIF DIESER tllLrQSE ITE C1 5SPACE )"*CHR»< l 
4L)+"E" 

23150 CHAR 1,1,21,"GGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 
GGGGGGGGGGGGGGGGE "+ CHRf<14>«" (RVSON,GRCEN 
) CXAS.O W iJLLI/JLL&LH: (BROWN, RVOFF , 2SPACE ) «EEWF 
GUNG" 

23160 CHAR 1 ,2,22,"JJRUCKERTRE IBER: ": IF SAV.^0 AM 
D CW7.-0 THEN PRINT "PARALLEL <£ENTRONICS)": 
ELSE PRINT "SERIELL <£r)MM0D0PE-ilU5r , 

23165 CHAR 1,47,22,CHR*(142)+"E"+CHRf(14)+"C46PAC 
E)DES £U9S0RS INNERHALB DES" 

23170 CHAR 1,2,23, "«3ATENDI9KE7TE : UNIT": PRINT U 
07.", J2RI VE"DDV." (12SPACE» " CHRK 142) "E" CHRI 
( 14) " (6SPACE)AKT-JELLEN £.1NGABEFELDES" 

23180 SI-1« BI-FLV.s GOSUB 1 ! »«00 
23190 IF JQY(2'.127 THEN 23210 
232O0 GET Tft IF Tf-"" THEN 23190 

23210 PRINT CHRf'27)"L":j GOSUB 22O10: GOTO 36020 
23220 : 

30998 REM STATIST!) 

30999 : 

31000 CHAR 1,60,6," (BROWN) ^ T V + ' +VW^VV+V+WW " 
31O10 FOR J-l TO 11« CHAR l,60,6+J," T C17SPACE>7": 

NEXT 

31020 CHAR 1,60,18."■ iV+V+V+VV+vv-. -T +^V+lj " 

31030 WINDOW 61,7,77,17« PRINT CHRf'27)"M"; 

31040 PRIMT " (GREEN )Ä IflUflU JS.BROWN ) 

WfV*V+VVV*V(GREEN>£ATEN5FTZE: (2SPACE) 1100 


x 3 AR s 
< LKK > 

<DC4> 

<H61 

<3SI ' 


< U9D> 

< A5U> 

' P9D 

<7GN. 

<H07> 

<C9J> 

< 3GF > 
<002 

< VML 


BS9 

< KSK • 

<V95 


<L20> 


<KF5> 


< RK.6 > 


•:7ld; 

' N06 - 


■ 2ZJ 


PLN 


“OM 

r ir- 


OIL 

6D? 

■EOF 

N60 

ENJ 

•EFF 

7GF 

001 

DA8 


6HR 

“BI 

I9L 


< QHR > 
<P9T> 


(MAXIMAL)" <161> 

31050 PRINT "Ä^TENSrTZE:C2SPACE»";« PRINT USING " 

PRINT " (ISTWERT) (7SPACE,BROWN>7? 


Listing 1. (Fortsetzung) 
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31Ö60 PUDEF M " 

31070 PRINT "{GREEN>BELEGUNG:"j s PRINT USING "MMM 
. MM" ; NX/ 11;: PRINT " 7. «BROWN 
TW" i 

31000 PUDEF "0" 

31090 PRINT "{GREENJGREVTE SASSETTEN-NUMMER:(69PA 
CE> " ; : PRINT US ING "MMMM" ; CAX 
31100 IF JOY(2)>127 THEN 31120 
31110 GET T*x IF T*="" THEN 31100 
31120 WINDOW 60,6,78,181 PRINT "(CLR)";CHR*(27)"L 
";» WINDOW 0,0,79,24 
31130 GOTO 5120 
31140 t 

31998 REM KATEGORIEN ZEIGEN 

31999 * 

32010 FÜR J-l TO 11 s CHAR 1 ,60,6+J , "Tr< 17SPACE >?" s 
NEXT 

32030 WINDOW 61,7,77,17» PRINT CHR*(27)"M"; 

32040 Jl-0 
32050 KX-0 

32060 C*(KX)-"(RVSON>" 

32070 PRINT "(HOME>"|s FOR J-Jl TO Jl+10: PRINT C 
*<J)" "K*<J>" (RVOFF J"s x NEXT 
32080 IF JOY <2)00 THEN 32100 
32090 GET T*x IF T*="" THEN 32080 
32100 T-PEEK(212) : C*(KX)-"" 

32110 IF T=86 OR JOY(2)>127 THEN 32150 
32120 IF T»B4 OR J0Y(2>=4 OR JOY(2)-5 OR JOY(2)«6 
THEN BEGIN 

32122 IF K7.>9 THEN Jl-Jl + 1 

32124 IF J1>9 THEN Jl=9 

32125 IF KX-19 THEN 32140 

32126 KX=1-<KX<19)*KX 
32128 BEND 

32130 IF T=83 OR JQY<2)=1 OR JOY(2)-2 OR JOY(2)=8 
THEN BEGIN 

32132 IF KX<10 THEN J1=J1-1 

32134 IF J1<0 THEN Jl=© 

32135 IF KX=0 THEN 32140 

32136 KX=KX-1-19*(KX=0> 

32138 BEND 

32140 GOTO 32060 

32150 WINDOW 60,6,78,18: PRINT "(CLR)" CHR*(27)"L 
FOR 13=1 TO 500: NEXT 

32160 WINDOW 0,0,79,24: CHAR 1,15,7,CHR*(KX+65) : 

CHAR 1,20,7,KS(KX) : GG*(2)=CHR*(KX+65) 

32170 GOTO 5130 
32180 : 

32998 REM DRUCKROUTINE 

32999 : 

33000 TRAP 33700 

33005 IF SA7.=0 THEN OPEN 4,5: GOTO 33030 

33010 OPEN 4,4,SAX 

33030 IF F87.=6 THEN 33176 

33070 PU*=U*(5>: GOSUB 39000 

33080 PRINTM4,PU* : PRINTM4 

33090 PU*=U*(6>: GOSUB 39000 

33100 PRINTM4, PU*: PRINTM4 

33110 PU*=U*(5): GOSUB 39000 

33120 PRINTM4,PU*: PRINTM4 

33125 IF FBX=1 THEN 33505 

33130 FOR 13=1 TO 4: PU*=U*(I3): GOSUB 39000 
33140 PRINTM4,LEFT*(Z6*,2Ö)+PU*: NEXT 
33150 PRINT«4: PRINTM4,LEFT*(Z6*,31)+"STAND : "DT 
*: PRINTM4 

33160 PU*=U*(5): GOSUB 39000 

33170 PRINTM4,PU*: PRINTM4; PRINTM4: PRINTM4 

33175 13=13 

33176 MM7.= 1» IF M7.-1<I3 THEN I3=MX-1 
331B0 PU*=U*(5>: GOSUB 39000 

33190 PRINTM4,PU* 

33200 PU*=U*(7): GOSUB 39000 
33210 PRINTM4,PU* 

33220 PU*=U*(5): GOSUB 39000 
33230 PRINTM4,PU*x PRINTM4 
33240 FOR 12=1 TO 13 

33250 PU*=MID*<PU*(MMX) ,57,4)+" C3SPACE)" H_EFT* (PU 
* (MM7.) ,55)+” , "+MID*(PU*(MMX) ,61,3)+" flINU 
TEN<11SPACE)" 

33260 PU*=PU*+K# <A8C(MID*(PU*(MMX> ,56,1) >-65)+" , 
" + T1 * (VAL (MID* (PU# (MM7.) , 64,1) ) ) +RIGHT* (PU* 
(MM7.) , 42): GOSUB 39000 
33270 PRINTM4 , PU*: PRINTM4: MM7.-MM7.+ 1 
33280 IF 13=19 THEN IF M7.-MM7. THEN 33350 
33290 NEXT 

33300 IF 13=13 OR I3-MX-1 THEN BEGIN 
33310 FOR I1-1 TO 72-20-12*3: PRINTM4: NEXT 
33320 IF MX-MMX THEN CLOSE 4: TRAP x RETURN 
33330 13=19: BOTO 33180 
33340 BEND 

33350 IF 13=19 THEN BEGIN 

33360 IF M7.-MM7. THEN FOR 11 = 1 TO 72-6-12»3x PRINT 
M4: NEXT : CLOSE 4: F87.-6: TRAP : RETURN 
33370 FOR 11 = 1 TO 72-3-12*3» PRINTM4 x NEXT 
33380 GOTO 33180 
33390 BEND 

33500 F87.«lx GOTO 33000 
33505 PRINTM4 

33510 PU*="XI TEL{7SPACE): "+LEFT*(D*,55)x : GOSUB 
39000X GOSUB 33640 

33520 PU*= "JSATEGORIE C3SPACE) x "+K*(ASC(MID*<D*,56 
,1))-65): GOSUB 39000: GOSUB 33640 
33530 PU*="£ASS.äR.C4SPACE): "+MID*<D*,57,4): GOS 
UB 39000: GOSUB 33640 


<BT4> 


<3T3> 

<CDK> 

<LFK> 

<7PS> 

<50H> 

<LQQ> 

<3S5> 

< EPP > 

< 2GB > 
<20A> 
<BAG> 

< AGB> 
<3R0> 
<U85> 
<FTF> 
<0SJ> 
<:pmf> 

<0K7> 

<FSE> 

<4SN> 

<SHJ> 

<4TV> 

<950> 

<CEC> 

<M8A> 

<M2R> 

<SDM> 

<FHE> 

< 1R4> 
<RIP> 
<60E> 
<RUS> 
<6GB> 
<BHU> 
<BPC> 

<SA8> 

<0JA> 

< 1K4> 
<EPP> 
• 107 . 
<401 > 
<ELG> 
<9T5> 
<FPD> 
<5MQ> 
<LB6> 
<01D> 
<BF6> 
<C3T> 
<5A6> 
<B3D> 

< 7ML > 
<1GK> 
<GAB> 

<00F> 

<P9M> 

<206> 

< 1P6> 
<7BC> 
<1FM> 
<EQF> 
<T9M> 
<IQF> 

< H8M> 
<62L> 
<KQE> 


•' EN 1 > 


< 7H1 > 
<VL0> 
<415> 
<G6G> 
<LCF> 
<T3N> 
<DON> 
<0H1> 

< 7QE > 
<DD4> 

<UNT> 

<1F0> 

<FP4> 

< JMU> 
<LHD> 
< 101 > 

<ER9> 

<EVR> 

<VNV> 


33540 PU*="±/UJFZEIT{4SPACE>: "+MID* (D*,61,3) +" fll 
NUTEN": GOSUB 390Ö0: GOSUB 33640 
33550 PU*= " £ARBE (7SPACE > x "x IF MID*(D*,64,1>="1" 
THEN PU*=PU*+"JA" 

33554 IF MID*(D*,64,1)="2" THEN PU*=PU*+"NEIN" 
33556 GOSUB 39O0Ö: GOSUB 33640 

33560 PU*= "JÜLIAY.I7SPACE) x "x IF MID* (D*,65,1) =" 1" 
THEN PU*=PU*+"JA" 

33564 IF MID*(D*,65,1)="2" THEN PU*=PU*+"NEIN" 
33566 GOSUB 39000: GOSUB 3364© 

33570 PU*="JJDNGPLAY(4SPACE): ": IF MID*(D*,66,1)- 
"1" THEN PU*=PU*+"JA" 

33574 IF MID*(D*,66,1)="2" THEN PU*-PU*+"NEIN" 
33576 GOSUB 39000: GOSUB 33640 

33580 PU*="STEREOC6SPACE): IF MID* (D* ,67,1 > =" 1 

" THEN PU*=PU*+"JA" 

335B4 IF MID*(D*,67,1)—"2" THEN PU*-PU*+"NEIN" 
33586 GOSUB 39000: GOSUB 33640 

33590 PU*="MI£1(8SPACE): ": IF MID*(D*,68,1)="1" 
THEN PU*=PU*+"JA" 

33594 IF MID* (D*,68, 1) = "2" THEN PU*=PU*-f "NEIN" 
33596 GOSUB 39000: GOSUB 3364© 

336O0 PU*="BEMERKUNGEN : "+RIGHT*<D*,42)x GOSUB 3 
9000: GOSUB 33640 

33610 PRINTM4: PRINTM4: PRINTM4: PX-PX+1 
33620 IF P7.-3 THEN FOR 12=1 TO 12x PRINTM4: NEXT 
x P7.-0 

33630 CLOSE 4: F87.-0: RETURN 
33640 PR1NTM4,PU*: RETURN 
33650 x 

33698 REM DRUCKERFEHLERBEHANDLUNG 

33699 : 

33700 CLOSE 4 

33710 CHAR 1,0,24,"<6SPACE>SRUCKERFEHLER! SITTE L 
EHLER BESEITIGEN UND FUNKTION ERNEUT WAHLEN 
!(5SPACE)"+CHR*(7) 

33720 IF FBX=0 THEN DCLOSE M2 ON U(UD7.) 

33730 TRAP : CLOSE 4: SLEEP 3: GOTO 1100 
33740 : 

34498 REM DATENSATZ SPEICHERN 

34499 : 

34500 FOR 1=1 TO 4 
34510 IF GG*(I)="" THEN BEGIN 

34520 CHAR 1,0,24, " CBSPACE>JC£IN EINTRAG IM "+CHR* 
(34) + "MUV”+CHR* (34) + "-£ELD VORHANDEN. SITTE 
SÄTEN KORRIGIEREN'C9SPACE>"+CHR*(7) 

34530 SLEEP 3: F47.= I 

34540 CHAR 1,0,24, +TE* (1) + " <RVSON> "+TE* (2) +" <RVOF 
F>"+TE* (3) +TE* (4) +TE* (5) : UX=2 
34550 GOTO 5130 
3456Ö 
34570 NEXT 

34575 CHAR 1,0,24,Z6* 

34580 CHAR 1,0,24," -£20SPACE>SATENSATZ KUMMER ": P 
RINT D;" WIRD GESPEICHERT!<19SPACE>"; 

34590 D*=LEFT*(GG*(1)+Z6*,55)+GG*(2)+RIGHT*<"0000 
"+GG*(3),4)+RIGHT*("000"+GG*(4),3) 

34600 FOR 1=5 TO 9 

34610 IF LEFT*(GG*(I),1)="J" THEN D*=D*+"l"x GOTO 
34640 

34620 IF LEFT*(GG* <I),1)="N" THEN D*=D*+"2": GOTO 
34640 

34630 D*=D*+"0" 

34640 NEXT 

34650 D*=D*+LEFT*(GG*(1O)+Z6*,42) 

34660 RECORD M2,D,1 

34670 IF DSO0 THEN GOSUB 45020: GOTO 1100 
34680 PRINTM2,CHR*(34)+D* 

34690 IF DSO0 THEN GOSUB 45020: GOTO 1100 
34700 REX <D> =1 
34702 IF D>NX THEN NX=D 

3*1703 IF F6X-2 THEN I — 1 « DO UNT1L VAL (RIGHT* (Q* (I 
),4))=D: I-I+lx LOOP x GOTO 34710 
34705 1=1x DO UNTIL G*(I)="" OR 1=NX: 1=1+1: LOOP 


34710 G*=RIGHT* <"O0O0"*RIGHT*(STR*(D),LEN(STR* <D) 

>-l),4) 

34720 G*(I)=LEFT*(D*,15)+MID*(D*,36,5)+G* 

34730 IF VAL(MID*(G*(D),17,4))>CAX THEN CAX=VAL(M 
ID*(G*(D),17,4)) 

34735 IF UX«3 THEN GOSUB 33500 
34740 IF F6X-2 THEN 6005 
34750 GOTO 501© 

34997 x 

34998 REM PROGRAMMDISKETTE EINLEGEN 

34999 : 

35000 IF DMXODDX OR UMXOUDX THEN 35050 
35010 CHAR 1,0,22,Z5*x PRINT Z6* 

35020 PRINT "(GREEN,DOWN,9SPACE)ÄITTE DIE £ROGRAM 
MDISKETTE EINLEGEN UND EINE IASTE DRECKEN ' 
(10SPACE)"+CHR*(7); 

35030 IF JOY(2)>127 THEN 35050 
3504O GET TT*t IF TT*="" THEN 35030 
35050 RETURN 

35097 x 

35098 REM DATENDISKETTE EINLEGEN 

35099 : 

35100 IF DMXODDX OR UMXOUDX THEN 35150 
35110 CHAR 1,0,22,Z5*: PRINT Z6* 

35120 PRINT "(GREEN,DOWN,10SPACE)SITTE DIE SATEND 
ISKETTE EINLEGEN UND EINE XASTE DRECKEN » (1 

2SPACE)"+CHR*(7 >; 

35130 IF JOY(2)>127 THEN 35150 
35140 GET TT*: IF TT*="" THEN 35130 
35150 RETURN 
35160 : 


< 0HP > 


<40B> 

<8T2> 

< 1 CB> 

<99T> 

< GM2 > 
<PFB> 

< J80> 
<0F2> 

<HEB> 

<6VT> 

< 082 > 
<91B> 

< BOR > 

< BH2 > 
<10B> 

<NEP> 

<GI6> 

<4H4> 

< 2PD > 
<LRH> 
<D9N> 
<70T> 
<916> 

< LGL > 


<P7S> 
<V1P> 
< 00.8 > 
<CPH> 
<105 > 
<50M> 
<-Q63> 
<FAH> 


<G8F> 

<KJ2> 

<JI?> 

<544> 

<FPE> 

<08G> 

<U34> 

<98R> 

< KNL > 

<SIL> 

<TDB> 

< I TB> 

< F 0B > 
<KAO> 

< 15 V 1 
<95T> 

< FHK > 
<AEO> 
<FDN> 

< HMM > 
<GK9> 

<OKL> 


<41N> 

•■FHB> 

<2VF> 

^36E> 

<P10> 

< 444 > 

< BHC > 
<7GV> 
'812> 
•;CD4 

< DBO> 


< LK6 > 

< A09> 
<1UV> 

< 0E7 > 
<0G0> 
<209> 
<30E> 
<ST6> 
<DKO> 


<GJI> 

<QIB> 

< 1UT> 

< 0A7> 
<70T> 
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C128 


ANWENDUNG 


35990 

REM VERTIKALE MENUESTEUERUNG 

< 6GR > 

40050 

IF ZL>0 THEN IF T-2 AND QE*=CHR*<157) THEN 


35999 

s 

<A 1 A> 


ZL=ZL-1: PRINT GE*;: GOTO 4OO20 

<A65> 

36000 

UX=1 

<AHR> 

40055 

IF F47.-2 AND ZL>0 THEN IF GE*=CHR*(20> THEN 


36020 

PRINT TAB(28),TE*(9) 

<OMS> 


POKE 54784,10: POKE 54785,8: WINDOW 0,0,79 


36010 

CHAR 1,0,BYt C*(U7.)="(RVSaN>'' 

<9SN> 


,24: CHAR 1,20,7,L£FT*(Z6*,151: WINDOW CX,C 


36&40 

FQR I1-1 Tü TE: PRINT TAB<25>C*(I1)TE*(I1): 



Y,CX+LT+1,CYt PRINT TAB(ZL) 

<L9R> 


PRINT : NEXT 

<7NH> 

40060 

IF ZL>0 THEN IF GE*-CHR*<20> THEN G*=LEFT*( 


36050 

SI-1: BI-FLX« GOSUB 1100« 

<NB2> 


0*,ZL-1)FRIGHT*(0*,W-ZL>: ZL-ZL-1: GOTO 401 


361 10 

IF JOY(2)< >0 THEN 36130 

<79D> 


30 

< 1 UN > 

36120 

GET T*i IF T*-'"' THEN 36110 

<JMC> 

40070 

IF ZL<W THEN IF W<LT THEN IF GE*=CHR*<148) 


36130 

T-PEEK (212)1 C*(U7.)="'' 

< SDJ > 


THEN G*-LEFT*(G*,ZL)♦CHR*(32)+RIGHT*(G*,W-Z 


36140 

IF T=B6 DR JOY(2)>127 THEN RETURN 

<IU6> 


L): GOTO 40130 

■■veu> 

36150 

IF T-B4 OR JOY(2)“4 OR J0Y121-5 OR J0Y(2>=6 


40080 

IF INSTR(Z*,GE*)“0 THEN 40O1O 

<5TB> 


THEN UX-1-(UX< TE)*UX 

<7B9> 

40100 

IF ZL-LT THEN 40010 

< 4 IU > 

36160 

IF T-83 OR JOY(21*1 OR J0Y(2>=2 OR J0Y(2)=B 


40110 

ZL-ZL+l: IF ZL-W+l THEN W-ZL. 

< ALC > 


THEN UX-UX-l-TE« ÜJX-1> 

<EM3> 

40120 

G*-LEFT *(G*, ZL- 1)♦GE#*RIGHT *(G*,W-ZL) 

<B6F> 

36170 

IF T-64 THEN GOTO 23000 

<21R> 

40125 

IF F37.= l AND F47.-2 THEN POKE 54704,10: POKE 


36180 

GOTO 36030 

<0HP> 


54785,0: WINDOW 0,0,79,24: CHAR 1,20,7,K*( 


36190 

: 

<6BR> 


ASC(G*>-65): WINDOW CX,CY,CX+LT+1,CY: PRINT 


36490 

REM HORIZONTALE MENUESTEUERUNG 

<30D> 


TAB(ZL—1) 

<L3T> 

36499 

» 

<I06> 

4013O 

PRINT GE*s: POKE 244,0: POKE 245,0: GOTO 40 


36500 

UX-1 

<2KR> 


010 

( PNT > 

36510 

CHAR 1,0,24: C* (U7.)»” (RVSON)" 

<44L> 

40140 

IF F37.-1 THEN ZL(F47.)=ZL: 00* (F47.) =0*: F47.= 


36520 

FOR 11=1 TO TE: PRINT C*(11)TE*(11>J : NEXT 



F47.+ 1 

<EL9> 


: FOR 13=1 TO 500: NEXT 

< QRL > 

40150 

POKE 54704,10: POKE 54785,8: RETURN : REM 


36530 

Sl-1: BI-FL7.: GOSUB 11000 

<NJ2> 


CURSOR AUSBLENDEN 

<HB0> 

36540 

IF JOY (2)00 THEN 36560 

<B7G> 

4016O 

l 

<HQ5> 

36550 

GET TI: IF T*="" THEN 36540 

<001 > 

40998 

REM HORIZONTALE MENUESTEUERUNG EINGABEMASKE 

< DHN > 

36560 

T-PEEK(212): C*(UX)="“ : 


4 0999 

| 

CS3I > 


REM NR. DER GEDRUECKTEN TASTE 

<FDR> 

41 O00 

IF F37.-0 THEN 40020 

< IUP> 

36570 

IF T«B3 OR JOY(2)'127 THEN RETURN 


41O05 

IF F37.71 THEN 41200 

<J2 P> 


: REM NR. CRBR HOCH 

< AMG> 

4101O 

WINDOW 0,0,79,24: POKE 54704,10: POKE 54785 


36500 

IF T-B6 OR JOY(2)-2 OR J0Y(2)=3 OR J0V(2>=4 



,8: CHAR 1,0,24 

<VPQ> 


THEN U7.= 1-(UV.<TE)*U7. : REM NR. CRSR RE 


41020 

IF T-83 OR JOY(2)>127 THEN 41100 

< MOV > 


CHTS 

<TER> 

41030 

IF T-86 OR JOY(2)—2 OR J0YI21-3 OR JOY(2)=4 


36590 

IF T=85 OR JOY(2)=6 OR JOY(2)-7 OR J0Y(2)=B 



THEN UX-1-(UX< TE)*UX 

<PN3> 


THEN U7.=U7.-1-TE«(U7.= 1) : REM NR. CRSR LI 


41040 

IF T=85 OR JOY(2)=6 OR JOY(2)=7 OR JOY(2)=0 



NKS 

< I59> 


THEN UX-UX-1-TE*(UX=1> 

<B6Q> 

36600 

GOTO 36510 

< 1HH> 

41045 

C*(U7.)=" CRVSONJ": FOR 1=1 TO TE: PRINT C*(I 


36610 

i 

< 50N > 


1TE*(I);: NEXT : FOR 13=1 TO 500: NEXT : C* 


37997 

REM QUICKSORT ALGORITHMUS 

<5CK> 


(UX)»"" 

<H30> 

37990 

REM SQRT.FELD: G*(), UNT.GR.: UFX, OB.GR.: 


41050 

WINDOW CX,CY.CX+LT+l,CY: PRINT TAB(ZL): GOT 



0F7., STACK: S7. () , STACKP. : S17. 

<3KV> 


0 40020 

<BCL> 

37999 

* 

< E1Q > 

41106 

IF F6X.=3 THEN 0530 

<HBP> 

38000 

S1X-1: 5X(1,1)=UFXx SX(1,2)=0FX 

< 4 VR > 

41 105 

IF F6X-2 THEN 6865 

<B9T> 

30010 

DO WHILE Sl'/.OO 

< 5NN > 

41110 

IF F67.-1 THEN 6100 

<TTA> 

30020 

L7.-S7. (S17., 1) : R7.-S7. (S17..2): S17.-S 17.-1 

<M6A> 

41120 

IF UX=1 THEN BEGIN 

<F9T> 

30030 

DO WHILE RX>LX 

<T54> 

41122 

IF PX=0 THEN 41128 

<MJH> 

30040 

PX=LX: QX=RX: ZZ*=G*(INT(LX+RX)/2) 

<253> 

41124 

CLOSE 4: IF SAX=0 THEN OPEN 4,5: ELSE OPEN 


30050 

DO WHILE PX<=*QX 

<iB4:- 

4 4,SA7. 

<491 > 

30O60 

IF GKP7.XZZ» THEN PX=PX+1: GOTO 38060 

<SPJ> 

41126 

FÜR 13=1 TO 72-F’7.*20: PRINTB4: NEXT : P7.-0: 


30070 

IF G*(QX)>ZZ* THEN QX=QX-1: GOTO 38070 

<VDG> 


CLOSE 4 

<KKV> 

30080 

IF PX<=QX THEN XX*=G*(PX): G*CPX)=G*<QX): G 


41120 

F3X-0: F67.-0: DCLOSE »2 ON U(UD7.): TRAP : 0 



*(QX)=XX*: PX.=PX.+1: QX=QX-1 

<C5V> 


OTO 1100 

< MKU > 

3809O 

LOOP 

< IQP > 

41129 

BEND 

<TB6> 

38100 

IF RX—PX>QX—LX THEN BEGIN 

<H09> 

41 130 

IF F6X=ö AND UX—2 OR U7.=3 THEN 34500 

<6EF> 

38110 

IF LX<QX. THEN S1X-S1X+1: SX(S1X, 1) “LX: SX(S 


41140 

IF F67.-0 AND U7.=4 THEN 32000 

<7C0> 


IX,2)=QX 

< AH1 > 

41150 

IF F6X-Ö AND UX=5 THEN 31000 

<40C> 

38120 

L7.-P7. 

<020 

41160 

: 

< JQD> 

38130 

BEND : ELSE BEGIN 

<OCV> 

41198 

REM ZURUECK IN’S MENUE 

<8H3> 

38140 

IF P7.<R7. THEN SIX-SIX+li S7. (S17., 1) -P7.1 S7.(S 


41199 

X 

<M2Q> 


17.,2)=R7. 

<6H0> 

41200 

IF T=B3 OR JOY(2)>127 THEN POKE 54704,10: P 


38150 

R7.-07. 

<UAT> 


OKE 54705,8: WINDOW 0,0,79,24 

<U95> 

30160 

BEND 

<F5E> 

41210 

IF F37.-2 THEN IF T=B3 OR J0Y(2)>127 THEN 10 


38170 

LOOP : LOOP 

<Q1R> 


00 

<TL2> 

30100 

RETURN 

< J07> 

41220 

IF F37.-3 THEN IF T-83 OR JOY (21 >127 THEN 13 


30997 

: 

<JIC> 


Ö0 

<C64> 

38990 

REM UMWANDLUNGSROUTINE CBM-ASCII AUF DRUCKE 


41230 

IF F37.-4 THEN IF T=B3 OR JOY(2) >127 THEN 98 



R-ASCII 

< BHF > 


00 

<HI I > 

30999 

2 

<G22> 

41240 

IF F37.=S THEN IF T-83 OR JOY (2) >127 THEN 00 


39ÖÖ0 

IF CWX-0 THEN RETURN 

< 3MM > 


O0 

<4L6> 

39O10 

P*-*"' : REM HILFS 


41250 

IF F37.-6 THEN IF T-83 OR J0Y(2)>127 THEN 70 



STRING 

<9NF> 


10 

<RTR> 

39020 

FOR I1-1 TO LEN(PU*) : REM G* 


41260 

GOTO 40020 

<U00> 


<A> - UNZIJWANDELNDER STRING 

< JKE> 

41270 

2 

<0A3> 

39030 

P*“P*+-PR*(ASC(MID*(PU*,11,1))) : REM UMWAN 


43998 

REM FEHLERBEHANDLUNG TEILPROORAMME LADEN 

<EHR> 


DLUNGSROUTINE 

<45D> 

43999 

: 

<03A> 

3904O 

NEXT : REM 0* = 


44000 

DOPEN «1,<FI*>l IF DS-0 THEN DCLOSE #1: RET 



UMGEWANDELTER STRING 

<E4T> 


URN 

<OSA> 

39050 

PU*=P* 

<2Q0> 

4401O 

PRINT " <CLR)i. flHUHU ' "♦CHR* (7) 

<3UC> 

39060 

RETURN : REM WEITE 


44020 

PRINT '* (DUWN)SITTE 7BERPRVFEN SIE JURE £ROQ 



R IM PROGRAMM 

<1SJ> 


RAMMDISKETTE" 

<K1F> 

39997 

l 

<HI4> 

44O30 

PRINT "(DOWN)UND ’AO.O.TXM■ SIE DAS l'POGRAMM 


39990 

REM INPUTROUTINE 

< AHB> 


ERNEUT ' (SDOWNV 

<3M6> 

39999 

l 

< 12 A> 

44040 

DCLOSE Ml 

< 1L4> 

40000 

ZL-0 : REM LT 


44050 

NEW 

<4SQ> 


- ANZAHL ZEICHEN 

< 4DN > 

44060 


<0R1> 

40005 

G*='"' : REM LT 


44990 

REM FEHLERBEHANDLUNG 

<9H7> 


- ANZAHL ZEICHEN 

<C3V> 

44999 


<K2I > 

40010 

W-LEN(0*1 : REM 0* 


45O0O 

DOPEN Hl , (FI*I , D (DM7.) ,U (UM7.) : IF DS-0 tHEN 



- UEBERGABESTRING 

<5J4> 


45050: ELSE GOTO 45O20 

< BKK > 

40020 

IF JOY (2)00 THEN 40025 

<BKS> 

45010 

DOPEN Hl , (FI*) ,D(DD7.) ,U(0D7.) : IF DS-0 THEN 


40023 

PRINT CHR* (27) "E";: OET BE*: IF GE*='"' THEN 



45050 

<03R> 


40020 

<E2C> 

45026 

CHAR 1.0.24." (2SPACE >AL5.ILE-T.TJ_NJ : fJU.^R : fBRO 


40025 

T-PEEK (212): IF JOY (2)00 OR T>02 AND T<07 



WN)' , *DS*+ , ‘(GREEN) - SITTE EEHLER KORRIGIERE 



THEN ZL(F47.)=W: GO*(F47.) =0*: GOTO 4IO0O 

<BLS> 


N! (3SPACE > “ P-CHR* (7) 

<G3R> 

40027 

IF F3X-1 THEN IF T=7 AND GE*CHR*(17) THEN 


45030 

IF JOY(2)>127 THEN 45050 

<5PH> 


ZL(F4X)=W: OG* (F47.) =G*: F47.-F47.+ 1: GOTO 401 


45040 

GET T*: IF T*-"" THEN 45030 

<TN0> 


50 

<RQN> 

45050 

DR7.-DS: DCLOSE Hl ON U(UDX): DCLOSE H2 ON U 


40028 

IF F3X=1 THEN IF T=7 AND GE*-CHR*(145) THEN 



(UD7.) : : RETURN 

<0T8> 


ZLIF47.1-W: GG* (F4X) =G*: F47.-F47.-l: BQTO 40 


45060 

; 

<0R9> 


150 

<KL7> 

45070 

END 

< DPU > 

40030 

IF GE*=CHR*(13) AND W<>0 THEN 40140 

<EBP> 




4004O 

IF ZL<W THEN IF T-2 AND GE*=CHR*(29) THEN Z 






L-ZL+1: PRINT GE*;: GOTO 40020 

<IUS> 

Listing 1. (Schluß) 
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e3 

cf 

9f 

Bl 

ff 

d9 

ld98 

3 

81 

f 9 

f 9 

cl 

f 9 

f 9 

81 

ff 

42 

IdaO 

3 

9f 

9f 

93 

93 

81 

f 3 

f 3 

ff 

ee 

IdaB 

8 

Bl 

9f 

B7 

f 3 

f 9 

99 

81 

ff 

cb 

ldbO 

3 

81 

9f 

9f 

81 

99 

99 

81 

ff 

85 

ldbB 

8 

81 

f 9 

f 3 

c3 

e7 

e7 

e7 

ff 

OB 

ldcO 

8 

81 

99 

99 

81 

99 

99 

81 

ff 

11 


ldcB 

1 

81 

99 

99 

Bl 

f 9 

f 9 

81 

ff 

22 

IddO 

3 

ff 

ff 

b7 

ff 

ff 

b7 

ff 

ff 

OB 

IddB 

3 

ff 

ff 

b7 

ff 

ff 

b7 

b7 

cf 

4f 

IdeO 

: 

fl 

e7 

cf 

9f 

cf 

b7 

fl 

ff 

bl 

lde8 

c 

ff 

ff 

81 

ff 

81 

ff 

ff 

ff 

5f 

ldfO 

3 

Bf 

b7 

f 3 

f 9 

f 3 

e7 

Bf 

ff 

6c 

ldf 8 

I 

c3 

99 

f 9 

e3 

e7 

ff 

e7 

ff 

al 

leOO 

3 

cf 

e7 

f 3 

ff 

ff 

ff 

ff 

ff 

cO 

le08 


81 

99 

99 

Bl 

99 

99 

99 

ff 

b9 

1 e 10 


83 

99 

99 

83 

99 

99 

03 

ff 

ab 

lel8 

8 

81 

9f 

9f 

9f 

9f 

9f 

81 

ff 

42 

le20 

3 

B7 

93 

99 

99 

99 

93 

87 

ff 

5f 

1b28 

8 

81 

9f 

9f 

83 

9f 

9f 

81 

ff 

ce 

1b30 

: 

81 

9f 

9f 

83 

9f 

9f 

9f 

ff 

4f 

le3B 

8 

81 

99 

9f 

91 

99 

99 

81 

ff 

Oc 

le40 

1 

99 

99 

99 

81 

99 

99 

99 

ff 

09 

1 b4B 

s 

81 

e7 

e7 

e7 

e7 

e7 

81 

ff 

77 

le50 

: 

81 

f3 

f 3 

f 3 

f 3 

93 

83 

ff 

30 

1 b5B 

s 

9c 

99 

93 

87 

93 

99 

9c 

ff 

Of 

Ie60 

8 

9f 

9f 

9f 

9f 

9f 

9f 

81 

ff 

aB 

le68 

8 

9c 

ee 

80 

94 

9c 

9c 

9c 

ff 

lc 

le70 

8 

99 

89 

89 

Bl 

91 

91 

99 

ff 

6c 

le78 

: 

01 

39 

39 

39 

39 

39 

01 

ff 

ed 

leBO 

8 

81 

99 

99 

81 

9f 

9f 

9f 

ff 

da 

leBB 

8 

01 

39 

39 

39 

29 

31 

00 

ff 

b7 

Ia90 

3 

Bl 

99 

99 

81 

07 

93 

99 

ff 

fO 

1b9B 

8 

Bl 

9f 

9f 

81 

f 9 

f 9 

81 

ff 

76 

leaO 

8 

81 

e7 

b7 

e7 

e7 

B7 

B7 

ff 

69 

leaB 


99 

99 

99 

99 

99 

99 

81 

ff 

14 

lebO 

8 

99 

99 

99 

c3 

c3 

b7 

b7 

ff 

10 

lebB 

8 

9c 

9c 

9c 

94 

80 

ee 

9c 

ff 

lb 

lecO 

3 

99 

99 

c3 

e7 

c3 

99 

99 

ff 

83 

lecB 

t 

99 

99 

99 

c3 

b7 

b7 

b7 

ff 

6a 

ledO 

8 

81 

f 9 

f 3 

#7 

cf 

9f 

81 

ff 

48 

ledS 


99 

ff 

81 

99 

81 

99 

99 

ff 

50 

IbbO 

3 

39 

ff 

01 

39 

39 

39 

01 

ff 

e2 

leeB 


99 

ff 

99 

99 

99 

99 

81 

ff 

87 

lef 0 

: 

ff 

ff 

fc 

01 

49 

c9 

c9 

ff 

58 

lef 8 


ff 

ff 

ff 

ff 

ff 

ff 

ff 

00 

f 7 

lfOO 


ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

lf 08 


e7 

b7 

e7 

e7 

e7 

b7 

e7 

e7 

07 

lf 10 


b7 

b7 

b7 

b7 

eO 

ff 

ff 

ff 

fO 

lf 18 

: 

b7 

b7 

e7 

e7 

00 

ff 

ff 

ff 

ea 

lf 20 


e7 

e7 

e7 

b7 

07 

ff 

ff 

ff 

62 

lf 28 

8 

b7 

e7 

e7 

b7 

eO 

e7 

e7 

e7 

b6 

lf 30 


ff 

ff 

ff 

ff 

00 

ff 

ff 

ff 

2f 

lf 38 


b7 

e7 

e7 

e7 

07 

e7 

B7 

e7 

29 

lf 40 


ff 

ff 

ff 

ff 

eO 

e7 

b7 

e7 

fb 

lf 48 


ff 

ff 

ff 

ff 

00 

b7 

b7 

e7 

f 5 

lf50 


ff 

ff 

ff 

ff 

07 

b7 

b7 

e7 

6e 

lf 58 


e7 

b7 

e7 

b7 

00 

«7 

b7 

b7 

dB 

lf 60 

: 

f 3 

b7 

81 

9f 

83 

9f 

81 

ff 

d6 

lf 6B 


e3 

c9 

cf 

87 

cf 

CC 

21 

ff 

fc 

lf 70 

8 

cf 

e7 

Bl 

9f 

83 

9f 

Bl 

ff 

c 2 

lf 78 

3 

f 7 

Bf 

df 

ff 

ff 

ff 

ff 

ff 

5f 

lf 80 

3 

c3 

99 

21 

29 

23 

9f 

cl 

ff 

b4 

lf 88 

3 

ff 

ff 

99 

99 

99 

99 

01 

3f 

09 

lf 90 

8 

cf 

b7 

81 

99 

81 

99 

99 

ff 

32 

lf 98 

3 

cf 

b7 

99 

99 

99 

99 

81 

ff 

61 

lf aO 

8 

e3 

c9 

81 

99 

81 

99 

99 

ff 

47 

lf aB 

8 

e3 

c9 

81 

9f 

03 

9f 

81 

ff 

ff 

lf bO 

8 

e3 

c9 

81 

b7 

e7 

e7 

81 

ff 

99 

lfbB 

3 

c7 

93 

81 

99 

99 

99 

81 

ff 

49 

lf cO 

I 

e7 

cb 

99 

99 

99 

99 

81 

ff 

93 

lf cB 

3 

eO 

b7 

b7 

b7 

27 

87 

e7 

ff 

el 

lf dO 

1 

BO 

CC 

e7 

13 

e7 

CC 

oo 

ff 

15 

lf dB 

8 

ff 

99 

ff 

81 

99 

81 

99 

ff 

eO 

lf eO 

8 

ff 

99 

ff 

81 

99 

99 

81 

ff 

48 

lf eB 

8 

ff 

99 

ff 

99 

99 

99 

81 

ff 

53 

IffO 

3 

ff 

ff 

c3 

99 

93 

99 

93 

9f 

a6 

IffB 

8 

e3 

c9 

ff 

ff 

ff 

ff 

ff 

c 2 

45 


Listing 2. Der neue Zeichensatz 
■■VIDEO-CHARACTERS«'. 

Bitte mit dem MSE (Seite 158) 
eingeben. 


100 REM DELCÜ’S VIDEOARCHIV-SYSTEM 

102 ■ <2SB> 

103 REM STANDARD-KATEGORIEN FESTLEBEN <IUB> 

104 : <3CD> 

105 DIM K*<19> <CKV> 

106 K*<0)-"flCTIONFILM(5SPACE>“ <R1H> 

107 K4(1)™"BERICHT/ÜEPORT " <BLD> 

100 K*121="ÜISTDRISCHC5BPACE>" <9AQ> 

109 K*(3>»"fl0KUMENTATI0N<2SPACE)" <NMC> 

110 K*<4>-"EASTERNt0SPACE>'' <FK0> 

111 K4 < 5 >«“r£RNSEHFILM 14SPACE >" ' <E2K> 

112 K*<61=“iRIEBSFILMC5SPACE>“ <VLB> 

113 K*(7)."aUMQR/iDMIK<TSPACE>" <NKS? 

114 K*(8)="HRIMINALF1LM{3SPACE>" <BPO> 

115 K*(9)="SCIENCE tICTION" <DIK> 

116 K4(10)="£AMERAAUFNÄHME " <BOK> 

117 K*(111“"5ER1E(10SPACE)" <1TP> 

110 K4(12)*"flU5IKVIDE0f5SPACE>" <8KB> 


119 K»<13)■"ÜORRORFILMC3SPACE>" <VOM> 

120 K*(14)«"SEXFILM{05PACEJ" <JHD> 

121 K4 (151"“ JLORNOF ILM <6SPACE > " <JNB> 

122 K*(161""HESTERN<BSPACE>" <Q94> 

123 K*<17)-''IRICKFILM<6SPACE>" <B73> 

124 K*<10!«"SPIELFILM{6SPACE>" <FMU> 

125 K4(191=''ÜERSCH1 EBENESL2SPACE>" <4LS> 

126 I <2SB> 

127 DOPEN #1,"VIDEO-KATEGORIEN”,W <BC0> 

120 FOR A-0 TO 19: PRINTItl ,K» (AI : NEXT <J94> 

129 DCLOSE #1 <TP5> 

130 : <3SF> 

131 END • <A5A> 


Listing 3. "KATEGORIEN« zur Erstellung der 
sequentiellen Kategorien-Datei. Bitte mit dem 
Checksummer 128 (Seite 158) eingeben. 


SONDERHEFT 22 


133 














ANWENDUNG 


C128 


Name 

■ 

Video- 

Centronics 

1300 

L52a 

13c0 

X 

03 

4c 

82 

03 

10 

1300 

: 

4c 

05 

13 

05 

01 

a2 

71 

0e 

3c 

1 oCb 

13dO 

: 

ba 

46 

cd 

4c 

1300 

: 

la 

03 

a2 

13 

8e 

lb 

03 

a 2 

c2 

13dB 

: 

03 

4c 

82 

1310 

: 

a3 

8e 

lc 

03 

a2 

13 

8e 

ld 

99 

13e0 

: 

ba 

cd 

03 

1318 

X 

03 

a 2 

bc 

8e 

le 

03 

a2 

13 

18 

1 3eB 

x 

fi 

4c 

56 

1320 

: 

Be 

lf 

03 

a 2 

d4 

0 e 

20 

03 

9b 

13f 0 


a5 

9a 

cd 

1320 

: 

a 2 

13 

Be 

21 

03 

a2 

ec 

8e 

32 

13fB 

: 

7c 

ef 

86 

1330 

: 

26 

03 

a2 

13 

8e 

27 

03 

78 

02 

1400 

: 

c9 

10 

dO 

1338 

: 

a9 

44 

8d 

03 

dd 

ad 

02 

dd 

b4 

1408 

: 

00 

40 

06 

1340 

: 

09 

04 

8d 

02 

dd 

ad 

00 

dd 

f 6 

1410 

s 

48 

68 

20 

1348 

: 

09 

04 

8d 

00 

dd 

a9 

10 

8d 

3d 

1410 

s 

fO 

09 

c9 

1350 

: 

Od 

dd 

ad 

Od 

dd 

58 

60 

48 

Oc 

1420 

: 

20 

57 

13 

1358 

X 

8d 

01 

dd 

ad 

00 

dd 

29 

fb 

le 

1428 

X 

18 

60 

00 

1360 

: 

0d 

00 

dd 

09 

04 

8d 

00 

dd 

eo 

1430 

: 

06 

07 

00 

1368 

X 

ad 

Od 

dd 

29 

10 

fO 

f 9 

68 

7a 

1438 

: 

Oe 

Of 

10 

1370 

: 

60 

a6 

B8 

20 

02 

f 2 

dO 

03 

56 

1440 

: 

16 

17 

18 

1378 

: 

4c 

7f 

f 6 

a6 

98 

eO 

Oa 

90 

fO 

1448 

X 

le 

lf 

20 

1380 

: 

03 

4c 

7c 

f 6 

e6 

98 

a5 

b8 

e 2 

1450 

: 

26 

27 

28 

138B 

2 

9d 

62 

03 

a5 

b9 

09 

60 

9d 

6c 

1458 


2e 

2f 

30 

1390 

s 

76 

03 

a5 

ba 

9d 

6 c 

03 

cd 

2d 

1460 

x 

36 

37 

38 

1398 

X 

03 

13 

dO 

02 

18 

60 

c9 

00 

45 

1468 

: 

3e 

3f 

40 

13a0 

x 

4c 

df 

ef 

20 

07 

4 2 

fO 

02 

ac 

1470 

: 

66 

67 

60 

13a8 

2 

18 

60 

20 

12 

f 2 

Ga 

40 

a5 

2b 

1470 

s 

6e 

6f 

70 

13b0 

X 

ba 

cd 

03 

13 

fO 

03 

4c 

94 

f 6 

1480 

: 

76 

77 

78 

13b8 

: 

fi 

4c 

e4 

fl 

20 

02 

f 2 

fO 

06 

14BB 

: 

5e 

5f 

60 


f 6 

20 

12 

f 2 

a5 

12 

1490 

X 

66 

67 

68 

69 

6a 

6b 

6c 

6d 

80 

13 

dO 

03 

4 c 

8b 

f 9 

1498 

X 

6e 

6f 

70 

71 

72 

73 

74 

75 

88 

fl 

20 

02 

f 2 

fO 

ee 

14aO 

X 

76 

77 

78 

79 

7a 

7b 

7c 

7d 

90 

f 6 

20 

12 

f 2 

a5 

2a 

14aB 

X 

7e 

7f 

BO 

Bl 

82 

83 

04 

85 

97 

13 

dO 

03 

4c 

69 

Cd 

14b0 

: 

86 

87 

88 

89 

8a 

Bb 

8c 

Bd 

9f 

fl 

8d 

2a 

15 

48 

e2 

14bB 

: 

Be 

Bf 

90 

91 

92 

93 

94 

95 

a7 

03 

13 

fO 

03 

4c 

13 

14c0 

: 

96 

97 

98 

99 

9a 

9b 

9c 

9d 

af 

97 

a5 

b9 

29 

Of 

eb 

14c8 

x 

9e 

9f 

aO 

al 

a2 

a3 

a4 

a5 

b7 

03 

4c 

2b 

15 

c9 

6c 

14dO 

I 

a6 

a7 

a8 

a9 

aa 

ab 

ac 

ad 

bf 

68 

aa 

bd 

2 a 

14 

78 

14dB 

: 

ae 

af 

bO 

bl 

b2 

b3 

b4 

b5 

c7 

57 

13 

ae 

04 

13 

5c 

14eO 

X 

b6 

b7 

b8 

b9 

ba 

7b 

7c 

7d 

4c 

Od 

dO 

05 

a9 

Oa 

91 

14e8 

: 

7e 

bf 

cO 

41 

42 

43 

44 

45 

78 

a6 

97 

ad 

2 a 

15 

3f 

14f 0 

E 

46 

47 

48 

49 

4a 

4b 

4c 

4d 

eO 

01 

02 

03 

04 

05 

e3 

14f 0 

X 

4e 

4f 

50 

51 

52 

53 

54 

55 

©8 

09 

Oa 

Ob 

Oc 

Od 

20 

1500 

J 

56 

57 

58 

59 

5a 

5b 

5c 

5d 

fO 

11 

12 

13 

14 

15 

28 

1500 

X 

de 

df 

eO 

el 

e2 

e3 

e4 

©5 

f 7 

19 

la 

lb 

lc 

ld 

30 

1510 

X 

e6 

e7 

eS 

e9 

ea 

eb 

ec 

ed 

ff 

21 

22 

23 

24 

25 

38 

1510 

X 

ee 

Bf 

fO 

fl 

f 2 

f 3 

f 4 

f 5 

07 

29 

2a 

2b 

2c 

2d 

40 

1520 

X 

f 6 

f 7 

f 0 

f 9 

fa 

fb 

fc 

fd 

Of 

31 

32 

33 

34 

35 

48 

1528 

: 

fe 

ff 

9f 

9f 

9f 

9f 

80 

ff 

fb 

39 

3a 

3b 

3c 

3d 

50 












61 

62 

63 

64 

65 

20 

Listing 4. 

..VIDEO-CENTRONICS 

K 

69 

6a 

6b 

6c 

6d 

60 

für Drucker am User-Port 

, 



71 

79 

72 

7a 

73 

5b 

74 

5c 

75 

5d 

68 

ae 












Bitte mit dem MSE (Seite 158) 


61 

62 

63 

64 

65 

7B 

eingeben 







V 



100 REM DELCO'S VIDEOARCHIV SYSTEM 

102 r 

103 REM DRUCKERTABELLE FUER MPS 001 UND MRS 003 

104 s 

105 DIM PR* <255) 

106 PR*(0)=CHR*<7> 

107 PR*(1)=CHR*(14) 

108 PR*(2)=CHR*(15) 

109 PR*(3> =CHR*(0) 

110 FÜR A=4 TO 32: PR*(A)=CHR*(32): NEXT 

111 FOR A=33 TO 57: PR*(A)=CHR*<A): NEXT 

112 FOR A=65 TO 90: PR*<A)=CHR*(A>: NEXT 

113 FOR A=94 TO 185: PR*<A)=CHR*<A): NEXT 

114 FOR A=1B7 TO 191: PR*<A)=CHR*<A): NEXT 

115 FOR A=193 TO 255: PR*<A)=CHR*<A): NEXT 

116 PR*(60)=CHR*(58 > 

117 PR*(61)=CHR*(61) 

118 PR*(62)=CHR*(59 > 

119 PR*<63)=CHR*(63) 

120 READ A: PR*(187)=CHR*(A>: FOR A=1 TO 7: READ 
Bs PR*(187)=PR*(107)+CHR*(B+128): NEXT 

121 READ A: PR*C187)=PR*<107)+CHR*(A) 

122 READ A: PR*(219)-CHR*<A>: FOR A=1 TO 7: READ 
B: PR* (219) =PR* (219) +CHR* (B+128) : NEXT 

123 READ A: PR*(219)=PR*(219)+CHR*(A) 

124 READ A: PR*(100)=CHR*(A): FOR A=1 TO 7: READ 
B: PR*(188)=PR*(109)+CHR*(B+128): NEXT 

125 READ A: PR*(188)=PR*(188)+CHR*(A) 

126 READ A: PR*(220)=CHR*(A>: FOR A=1 TO 7: READ 
B: PR*(220)=PR*(220)+CHR*(B+128): NEXT 

127 READ A: PR*(220)-PR*(220)+CHR*(A) 

128 READ A: PR*(189)=CHR*(A): FOR A=1 TO 7: READ 
B: PR*(189)=PR*(109)+CHR*(B+128): NEXT 

129 READ A: PR* (109) «PR* (109) +CHR* (A) 

130 READ A: PR*(221)=CHR*(A): FOR A=1 TO 7t READ 
Bt PR*(221)»PR*(221)+CHR*(B+128): NEXT 


< 11 A> 
<29B> 
<IUB> 
<3CD> 

< VQ1 > 
<SU6> 
<008> 
<P4A> 
<5I0> 
<UDR> 
<94A> 
<6NI > 
<TLL> 
<FVT> 
<E3S> 
<8FJ> 
<B3S> 

-«ÖVL5: 
BBP > 

< BLK > 
<E10> 

<00K> 

<240> 

<V5A> 

<A1V> 

<7QA> 

<64V> 


131 READ A: PR*(221)“PR*(221)+CHR*(A) 

132 READ A: PR*(190)=CHR*(A>: FOR A=1 TO 7: READ 
P: PR*(190)=PR*(190)+CHR*(B+120): NEXT 

133 READ A: PR*(190)=PR*(190)+CHR*(A) 

134 READ A: PR*(64)«CHR*(A): FOR A=1 TO 7 : READ B 
: PR*(64)-PR*(64)+CHR*(B+128): NEXT 

135 READ A: PR*(64)=PR*(64)+CHR*(A> 

136 : 

137 DOPEN #2,"VIDEO-MPS B01C3SPACE>",W 

130 FOR A=32 TO'222: PRINTH2.CHR*(34)PR*(A)r NEXT 

139 DCLOSE #2 

140 PRINT "C2D0WN>MPS 801 DATEN SIND GESPEICHERT 1 

141 : 

142 DOPEN #2,"VIDEO-MPS B03C3SPACE>",W 

143 FOR A=32 TO 222: PRINTH2,CHR*(34)PR*<A>: NEXT 

tmunm-' 

144 DCLOSE H2 

145 PRINT "C2D0WNJMPS 803 DATEN SIND GESPEICHERT' 

146 : 

147 DATA 0,33,84,04,60,65,0,0,15 : REM KLEIN AE 

148 DATA 8,125,10,10,10,125,0,0,15: REM GROSS AE 

149 DATA 0,57,68,68,60,57,0,0,15 : REM KLEIN OE 

150 DATA 8,61,66,66,66,61,0,0,15 : REM GROSS OE 

151 DATA 8,61,64,64,61,64,0,0,15 : REM KLEIN UE 

152 DATA 8,61,64,64,64,61,0,0,15 : REM GROSS UE 

153 DATA 8,126,1,41,41,22,0,0,15 : REM SZ 

154 DATA 8,10,85,05,85,40,0,0,15 : REM PARAGRAPH 


<6KS> 

<55U> 

<DPA> 

<C6R> 

<U62:> 

<2C9> 

<6KG> 

<7KC> 

<TT4> 

<I9L> 

< 040 > 
<0MG> 

< 7 0C > 

< TH4 > 

<IDL> 

<1S7> 

<0RU> 

<N44> 

<0PC> 

< B53 > 
<U11> 
<TL1 > 

\ j <RGG> 
' <TM7 > 


<vlb Listing 5. »DRUCKERTAB-MPS« erzeugt die Drucker- 
<ftlu tabeilen für MPS 801 und 803 auf der Programmdiskette. 
«ob> Bitte mit dem Checksummer 128 (Seite 158) eingeben. 


100 

REM DELCO'S VIDEOARCHIV-SYSTEM 

< 11 A> 

123 

PR* <100)-CHR*(97).CHR* <8).CHR* <94> 

<SC4> 

102 

X 

<2SB> 

126 

PR*(1Q1)-CHR*(101)+CHR*(0)+CHR*(94 > 

<FGF> 

103 

REM DRUCKERTABELLE FUER EPSON-DRUCKER 

< IUB> 

127 

PR* <182)-CHR*(105)»CHR* < 8).CHR* < 94) 

<AG3> 

104 

I 

<3CD> 

120 

PR*(103)»CHR1<111)+CHR*(0)+CHR*(94) 

< 4H J :* 

1 05 

DIM PR*<2S3)i E-27 

<U5G> 

129 

PR* <1841-CHR*(117).CHR* < 8).CHR* <94 > 

<0HR> 

106 

FOR A-32 TO 64s PR*<A>-CHR*<A): NEXT 

< J93> 

130 

FOR A-l TO 32: READ B: PR*<183)-PR*<IBS)*CHR* 


107 

FOR A-65 TO 90: PR* <A)“CHR* <A+32>: NEXT 

<KOT> 


<B>: NEXT 

<KK0> 

108 

TOR A-94 TO 171: PR*<A>-CHR*<A): NEXT 

<BN1> 

131 

FOR A-l TO 32: READ B: PR*<1B6)-PR*<186).CHR* 


109 

PR* < 175)-CHR* (39) 

<6BD> 


<B>: NEXT 

<CI©> 

110 

FOR A-1B7 TO 190: PR*<A)-CHR»<A-64): NEXT 

<5KA> 

132 

FOR A-l TO 32: READ B: PR*(222)-PR*(222)*CHR* 


111 

PR* <191)-CHR* < 94) 

<EGU> 


(B): NEXT 

<TI3> 

112 

PR*<192)-CHR*<96) 

<F8V> 

133 

DATA 27,82,1,27,38,0,63,65,139,8,0,8,4,0,126, 


113 

FOR A-193 TO 221: PR*<A)“CHR*<A-128): NEXT 

<SH4> 


128,0,128,0,128,27,37,1,0,65,27,37,0,0,27,82, 


114 

PR* (91) -CHR* (E) .CHR* (82) <CHR* < 0) »CHR* <91) +CHR 



2 : REM WURZEL 

<62H> 


* <E)+CHR*<B2> +CHR*<2> 

<3D3> 

134 

DATA 27,82,1,27,38,0,65,63,139,130,68,170,16, 


115 

PR* <92)-CHR* (E)+CHR* (82) .CHR*<0> .CHR* (92) . CHR 



130,0,130,0,198,0,0,27,37,1,0,65,27,37,0,0,27 



* <E) -.CHR* <B2> .CHR* <2) 

<4D1> • 


,82,2 : REM SUMMENZEICHEN 

<2BT> 

116 

PR* <93) =CHR* <E) -.CHR* (82) -.CHR* < 0) -.CHR* <93) *CHR 


135 

DATA 27,82,1,27,38,0,65,65,139,3,60,2,0,2,0,2 



*(E)+CHR* <B2).CHR* <2) 

<7D7> 


,60,2,0,0,27,37,1,0,65,27,37,0,0,27,82,2 : RE 


117 

PR* < 172) =CHR* (El -.CHR* <B2> »CHR* < 1) -.CHR* < 123) .C 



M MY 

<NFA> 


HR* < E) +CHR* < B2) -.CHR* < 2) 

<RKO> 

136 

DDPEN «1,"VIDEO-EPSON «SSPACE >”,W 

<440> 

118 

PR* < 173) -CHR* <E) -.CHR* (82) .CHR* <3> -.CHR* <35> .CH 


137 

FOR A-32 TO 222: PRINT«I,CHR*(34).PR*<A): NEX 



R* <E)-.CHR* < 02)-.CHR* < 2) 

<DVA> 


T 

<RI8> 

119 

PR* <174) -CHR* <E> .CHR* <B2) -.CHR* < 1) -.CHR* (125) *C 


138 

DCLOSE Hl 

<TL5> 


HR* <E> *CHR* (82) -.CHR* (2) 

<SNA> 

139 

i 

< 1K6> 

120 

PR*(175)»CHR*(39) 

<500> 

140 

END 

<54M> 

121 

PR* <176) -CHR* <E) -.CHR* < 82> -.CHR* < 0) -.CHR* < 64 > +CH 






R* < E)+CHR* < 021-.CHR* < 2) 

<EEQ> 




122 

PR*(177)-CHR*(117) 

<DKM> 




123 

PR* < 178) -CHR* < E) -.CHR* < 82) »CHR* < 1) .CHR* (64) +CH 


Listing 6. »DRUCKERTAB-EPSON.. erstellt die Drucker- 

124 

R*<E>+CHR*<B2>.CHR*<2> 

PR* <179)-CHR*(E)+CHR*<82).CHR* <1).CHR* <124).C 

<HEM> 

tabelle für Epson-Drucker und Kompatible. Bitte mit dem 


HR*(E)+CHR*(82)+CHR*(2) 

<U1I> 

Checksummer 128 (Seite 158) eingeben. 
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Der Computer 
wertet Versuche aus 


Nach experimentellen Versuchen stehen Sie häu¬ 
fig vor dem Problem, die Ergebnisse mathema¬ 
tisch auszuwerten. Mit diesem Programm findet 
Ihr Computer zu experimentell gewonnenen 
Daten die zugehörige Gleichung. 


Nr. 

B«»tr*hlun9**ta«rk« F 
lfl**!/'«»} 

Phot ortanvt rom I 

i 

.030 

.010 

2 


.032 

3 

. ,80 

.003 

5 


. 111 
.210 

0 

..*00 

.380 

? 

.0-*« 

.80« 

8 

i .1WO 

i 


W enn Sie beispielsweise in einem Versuch Meßwerte 
für einen Fototransistor gewonnen haben, dann 
wollen Sie auch möglichst genau die Kennlinie für 
dieses Bauteil ermitteln. Normalerweise geht man so vor, 
daß man auf Millimeterpapier ein Koordinatenkreuz zeich¬ 
net, die Meßwerte einträgt und dann versucht, die Punkte 
durch eine »glatte« Kurve zu verbinden. Wenn Sie außer¬ 
dem wissen möchten, ob es eine Gleichung gibt, die die 
experimentellen Ergebnisse hinreichend genau darstellt, 
kommen Sie nicht daran vorbei, umfangreiche Berechnun¬ 
gen anzustellen. Eine mühsame Arbeit, die der Computer 
für Sie erledigen kann. Mit dem Programm »Approxi 128« 
(Listing 1) - bitte beachten Sie dazu die Eingabehinweise 
auf Seite 159 - und einem C128 können Sie die Ergebnisse 
auf dem Bildschirm oder Plotter grafisch darstellen (Bild 1). 
Sie können auch beispielsweise die Buglinie eines Schiffs¬ 
rumpfes auf diese Art entwerfen. i"- £R Of 

So läßt sich eine Gleichung finden 

Wir wollen Ihnen auch erklären, wie sich aus den Meßer¬ 
gebnissen eine mathematische Gleichung finden läßt. 
Einige Kenntnisse der Mathematik sind dazu allerdings 
erforderlich. 

Solange es sich bei der gesuchten Gleichung um eine 
stetige Funktion handelt, läßt sie sich in jedem Fall durch 
ein Polynom ausdrücken. Gleichungen, die man aufgrund 
experimenteller Daten ermittelt hat, nennt man »empiri¬ 
sche Gleichungen«. Eine ideale empirische Gleichung 
muß die experimentellen Daten hinreichend genau darstel¬ 
len und gleichzeitig einfach genug sein. Das heißt, sie darf 
nur so wenig Koeffizienten wie möglich enthalten. Diese 
beiden Bedingungen widersprechen sich jedoch. Man muß 
deshalb oft zwischen der Genauigkeit und der Einfachheit 
der Gleichung entscheiden. Da es keine Methode gibt, mit 
deren Hilfe man den Typ der rationellsten Gleichung für die 
Darstellung der gefundenen Daten angeben kann, behilft 
man sich dadurch, daß man die Meßergebnisse grafisch in 
Form von Punkten darstellt und diese durch eine »glatte« 
Kurve verbindet. Die Kurve soll dabei möglichst nahe an 
den gegebenen Punkten vorbeigeführt werden, und die 
Abweichungen sollen gleichmäßig positiv und negativ aus- 
fallen. Aufgrund persönlicher Erfahrungen können Sie 
dann auf den Gleichungstyp schließen. Sobald der Glei¬ 
chungstyp gewählt ist, sind die Koeffizienten zu bestim¬ 
men. 

Die wahrscheinlichsten Werte der Koeffizienten findet 
man nach der »Methode der kleinsten Quadrate«. Hierbei 
geht man von folgendem aus: 

Gegeben ist eine Anzahl von Datenpunkten. Gesucht 
wird ein sogenanntes »Approximationspolynom« des Gra¬ 
des m der Form 




. 02002 * 
•80a;01 
.*'<«200 



Bild 1. Die Auswertung der Meßergebnisse für die Kennlinie 
eines Fototransistors (mit dem Commodore-Plotter VC 1520) 


+ a,x + 


a 2 x z + ... + a m x" 


P(x) = a 0 

wobei der Fehler E i =y i -P(x i ) für i=1...n ist. Bei der 
Methode der kleinsten Quadrate wird die Summe der Feh- 
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ler so klein wie möglich gemacht. Daraus ergibt sich die 
Funktion: 

f ( a o- • - a m) = .^ (y> - . 2 0 a i * |) 2 

Um das Minimum zu finden, bildet man die erste Ablei¬ 
tung für jedes a ( und setzt diese gleich 0. 

4 = - 2 ((Vi - a i * +> * T) = 0 für k = 0,1.m 

Dieser Ausdruck kann umgeformt werden zu: 

2 y, * j - 2 ( E a, * {) = 0 

i-1 71 1 i =i 'j = o 1 17 

Dies ist ein System mit m+1 linearen Gleichungen und 
den Unbekannten a 0 , a,.a m . 

Das Gleichungssystem wird in diesem Programm mit 
dem Gaußschen Algorithmus gelöst. Wie Sie sehen, sind 
umfangreiche Berechnungen notwendig, die Ihnen aber 
zum Glück der Computer abnimmt. 

Wie schon erwähnt, soll die Gleichung möglichst einfach 
sein. Als einfachste funktionale Beziehung erweist sich die 
lineare Funktion y=a+bx. Diese Gleichung kann man 
unmittelbar dann anwenden, wenn die Meßergebnisse mit 
hinreichender Genauigkeit auf einer Geraden liegen. 

Jedoch kann man auch von einer beliebigen Gleichung, 
die stets die Form g(x,y)=a+b f(x,y) hat, durch Einführung 
der neuen Variablen v=g(x,y); u=f(x,y) zu einer linearen 
Funktion v=a+bu übergehen. Dieses »Linearisierungsver¬ 
fahren« findet beim Aufstellen empirischer Gleichungen 
sehr oft Verwendung. 

Das Programm »Approxi 128« überprüft Polynome bis 
vierten Grades und fünf Funktionen, die durch Linearisie¬ 
rung auf ein Polynom ersten Grades zurückgeführt werden. 
Damit lassen sich fast alle Meßergebnisse grafisch darstel¬ 
len, egal ob die Meßergebnisse nach exponentieller, loga- 
rithmischer oder nach einer gebrochen-linearen Funktion 
Zusammenhängen. 

Das Programm rechnet für Sie 


Wie Sie sehen, nimmt Ihnen »Approxi 128« alle mathema¬ 
tisch aufwendigen Arbeiten ab. Die errechnete Gleichung 
läßt sich dann auf dem Bildschirm oder auf dem Plotter VC 
1520 grafisch darstellen, wobei die Auflösung beim Plotter 
natürlich wesentlich höher ist. Übrigens, der Plotter VC 
1520 ist bereits unter 200 Mark im Handel erhältlich. 
Ebenso können Sie mit diesem Programm auch beliebige 
Funktionen darstellen, sogar bis zu drei Funktionen in 
einem Koordinatenkreuz (Bild 2 und 4). Zur Eingabe von 
Funktionen muß der erste Punkt im Hauptmenü angewählt 
werden. Die Funktionen werden dann direkt in das 
Programm-Listing übernommen. Es sind bereits drei inter¬ 
essante Funktionen im Programm eingebaut. 

Um die Berechnung zu beschleunigen wird im Programm 
zweimal der FAST-Modos des C128 eingesetzt. Einmal 
beim Einfügen von Funktionen ins Programm und zum 
anderen bei der Suche nach der idealen Gleichung für die 
Meßergebnisse. 

Bei letzterem kann auch ohne FAST-Modus gerechnet 
werden, der Bildschirm bleibt dann eingeschaltet. 

So gehen Sie mit dem Programm um 


Das Programm besitzt drei Auswahlmenüs. Die einzelnen 
Funktionen werden entweder durch direktes Drücken einer 


Taste ausgeführt oder durch Ansteuern mit den Cursor¬ 
tasten und < RETURN >. Ebenso werden alle Eingaben 
mit < RETURN> abgeschlossen. 

Die Berechnung der mathematischen Funktion zu den 
Meßdaten erfolgt unter dem Punkt »Polynomapproxima¬ 
tion« des ersten Menüs. Dabei müssen Sie die Anzahl der 
Wertepaare vorgeben und diese eingeben. 

Anschließend können Sie entweder selbst eine Funk¬ 
tionsart wählen oder den Computer die günstigste Funk¬ 
tionsart suchen lassen. Dabei wird die Summe der Ab¬ 
weichungen (im Quadrat) als Fehler angegeben. Die ein¬ 
zelnen Abweichungen werden quadriert, damit sich posi¬ 
tive und negative Abweichungen nicht gegenseitig auf- 
heben können. 

Ausgabe auf Plotter 


Während der Darstellung der Funktion auf dem Bildschirm 
ist der Bildschirmrahmen schwarz. Ist der Vorgang been¬ 
det, wird der Bildschirmrahmen blau. Anschließend wartet 
der Computer so lange, bis die RETURN-Taste gedrückt 
wird. Im Bild 3 sehen Sie ein Beispiel für eine Funktion, die 
nach willkürlich eingegebenen Wertepaaren gesucht 
wurde. Da das Programm im hochauflösenden Grafikmo- 



Bild 2. Auch beliebige Funktionen können eingegeben und 
grafisch dargestellt werden - bis zu drei Funktionen lassen 
sich in einem Koordinatenkreuz generieren 
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Bild 3. Die Bildschirmausgabe der Funktion, die der Com¬ 
puter nach der Eingabe von willkürlichen sechs Wertepaa¬ 
ren berechnet hat. Die Konstanten »ür die Funktion (links 
oben) werden nach < RETURN > ausgegeben. 


stellen, auch Funktionen mit Definitionslücken. Der Befehl 
»TRAP« verhindert bei unzulässigen Werten einen Pro¬ 
grammabbruch. Für die Darstellung der Funktion ist der 
Definitions- und Wertebereich frei wählbar unter der Vor¬ 
aussetzung, daß die Koordinatenachsen in diesem Bereich 
liegen. Der erste einzugebende Wert muß daher zu jeder 
Koordinatenachse negativ sein. 

Bei der Darstellung auf dem Plotter wird die maximale 
horizontale Auflösung von 480 Punkten ausgenutzt, in ver¬ 
tikaler Richtung beträgt die Auflösung 600 Punkte. Der 
Abstand der Markierungen auf den beiden Achsen beträgt 
genau 10 mm. Dadurch können auch Zwischenwerte leicht 
aus der Plotter-Grafik ausgemessen werden. 

Das Programmlisting ist mit REM-Anmerkungen gut 
kommentiert und damit leicht nachvollziehbar. 

Insgesamt erhalten Sie mit »Approxi 128« ein Werkzeug, 
das Sie sowohl für wissenschaftliche Zwecke als auch für 
den Hobby-Bereich nutzen können. 

(Joachim Stolte/kn) 


dus arbeitet, kann es manchmal zu Farbüberläufen kom¬ 
men (an den Schnittpunkten einer Kurve mit den Koordina¬ 
tenachsen bzw. zweier Kurven miteinander) was aber nicht 
weiter störend ist. 

Mit »Approxi 128« lassen sich beliebige Funktionen dar- 



durch entsprechende Funktionen darstellbar. Hier drei 
Beispiele von elementaren Kurvenverläufen. 


1008 REM FUNKT IONENPLOTTER J. POLYNOMAPPROXIMATION <340 

1010 REM *»•»»*»*«»»»»»*»»»**» 1987 »»»***»»»»**» <3CD> 

1020 REM ••##•**«*•*•**•#*»##*«*»*#*•##«****##«*## <3K£> 

1030 COLOR 0,7,0: COLOR 4,7,0: COLOR 1,0,7: GRAPH 

IC 1,1: GRAPHIC 0 <SKJ> 

1040 SLOW <EDG> 

1050 GOSUB 8010 <PUG> 

1060 : <209> 

1070 PRINT CHRK147) |CHRI (14) iCHRI(lB) ; " (7SPACE1A 

ÜSWAHLMENUE{0SPACE >";CHRI(146) <F1N > 

1080 PRINT : PRINT "(1) EINGABE NEUER £UNKTIONEN“ <CR1> 

1090 PRINT : PRINT "(2) AUSGABE AUF BILDSCHIRM“ <N5D> 

1100 PRINT : PRINT “(3) AUSGABE AUF BLOTTER" <F05> 

1110 PRINT : PRINT "(4) £0LYNOMAPPROXIMATION" <D0E> 

1120 PRINT : PRINT ■ <51 .PROGRAMM BEENDEN" <G00> 

1130 BET KEY AI: SP=VAL(AI) <5NM> 

AK “ 1 ” DR At>"5" THEN 1130 <CGL> 

1150 üll SP GOTO 1190,56B0,1410,2750,6330 <049> 

1160 : <30D> 

1170 REM •«* EINGABE DER FUNKTIONEN »«* <2C9> 

1180 : <40H> 

1190 PRINT CHRIC147): PRINT "ANZAHL DER QJNKTIONE 

N "II GOSUB 6340: ZZ=W: PRINT <HU3> 

1200 IF ZZ<1 OR ZZ>3 THEN 1190 <NNM> 

1210 FOR 1=1 TO 3: A*(I>="": NEXT <5I1> 

1220 FOR 1=1 TO ZZ <563> 

1230 PRINT : INPUT “Y="sA*<I> <KBR> 

1240 NEXT I <DL4> 

1250 : <IG7> 

1260 REM •*« NEUE FUNKTIONEN INS PROGRAMM EINFUEB 

EN •** <3KE> 

1270 : <0G3> 

1200 PRINT CHRK147) | “0010 DEF FNA( X) ““ j AI (1) <R1D> 

1290 PRINT “0020 DEF FNB(X)=“;AI(2) <D59> 

1300 PRINT “0030 DEF FNC(X)AI(3) <M51> 

1310 PRINT “8040 AI(1>;CHRI(34);“Y="iAI(1)ICHRI 

134) <BSH> 

1320 PRINT “8050 A*{2>,CHRI(34)|"Y-“|AIC2>,CHRI 

134) <2DH> 

1330 PRINT "8060 AI(3)lCHRI(34)!"Y="iAI(3)|CHRI 

134) <OUH> 

1340 PRINT "0070 ZZ="|ZZ <9EV> 

1350 PRINT “RUN“ <D3F> 

1360 SYS 50861,19 : FOR I = 1 TO 0 : SYS 50061,13 

I NEXT <E3I> 

1370 FAST : END l REM NEUE ZEILEN UEBER TASTATURP 

UFFER-TRICK INS PROGRAMM NEHMEN <HJ0> 

1300 l <60P> 

1390 REM »»• AUSGABE DER FUNKTIONEN AUF PLOTTER * 

*» <@S3> 

1400 : <500 

1410 FOR X»1 TO 7: CLOSE Xl NEXT <EHT> 

1420 OPEN 1,6,1 <4P1> 

1430 OPEN 2,6,2 <25DY 

1440 OPEN 3,6,3 <3HG> 

1450 OPEN 4,6,0 <DC9> 

1460 OPEN 6,6,6: PRINT»6,1 <FQU> 

1470 : <6BR> 

1480 GOSUB 6500 : REM »«» EINGABE »•* <07B> 

1490 : <1G7> 

1500 REM -*• BERECHNUNG DER X,Y-ACHSEN »»» <1K6> 

1310 : <4GJ> 

1520 IF A=0 THEN A—Bo.007: XF=I <0A0> 

1530 IF B=0 THEN B=-A*.007: XF=1 <HU0> 

1540 XS=(B-A>/480 <MG5> 

1550 YS=ID-C)/600 <0T9> 


Listing 1. Das Programm »Approxi 128« berechnet die 
mathematische Funktion zu Ihren Versuchsergebnissen. 
Bitte mit dem Checksummer 128 (Seite 158) eingeben 
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1560 

Y0=INT(ABS(A/XS)+.5) 

<JVC> 

2010 

Y2=INT(Yl/50)*50 



<'ETB> 

1570 

MA=D/YS: MI=C/YS: X0=INT(ABS(D/YS)+.5) 

< QNK > 

2020 

PR I NT# 1,"M",Y0,Y1 «-50 



<OAE> 

1580 

IF C>0 THEN MI“0 

<6LH> 

2030 

PRINTHl,"D",Y0,Y1—6001 PRINTH1, 

■D",Y0,Y1+5O 

<4NH> 

1590 

PRINT#1,"M",0,-50: PRINT#3,1 

<1D4> 

2040 

: 



<500 

1600 

i 

<70T> 

2050 

REM *** BESCHRIFTET Y-ACHSE *** 



<1C5> 

1610 

REM AUSGABE DER FUNKTIONSTERME »»• 

<0C1> 

2060 

: 



<40H> 

1620 

: 

<60P> 

2070 

Z=INT((Y2*YS)*100+.5>/100 



<RJQ> 

1630 

PRINT #6,O 

<01L> 

2000 

YS=(D-C)/60O 



<KP9> 

1640 

FOR 1*1 TO ZZ 

<B63> 

2090 

FOR X-0 TO 11 



<R1L> 

1650 

PRINT#?,4-1: PRINTH4," "sA*(I) 

<7LP> 

21O0 

Y3=Y2-50*X 



<LQD> 

1660 

NEXT 

< AD0> 

2110 

PRINTHl,"M",Y0-3,Y3 



< N18 > 

1670 

PRINIH6,1 

<25L> 

2120 

PRINTHl,"D", YO+3,Y3 



<VR0‘. 

1600 

3 

<30D> 

2130 

IF ABS(Z)<0.05 THEN 2160 



<C5V> 

1690 

REM ZEICHNET X-ACHSE *»» 

<2C9> 

2140 

IF YO>440 THEN PRINT#1,“M",Y0-45,Y3 


<JDT> 

170O 

: 

<60P> 

2150 

PRINTH4," "iZ; 



<65U> 

1710 

PRINT #4 s PRINTM4: PRINT#3,0 

<2HI> 

2160 

Z-INTIf Z-50.YS)* 100+.5)/100 



<49G> 

1720 

PRINT#1,"M",0,-X0 

<VUP> 

2170 

NEXT X 



<700 

1730 

PRINT #4: PRINT#2,0 

<08D> 

2180 

: 



<209> 

1740 

PRINT#1, "D",479,0: PRINT#1."D",0,0 

<7NJ> 

2190 

IF PO*0 THEN 240O 



<30D> 

1750 

X1=Y0-INT(Y0/S0)«50 

<62R> 

22O0 

: 



<50L> 

1760 

: 

<500 

2210 

REM »*• BEI POLYNOMAPPROX. BENENNUNG DER ACH 


1770 

FOR X-0 TO 8 

<PMI > 


5EN im 



< 1C5> 

1700 

X2-Xl+X«50 

< V8J > 

2220 

: 



<40H> 

1790 

PRINTM1,"M",X2,-3 

<901 > 

2230 

PRINTHl,"M",Y0FI0,Y1+401 PRINTH4,NY»!“ IN <“ 


1800 

PRINT#1,"D",X2,3 

< PVK > 


:EY*i"i"i 



<493> 

1810 

NEXT X 

<70C> 

2240 

N*=NX*+" IN ( “+EX**-* 1 > " 



<LRT> 

1820 

: 

<en> 

2250 

H=470-LEN(N*)*6 



<5U8> 

1830 

REM im»* BESCHRIFTET X-ACHSE *** 

<7BV> 

2260 

PRINTHl,"M",H,-301 PRINTH4,NT j 



<561: 

1840 

: 

<B1D> 

2270 

PRINTH2.2 



< 29S> 

1850 

X2=Xlr Z-INT((A+X1*XS)* 100*.5)/100 

< 118> 

2280 

I 



<1«5> 

1860 

: 

<A19> 

2290 

REM *** KENNZEICHNUNG DER MESSWERTE 

»*# 

<3CD> 

1B70 

FOR X=0 TO 0 

< MM I > 

2300 

: 



<40H> 

1000 

IF XF-1 AND X=0 THEN 1940 

C57> 

2310 

FOR L*1 TO N 



< 75D> 

1090 

X2-X1»50* X-0 

< 7UH > 

2320 

X= < XP(L)-A)/XS: Y-YP(L)/YS 



<OND> 

1900 

IF X2<9 THEN 1940 

'< 10Q> 

2330 

IF X<1 DR X >4B1 THEN 2360 



<vos> 

1910 

PRINT M1,"M",X2,—15 

<06B> 

2340 

PRINTHl,"M",X—2,Y-4 



< FH9 

1920 

IF ABS(Z)<0.05 THEN PRINT#4,"<2SPACE>";: GOT 


2350 

PRINT#4,"+"; 



<0D8> 


0 1940 

<008/ 

2360 

NEXT L 



< DD‘6: 

1930 

PRINT#4,Z: 

< 1SL> 

2370 

X 



<7GV> 

1940 

Z=INT ( (Z+50*XS) *1 00+. 5) / 1 00 

< JDS> 

2380 

REM »*» AUSGABE DER FUNKTIONEN 

«MM» 


<3ke: 

1950 

IF Z > 1E3 THEN Z=INT < Z* 10*. 5) / 10 

<7UA> 

2390 




<063> 

I960 

NEXT X 

<F5C> 

2400 

FOR V=1 TO ZZ 



<VP3> 

1970 

: 

<BHF> 

2410 

TRAP 2450 



< JET> 

1900 

REM *** ZEICHNET Y-ACHSE *»«• 

<5KM> 

2420 

IF V=1 THEN Y=FN A(Ai/YS 



<3B3> 

1990 

: 

<CHJ > 

2430 

IF V=2 THEN Y=FN BIAI/YS 



<FCJ> 

20O0 

Y1=INT(D/YS+.5) 

<GNH> 

2440 

IF V=3 THEN Y=FN C(A)/YS 



<BE3> 




2450 

IF Y>MA THEN PRINT#1,"M",0,MA: 

GOTO 

2400 

<H5E> 




2460 

IF YCMI THEN PRINT#1,"M", O, MI : 

GOTO 

2400 

<L5M> 




2470 

PRINTHl,"M",0,Y : Z-0 



<N25> 



WmWWW^^V 'v,- ■ > 

VV vv- --. '\. • •. • •'••x 

■V/' ■ - v ' ' • 






''S • ‘ 

’ 


2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2600 

2690 
270O 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2000 
2010 
2820 
2830 
204 0 
2850 
2060 
2070 
2880 
2890 
2900 

2910 

2920 

2930 

2940 

2750 

2960 

2970 

2900 


FOR 1=1 TO 479 
TRAP 2620 
X=A+I«XS 

TF V*1 THEN Y=FN A<X)/YS 
IF V=2 THEN Y=FN B(X)/YS 
IF V=3 THEN Y=FN C(X)/YS 

IF QG»=1 THEN 00=0: PRINT# 1 , ” M " , I, Y: GOTO 263 
0 

IF Z=0 AND Y<MI THEN PRINTHl,"D",I,MI: Z=1 
IF Z=0 AND Y>MA THEN PRINT#l,"D" , I,MA: Z=1 
IF Y>MA THEN PRINT#! , "M“ ,I ,MA: GOTO 2630 
IF Y<MI THEN PRINTM1,"M",I,MI: GOTO 2630 
PRINT#1 ,"D", I,Y : Z=0: GOTO 2630 
00=1 

NEXT I,V 

i 

REM *** ZEICHNE RAHMEN «** 

: 

TRAP : PRINT#1,"M",0,MI-50: PRINT#2,0 

PR 1 NT M1 , "D" , PR X NT # 1 , "E" , 4 77, MR» 140 

: PRINT#1, *'D",479,MI-50 
PRINT#1,"D”,0,MI-50 
PRINT#1,"M",0,MI-120 
IF P0«1 THEN 4200: ELSE 1000 

REM *** POLYNOMAPPROXIMATION *«»•» 

CLR : PO-1« PRINT CHR*(147) 

DIM R7.<10) ,SX (0> ,XY(4) ,A<55) 

REM *** FUNKT IONENBEZEICHUNG »»** 

: 

FK*<1)-"Y-A+B*X" 

FK*(2)="Y-A+B*X+C*Xt2" 

FK* (3)="Y-A+B*X+C*Xt2+D*X t3" 
FK*(4>="Y-A+B*X-*-C*Xt2+D*Xt3*E*Xt4" 

FK*(5)■"Y-A*EXP(B»X) 

FK*(6)-"Y-A*XfB 
FK*(7)-"Y-1/ <A-fB«X> 

FK*(8>="Y“X/(A+B*X) 

FK*(9)»"Y»A*LN(B*X)" 

FK*(10)="COMPUTER WAEHLT FUNKTION" 

PRINT CHR*(147);CHR*(18);CHR*(155)j"<2SPACE> 
£0LYNOMAPPROXIMAT ION C3SPACE>";CHR*(158) 

REM «•** EINGABE DER WERTEPAARE *** 
s 

PRINT 

PRINT "ANZAHL DER HERTEPAARE<2SPACE>";i GOSU 
B 6340: N=Wj PRINT : PRINT 
DIM X(N),Y(N),XP(N),YP(N) 

PRINT CHR*(18);" EINGABE DER flESSWERTE ";CHR 
* <146): PRINT : PRINT 
FOR L=1 TO N 

PRINT L".13SPACE)X= GOSUB 6340: X(L)=W 


< 1 IB> 
<J6U> 
^T79> 
<TCR' 

< 90B> 

<L9R> 

<E3L> 
<5D7> 
:93N> 
<S2I > 

< 01 A> 

< G98 > 
<AL3> 
<N0L> 
<30D> 
<2C9'- 
<209/ 
<C84> 

< 0V9 '< 

<3KV> 

<BCT > 
<PAM> 
<105? 
‘3CD 
<209> 

< PNB > 
\ 419 > 
<2C9> 

< 4 0H > 
<:rhi > 
<PTF> 
<ojs-> 

<E2I > 
<Q4L> 
<BAO> 
<ORA> 
<BJJ> 
<JHM-> 
<491 > 
<BHF> 

<N3V> 
<4SJ > 
<F1T> 
<30U> 

<VIL> 

<TA7> 

<SCH> 

<E5D> 

<FN6V 
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ANWENDUNG 


2990 

PRINT TßB(23)t"Y= GOSUB 6340: Y(L)=W: PR 


3930 

PRINT CHR*(147) 

<ONC> 


INT i PRINT 

<R7Q> 

3940 

PRINT CHRP(19);CHRP(18);CHRP(155):"<2SPACE)£ 


3000 

XP(L>*X(L)i YP(L)-YIL) 

<280 > 


OLYNOMAPPRÜX1MATIONOSPACE)"; CHRP(158) 

<CDL > 

3010 

NEXT L 

<5B6> 

3950 

PRINT : PRINT ".ERGEBNIS FUER": PRINT : PRINT 


3020 

: 

<40H> 


CHR*(18);FK*(SP) 

<VQ1> 

3030 

REM *** FUNKTIONENAUSWAHL **» 

< 1 S7> 

3960 

PRINT s A*(1)-FK*(SP) 

<LSS> 

3040 

GOSUB 7020s A-10 

■:nn0* 

3970 

FOR L=1 TO NG 

< GNP > 

305O 

FOR L-l TO Ni X<L)-XP(L>: Y(L)-YP(L*t NEXT 

<ECQ> 

3900 

IF ABS(C(L))<1E-07 THEN C(L)=0 

<II2> 

3O60 

FQR L=1 TO 10: R7.1U-0: NEXT : SP-ll R7.(l)=l 


3990 

C (L) *= I NT (C (L) * 1E+07+. 5) / 1E+07 

< D7D> 


8 

<F2U> 

4000 

PRINT : PRINT CHR*<64+L>*|C<L> 

<K35> 

3070 

PRINT CHRP!147) 

•-RR9;- 

4010 

NEXT L 

<5K6> 

3080 

PRINT CHR*(i9>;CHR*(18);CHR*(155);"<2SPACE >£ 


4020 

s 

<A19> 


QLYNOMAPPROXIMATION <3SPACE >";CHR*(158) 

< DHL > 

4030 

RF.M •** BERECHNUNG DES FEHLERS *#* 

<6SR> 

309O 

» 

<1G7> 

404Ö 

: 

<9)5> 

3100 

FOR L*1 TO 10 

'MHT> 

4050 

5-0 

< RRB > 

31 10 

L*=RIGHT*(" (2SPACE ) " «-STR* (L) t 3>+". " 

<S4N> 

4060 

FOR L-l TO N 

<BLD> 

3120 

PRINT 

< BDU> 

4070 

S-S»(YP(L)-FN fl(XP(L)))T2: S-INTiS»1E6».5)/I 


3130 

PRINT CHRP (R7. (L) > ; L*;FK* (L) 

< R9U > 


E6 

< VMO > 

3140 

NEXT L 

< TF6> 

4080 

NEXT 

<I60> 

3150 

PRINT CHR*(155) 

<RR9> 

409O 

X 

<FHV '• 

3160 

PRINT CHR* (18) ; ".DERZEIT ANBEWAEHLTER flENUEPU 


4100 

IF FG-1 THEN 6730 

<5CS> 


NKT "|SP|CHR*(157)j" " 

<M00> 

4110 

TRAP 

<99D> 

3170 

GET KEY A* 

< 40D > 

4120 

I 

<B1D> 

3180 

RV. (SP) "0 

<44F> 

4130 

PRINT CHR*(155) 

<OFF> 

3190 

1F ASC(A*>=13 THEN 3260 

<4S6> 

4140 

PRINT : PRINT : PRINT “£EHLER - ":S 

<CNU> 

3200 

IF A*-CHR*<17> THEN SP'SP+1*A»<SP-fl) 

<630 

4150 

PRINT : PRINT CHRP!1B);“HEITER MIT >££IU£H<" 

<PIV> 

3210 

IF ßP-CHRPC143) THEN SP-SP-1-A*(SP-1) 

< 30P > 

4160 

GET KEY AP: IF ASC(flP)<>13 THEN 4160 

<A6T> 

3220 

IF A*-CHR*(19> THEN SP-1 

<UUS> 

4170 

X 

<9H7> 

3230 

RX (SP) **18 

<9G2> 

41B0 

REM «»* MENUE »*» 

<4K I > 

3240 

GOTO 3000 

<30K> 

4190 

: 

<EHR> 

3250 

: 

<5GN> 

42O0 

PRINT CHR*(147) 

< A7E > 

3260 

TROP 6980 i REM *** BEI FEHLER VERZWEIGE »»* 

< 5L0 > 

4210 

PRINT CHR*(19);CHR*(10);CHR*(155)»“(2SPACE>£ 


3270 

: 

<4GJ> 


OLYNOMAPPROXIMATION C3SPACE>";CHR*(158) 

<SJL> 

3280 

ON SP GOSUB 5010,5050,5090,5130,5150,5260,53 


4220 

PRINT : PRINT "(1) AUSGABE AUF £1_0TTER" 

< V15 > 


70,5470,5570,6630 

<CVE> 

4230 

PRINT : PRINT "(2) AUSGABE AUF AILDSCHIRM" 

<KDD> 

3290 

t 

<3GF> 

4240 

PRINT : PRINT "(3) EINGABE NEUER flESSWERTE" 

<02U> 

33O0 

REM +++ BERECHNUNG DER FUNKTION +++ 

<0K2> 

4250 

PRINT : PRINT "(4) tfEUE EUNKTIDN WAEHLEN" 

<0L3> 

3310 

: 

< 6GR > 

4260 

PRINT : PRINT "(5) EESSWERTE UEBERPRUEFEN" 

<N7U> 

3320 

REM *** BERECHNUNG DER SUMMEN #»» 

<040> 

4270 

PRINT : PRINT "(6) PUNKTION ZEIGEN" 

<NKA> 

3330 

: 

<7GV> 

4280 

PRINT : PRINT "(7) 2URUECK INS HflUPT-AENUE" 

<0C1> 

3340 

FOR L=1 TO N: 3Y=SY+Y(L)s NEXT 

<VPC> 

4290 

GET KEY A*: W=VAL(AT>: IF W<1 OR W>7 THEN 42 


335© 

: 

<4GJ> 


90 

<BVS> 

3360 

FOR K=1 TO 2#M 

CNS0> 

4300 

ON W GOTO 4340,5680,2730,3030,7080,3900,1000 

< BGA > 

3370 

FOR L= 1 TO N: SX (K) =SX (K) + X (L) TK: NEXT 

<2M9> 

4310 

X 

<8H3> 

33B0 

NEXT K 

\TR5> 

4320 

REM *** AUSGABE AUF PLOTTER *** 

< 7 4S > 

3390 

t 

<2GB> 

4330 


<9H7> 

3400 

FOR K-l TO M 

<UQS> 

4340 

OPEN 1,6,1: OPEN 2,6,2: OPEN 3,6,3: DPEN 4,6 


3410 

FOR L=1 TQ N: XYOO =XY(K)+Y(L)»X(L)PK: NEXT 

< MF‘ 1 > 


,0: OPEN 6,6,6: PRINT#6,1 

<L08^ 

3420 

3430 

NEXT K 

<TV5> 

<248> 

4350 PRINT#3,2: PRINT#2,0 

A36^PTN7 CHR* (147) 

*4370 '".NT "ÜEBERSCHRIFT (MAX. 2© 2£ICHEN) " ? CHR* ( 

17) 

< MD8 > 
<AFF> 

3440 

REM *#* AUFSTELLUNG DER KOEFFIZIENTENMATRIX 
*** 

<L2E> 

3450 


<IGF> 

4380 

INPUT A* 

<ANF> 

3460 

NG=M+1: B(1)=SY 

<JAD> 

4390 

IF LEN(fl*)>20 THEN 4360 

< JCT> 

3470 

x 

<2GB> 

4400 

X 

<F1T> 

3480 

FOR L=2 TO NG: B(L)=XY(L-l>s NEXT 

<QVT> 

4410 

PRINT #4: PRINT#4,A* 

<E91 > 

3490 

A(11)=N • 

<R94> 

4420 

PRINT#3,0: PRINT#2,1 

<5B0> 

3500 

FOR L=2 TO NG: A(10»L)=SX(L-l): NEXT 

<NBK> 

4430 


<EHR> 

3510 

FOR Q=2 TO NG 

<0Ai> 

4440 

PRINT : INPUT "SAME DER SROESSE X";NX* 

<C4G> 

3520 

FOR L=1 TO NG: A(Q»l0»L)=SX((Q-2)»L): NEXT 

<S5L > 

4450 

PRINT ; INPUT "EINHEIT VON X M ;EX* 

<2AV> 

3530 

NEXT 0 

< 6K8 > 

4460 

PRINT : INPUT "AAME DER SROESSE V'jNY* 

<CCH> 

3540 

: 

<209> 

4470 

PRINT : INPUT "EINHEIT VON Y";EY* 

<66E> 

3550 

REM *•* LOESEN DES LINEAREN GLEICH.-SYST. *» 


4480 

: 

<B1D> 


* 

< 2SB > 

4490 

PRINT#4,"(3SPACE5&R."; : PRINTttl,"M",100,0: P 


3560 

t 

< 30D> 


RINTW4,NX*; 

<P14> 

3570 

FOR MG-1 TO NG 

< RAV > 

4500 

PRINT M1,"M",300,0t PRINTW4,NY* 

<340> 

3580 

P-A(MG*11): IF P=0 THEN 3700 

<HERV 

4510 

PRINTM1,"M",100,0s PRINT#4,"IN (";EX*;")"; 

< JMJ > 

3590 

FOR L-MG TO NG 

''BNF > 

4520 

PRINT»1,"M",300,0: PRINT44, 'IN .. 

<cnn:> 

3600 

A(MG*1O+L)=A(MG*10+L)/Pi HA(L>-A(MG*10+L) 

<U9B> 

4530 

PRINTW4: PRINT#4t PRINT#2,2 

<B9H> 

3610 

NEXT L 

<546> 

4540 

x 

<C1H> . 

3620 

B(MG)»B(MG)/P: HB1L)=B(MG): HB-B(MG) 

<BMT > 

4550 

REM »»* AUSGABE DER MESSWERTE AUF PLOTTER »» 


3630 

IF MG'“=NG THEN 3690 

<APM> 


# 

<5SN> 

3640 

FDR 0=MB+1 TO NG 

'LP9> 

4560 

X 

<D1L> 

3650 

V“-A(0*104MG) 

<7N6.< 

4570 

FOR L»1 TO N 

<E5D> 

3660 

FOR L-MG TO NG: fl<Q»10+L)-fl(Q*10»L)»HA(L)«V: 


45B0 

N»="<6SPACE)"+STR»<L): Nt=RI6HT*(N*,6) 

<F4E> 


NEXT 

<DTA) 

4590 

IF XP(L><0 THEN Z—1E-4: ELSE Z“lE-4 

<5IM> 

3670 

B(Q>«B(Q)+HB*V 

< GNA > 

4600 

X»INT(XP(L)*1E3+.5)/IE3+Z 

<H8D> 

3680 

NEXT 0 

<EP0> 

4610 

IF Yp (L) <0 THEN Z—1E-4: ELSE Z-1E-4 

<6ßH> 

3690 

NEXT MG: GOTO 3000 

<7E2> 

4620 

Y“INT(YP(L)»1E3».5)/1E3+Z 

<GSF> 

3700 

HL-MG+1 

<091 > 

4630 

X*-"C9SPACE)"»STR*(X) 

<H0J> 

3710 

IF HL>NG THEN 3700 

<KN9 > 

4640 

Y*-"I9SPACE)“»STR*(V) 

<562> 

3720 

FOR L-MG TO NG 

<LNF> 

4650 

X*-LEFT*(RIGHT*(X*.11),10): IF XP(L)»0 THEN 


3730 

HZIHL*10»L)*fl(MG*10»L): fl(MG»10»L>-fl(HL«10-L 



X* n "C5SPACEJ0. 000" 

<CIL> 


): fl(HL»10*L)-HZ(HL»10»L) 

<R2N> 

4660 

Y*“LEFT*(RIGHT*(Y*,11),10): IF YP(L>-0 THEN 


3740 

NEXT L 

■ T36> 


Y*-“<5SPACF)0, 000“ 

<4ML> 

3750 

BH-B(MG): B(MG)«B(HL): B(HL)-BH 

<ROL> 

4670 

PRINTM4,N*; 

<LC1> 

3760 

IF A(MG)*11—0 THEN HL-HL+1: GOTO 3710 

< 4K8> 

4600 

PRINT #1 ,"M",110,0x PRINTH4,X*:: PRINTH1,"M", 


3770 

GOTO 3S80 

<30U> 


310,Ox PRINT#4,Y* 

<P3D> 

37B0 

PRINT CHRP(147)"jyiFFF1ZIENTFN KOENNEN NICHT" 


4690 

NEXT L 

<5G6> 


: PRINT "BERECHNET WERDEN" 

<160 

4700 

t 

<C1H> 

3790 

GOTO L 000 

<20K> 

4710 

REM »*» ZEICHNE RAHMEN *»» 

<3SN> 

3800 

C(NG)-B <NG) 

< TUB> 

4720 

I 

< D1L > 

3010 

FOR L=NG-1 TO 1 STEP -1 

. DAP > 

4730 

H-N*10+55: PRINTH2,0 

<MOG> 

3820 

FOR Q-L+1 TO NG 

<IUJ> 

4740 

PRINT91, "D" ,0,H: PRINTIII, "D" , 479,H: PRINT41, 


3830 

B(L)=B(L)-C(Q)*A <L*1 0+0) 

<386> 


"D",479,0: PRINTH!,"D",0,0 

<JP5> 

3840 

NEXT 0 

<E9B> 

4750 

PRINT. 1 ,”M",0,H-40: PRINTH1,“D“,479,H-40 

<E86> 

3850 

C(L)=B(L) 

<UVP> 

4760 

PRINTIII , "M“ ,60,H: PRINTIII , "D“ ,60,0 

< JVR> 

3860 

NEXT L 

<TV6> 

4770 

PRINTIII , "M" ,275,H: PRINTIII, "D" ,275,0 

< MF7 > 

3870 

: 

<FHR> 

4780 

PRINT.4: PRINT.4: PRINTH4 

<0K2> 

3880 

ON SP GOSUB 6460,6460,6460,6460,5220,5330,54 


4790 

: 

<0H3-> 


40,5540,5640 

\3FB> 

480O 

REM »»» AUSGABE DER BERECHNETEN KQEFFIZIENTE 


3890 

: 

^9H7> 


N *»» 

<248> 

39O0 

REM *.» AUSGABE DER ERGEBNISSE »»» 

<5KM> 

4810 


<3BF> 

3910 

X 

<CHJ > 




3920 

IF FE-1 THEN 41 00 

<5B0> 

Listing 1. (Fortsetzung) 




SONDERHEFT 22 


139 








ANWENDUNG 
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4020 

PRINT#6,0: PRINT#2,1: PRINT»!,"M",90,0: 

PRIN 


5000 


<1©5> 


T«4,A*(l)i PRINT»4i PRINT»2,2 


<S0K> 

5810 

Z=2: COLOR 1,2,7 

< GGC > 

4B30 

FÜR L=1 TO NB 


<ANP> 

5820 

DRAW 1,0,X0 TO 319,X0 

< VF9 > 

4840 

IF SP>1 THEN NJ=CHR*(L+64>: ELSE N»^"A' 

+MID4 


5830 

DRAW 1,Y0,0 TO Y0,199 

idaf: 


(STR*(L-1),2) 


<6LB> 

5840 

: 

< 30D> 

4850 

IF ABSICIL))>lE-4 THEN X-INTIC<L)«1E6». 

5) /IE 


5850 

FOR J=0 TO 22 

&7n:- 


6: ELSE X-C(L> 


< JAJ > 

5860 

IF Z-3 THEN Z-2: ELSE Z-3 

< UDH > 

4B60 

n RINT#1,"M",100,O: PRINT»4,Nt|1X 


< AB5> 

5870 

DRAW 1,J*15.95,X0-Z TO 15.9S»J,X0*Z 

<maj: 

4870 

NEXT L 


<L26> 

5BB0 

DRAW l, YO-Z , 9.95«* J TO Y0+Z,9.95*J 

•■3R0> 

4880 

PR INTM6,1 


< 1LL> 

5090 

NEXT J 

) 5G5 > 

4090 

1 


<7GV> 

590O 

: 

<001 > 

4900 

REM »«** ZEICHNE RAHMEN *** 


<2KA> 

5910 

X-X0/0-1: IF X<1 THEN X-l 

< 4GE > 

491 0 

i 


<2GB> 

5920 

Y-Y0/8-*-1: IF Y>35 THEN Y-Y-4 

< URN > 

4920 

PRINT#2,0i H»NG«>10+35 


<FBE> 

5930 

CHAR 1,0,X,STR*(A): CHAR 1,36,X,STRJ(B) 

<0DF> 

4930 

PRINT#1,"D".O.Ht PRINT#1,"D",479,H: PRINTB1, 


5940 

CHAR 1,Y,0,STR*(D): CHAR 1,Y.24,STRJ<C> 

•:mjg> 


■D",479,Os PRINT#!,"D",0,0 


<5VT> 

5930 

TRAP 7350 

<LE7> 

4940 

PR INT#4i PRINTM4: PRINT#4 


<2K2> 

5960 

: 

< 30D> 

4950 

ZZ-1: GOTO 1410 


<7KF> 

5970 

REM «»» KENNZEICHUNG DER MESSWERTE «»» 

< 2C9 > 

4960 



<105> 

5980 

: 

<#0H> 

4970 

REM «»» FUNKTIONENDEFINITIONEN »»» 


<3CD> 

5990 

IF PO«0 THEN 6060 

<4BG> 

49B* 

t 


<60P'> 

6O00 

FOR 1-1 TO N 

<ONT> 

4990 

REM »«♦ POLYNOM 1. GRADES »#• 


<0S3> 

6010 

X-INT((XP(l>-A)/XS+.5> 

<BTT> 

5000 

I 


<913> 

6020 

Y-199-INT < (YP (I) -C) /YS+. 5) 

< 2K.V > 

5010 

DEF FN A(X)-C(1)+C(2)«*X: M»1: RETURN 


<2K6> 

6O30 

IF X > O AND Y > 0 THEN CIRCLE 1.X.Y.2 

<LL0' 

5020 

i 


<011 > 

6040 

NEXT I 

<DD4> 

5030 

REM »»* POLYNOM 2. GRADES 


<7SV> 

6050 

: 

<DHN> 

5040 

I 


<B1D> 

6060 

FOR V-l TO ZZ 

< 1P3> 

5050 

DEF FN A(X)-C(l)+C(2>*X+C<3)*X*Xi M-2: 

RETUR 


6070 

IF V-l THEN J =FN A(A): F-3 

<C!30> 


N 


< 2SR > 

6080 

IF V-2 THEN ,1=FN BIA): F-6 

<1 IP> 

5060 

] 


• <A19> 

6090 

IF V-3 THEN J-FN C(A): F-7 

<AHP> 

5070 

REM «*** POLYNOM 3. GRADES «mm* 


<6SR> 

6100 

COLOR 1,F,7 

<sai > 

50QO 

: 


< DIL > 

6110 

CHAR 1,0,V-l,AI(V),1 

<DBF> 

5090 

DEF FN A<X)=C(1)-*C(2)«X+C<3)*X*X+C(4).X*X*X: 


6120 

Y-199-INTI <0-0 /YS*.5> 

<537> 


M=3: RETURN 


<P6V> 

6130 

IF Y>0 THEN LOCATE 0,Y: ELSE LOCATE 0,0 

<U66> 

5100 

t 


<B11 > 

6140 

: 

<C1H> 

5110 

REM «mm* POLYNOM 4. GRADES **» 


<7SV> 

6150 

FOR XW=0 TO 319 

<9DV> 

5120 

: 


<915> 

6160 

TRAP 6260 

<JU2> 

5130 

DEF FN A(X)=C(1)+C(2)*X+C<3)*X*X+C<4 >-X T3+C I 


6170 

I=A'-XW«XS 

<038 > 


5>*Xt4: M=4: RETURN 


<F6V> 

61B0 

IF V=1 THEN U-FN All) 

<65H> 

5140 

s 


< A19> 

6190 

IF V=2 THEN J=FN B(I) 

<3LV> 

5150 

REM ***** Y=A*EXP(B*X) *** 


<6SR> 

6200 

IF V=3 THEN J=FN C(I) 

<7557 

5160 

: 


<B1D> 

6210 

Y™ 199- I NT ( (J-C) /YS-* . 5) 

<LM7> 

5170 

FOR L=1 TO N 


<85D> 

6220 

IF Y < 0 AND Z < 0 THEN LOCATE XW,0: GOTO 62 


5180 

Y(L>=LOO(YP(L> ! /LOG(IO) 


< 688 > 


60 

<2UI > 

5190 

NEXT L 


<LG6> 

6223 

IF (Y < 0 AND Z > 199) OR (Y > 199 AND Z < 0 


5200 

i 


<B1D> 


) THEN 6260 

< ATF > 

5210 

M“l: RETURN 


<F05> 

6225 

IF Y < 0 AND Z > O THEN DRAW 1 TO XW,0 : GOT 


5220 

C(l)=10tC(l): C(2)=C(2)«LOG(10) 


<E1U> 


0 6260 

<717> 

5230 BEF FN AIX)=C(1)»EXP IC(2)»X> 


<22M> 

6230 

IF Y < 0 AND Z > 0 THEN DRAW 1 TO XW,B : GOT 


5240 

RETURN 


<9K7> 


0 6260 

<01R> 

5250 

: 


•9H7, 

6240, IF- I. < O AND Z > 199) OR <Y > 199 AND Z < 0 


5260 

REM **** Y=A*XtB *** 


< 7KU > 


) THEN 6260 

< I IF> 

5270 

: 


< BH3 > 

6250 

DRAW 1 TO XW,Y 

<T0I > 

5200 

FOR L=1 TO N 


<CLD> 

6260 

Z=Y: NEXT XW: NEXT V: TRAP 

<TRQ> 

5290 

X(L)=LOG(XP(L))/LOG(IO) : Y(L)-LOG(YP<L> >/LOG 


6270 


<EHR-- 


(10) 


<TGA> 

6200 

COLOR 4,7,0: COLOR 1,8,7 

<8FF > 

5300 

NEXT L 


<TN6> 

6290 

GET KEY A*: IF ASC<A*><>13 THEN 6290 

<0ES> 

5310 

: 


< AHB > 

6300 

GRAPHIC 0: COLOR 0,7,0 

<FVT> 

5320 

M-l: RETURN 


<EQ5> 

6310 

IF P0=1 THEN 3930 

<5KN> 

5330 

Cd>=10tC(l) 


< 0B1 > 

6320 

GOTO 10O0 

<70K> 

5340 

DEF FN A(X)=C(i)*XtC(2) 


<KC2> 

6330 

END 

< I IE> 

5350 

RETURN 


<PI7> 

6340 

REM »»» EINGABEROUTINE »»* 

< 4KI > 

5360 



<915> 

6350 

A*=" " 

<BDH> 

5370 

REM »** Y=1/(A+B«*X> *** 


<7CT> 

6360 

PRINT GET KEY B* : PRINT CHRJI157); 

<STC> 

5380 

i 


< E1P> 

6370 

W-ASC1B*) 

<L2T> 

5390 

FOR L“1 TO N 


< D5D> 

6380 

IF W>44 AND W<58 THEN PRINT B*;: GOTO 6430 

<KUM> 

3400 

Y(L)»1/YP(L)s X(L)-XP(L) 


<DOS> 

6390 

IF W=13 AND LEN(A*>>0 THEN 6450 

<HIL> 

5410 

NEXT L 


<506 > 

6400 

IF W< >20 THEN 6440 

<EVV> 

5420 

: 


<CIH> 

6410 

PRINT CHR*(157);"? M ; CHR# (157) j CHR* d57> | 

<3JL> 

5430 

M=l: RETURN 


<105> 

6420 

A*-LEFT* (Ai, LEN (Ai - > -1 > : GOTO 6440 

<EH0> 

5440 

DEF FN A<X)-1/<C(1>+CC2)*X) 


<EKE> 

6430 

Ai-AJ+B* 

<00E> 

5450 

RFT1IRN 


<PE7> 

6«40 

GOTO di36® 

<2Q8> 

3460 

S 


CE1P> 

6450 

W-VAL(Ai): PRINT " 

<MAU> 

5470 

REM ***** Y“X/(A+B«*X) *** 


<4SJ> 

6460 

RETURN 

<9G7> 

5400 

i 


<915> 

64 70 

3 

<BH3> 

5490 

FOR L-l TO N 


<A5D> 

6480 

REM ««Mi UP-EINGABE «*«*«» 

< 44G > 

SSOO 

Y(L)=XP(L)/YP(L> : X(L>-XP(L) 


v AK6 > 

6490 

: 

<FHV> 

5510 

NEXT L 


<LG6> 

6506 

PRINT CHR4I147): PRINT 

<L6F> 

5520 

: 


<DIL> 

6310 

PRINT "JJARSTELLUNGSBEREICH DER FUNKTION AUF" 


5530 

M-l: RETURN 


<305' 


: PRINT 

<VR7> 

5340 

DEF FN A(X)“X/(C(1)+C(2)*X) 


<4S3> 

6520 

PRINT "DER X-ßCHSE VON XU- ",i GOSUB 6340: A 


5550 

RETURN 


<PA7> 


-W: PRINT : PRINT 

<B5C> 

5560 

: 


<F1T> 

6539 

IF A>0 THEN PRINT "XU MUSS KLEINER BLEICH 0 


5570 

REM «mm* Y-A*LN(B*X> «*«*«* 


<4CH> 


SEIN PRINT : GOTO 6520 

<T4R> 

5380 

1 


<01 i> 

6540 

PRINT TAB(12);"BIS X0= GOSUB 6340: B-W: 


5590 

FOR L-l TO N 


<B5D> 


PRINT : PRINT 

<B9J> 

56O0 

X(L)-LOG(XP(L>>: Y<L)-YP<L> 


<ME0> 

6550 

IF B< 0 THEN PRINT "XO MUSS GROESSER GLEICH 0 


5610 

NEXT L 


< 5S6 > 


SEIN PRINT : GOTO 6540 

<F7L> 

5620 

M-l: RETURN 


<405> 

6560 

PRINT " J2ARGTELLUNBSDEREICH DER £UNKTION AUF" 


5630 

: 


<EHF:> 


: PRINT 

<SB9> 

5640 

DEF FN A<X)=Cll)*LBG<C(2)«X> 


<EMM> 

6570 

PRINT "DER Y-flCHSE VON YU= "|: GOSUB 63«0: C 


5650 

A-Cd): C(l>-C(2): C(2)-EXP(A/C(2)> 


<SJG 


-W: PRINT : PRINT 

<OFC> 

5660 

RETURN 


<907> 

6500 

IF C>0 THEN PRINT "YU MUSS KLEINER GLEICH 0 


5670 

: 


<CHJ> 


SEIN I": PRINT : GOTO 6570 

<60S> 

5680 

REM AUSGABE AUF BILDSCHIRM ... 


<640> 

6590 

PRINT TAB 112):"BIS Y0- "j: GOSUB 6340: D-W: 


5690 

t 


<BHF> 


PRINT 

<730> 

5700 

GOSUB 6500 : REM *** EINGABE 


<M7B> 

6600 

IF D<0 THEN PRINT "YO MUSS GROESSER GLEICH 0 


5710 

: 


< EHR :• 


SEIN !": PRINT : GOTO 6590 

• <G3P> 

5720 

COLOR 0,1,0: COLOR 4,1,0: GRAPHIC 1,1 


<4LC> 

6610 

RETURN 

<PM7> 

5730 

: 


<FHV> 

6620 

: 

<011> 

5740 

XS«= (B-A) /320: YS-(D-C)/200 


< 0E0> 

6630 

REM •*«** COMPUTER WAFHLT FUNKTION «•#«* 

<78 V> 

5750 

YO-INTIAB31A/X5))! X0=INT(ABSIDZYS )> 


<3B9> 

6640 

PRINT CHR4)(147) i "JERECHNUNG IM FAS.T-n.0m5 (1 


5760 

IF X0>199 THEN X0=X0-1 


< B8C > 


/a> ?•» 

<E7P> 

3/70 

IF Y0>319 THEN Y0=Y0-1 


<OD0> 

6650 

GET KEY Ai 

<20D> 

5780 

: 


<A19> 

6660 

IF A»="J" THEN FAST 

< 116> 

5790 

FOR 1=0 TO 22i FOR J-0 TO 22: DRAW i,15.95*J 


6670 

1 

<AHB> 


,9.95»I: NEXT J,I 


<9BM> 

6680 

FG= 1 

<URJ > 
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ANWENDUNG 


6690 FOR SP=1 TO 9 <6HL> 
6700 FE=0 <NQN> 
6710 ON SP GOSUB 5010,5050,5090,5130,5150,5260,53 

70,5470,5570 <244> 
6720 BOTO 3310 <60R> 
6730 F(SP)-St 1F FE-1 THEN FCSP>—1 <MH9> 
6740 PRINT s PRINT CHR*(155)*"FEHLER - ";F(5P> <AIG> 
6750 « <AHB> 
6760 FE=0i GOSUB 7020 <3AM> 
6770 i <BHF> 
6700 NEXT SP <MFR> 
6790 : <CHJ > 
6000 SLOW <E9B> 
6810 PRINT CHR* <147);CHR*(158);CHR*(18)s"{2SPACE> 

£UNKTION"|TAB(27)j"HEHLER" < 97S > 
6820 Fl-1El0s F2-0s FB-2 <0RF> 
6830 FOR SP-1 TO 9 <GHL> 
6840 PRINT r PRINT FK*(SP)|TAB(25)»F(SP) <KTR> 
6B50 IF Fl-F(SP) AND LEN(FK*(F2))>LEN(FK*(SP)) TH 

EN F2-SP <Q4M> 
6860 IF Fl>F(SP) AND F(SP)0-1 THEN Fl-F(SP)» F2- 

SP < 3QP > 
6070 NEXT SP <7DR> 
6880 PRINT CHR«(155)« SP-F2« FE=0 <8FK> 
6890 PRINT "flUSGEWAEHLTE LUNKTION IST": PRINT CHR 

*(1B);FK*(SP> <3B9> 

6900 FOR L B 1 TO Nt X(L)=XP(L>» Y(L)»YP(L>« NEXT L <DB6> 
6910 PRINT t PRINT CHR« (18); "HEITER MIT >JSETURN<" 

t <7P3> 
6920 GET KEY A«: IF ASC(A»)<>13 THEN 6920 <CU6> 
6930 PRINT " OK"(CHR«(158) <428> 
6940 GOTO 3280 <2BG> 
6950 s < 4GJ > 
6960 REM »** FEHLERROUTINE *«* <144> 
6970 : <5BN> 
6980 PRINT CHR*(147);"iDESUNG NICHT VORHANDEN FUE 

R": PRINT « PRINT CHR*<18);FK#<SP) <FA5> 
6990 FE-1 <3K7> 
7000 RESUME NEXT <OUQ> 
7010 : <DHN> 
7020 REM *•»* SUMMEN 0 SETZEN *«* <5KM> 
7030 : <CHJ > 
7040 SY=0 <KUR> 
7050 FOR L=1 TO 4s XY(L)=0: NEXT <GQ2> 
706O FOR L=1 TO 8: SX(L)=0s NEXT <R82> 
7O70 RETURN <PA7> 
7080 s <915> 
7090 REM **« UEBERPRUEFUNG DER MESSWERTE **• <7CT> 
7100 : <C1H> 
7110 PRINT CHR*(147);CHR*(10);CHR*(158);" E2SPACEJ 


ÜESSWERTE <2SPACE> “ 


7120 FOR 1-1 TO N <QNT> 
7130 PRINT <3SU> 
7140 PRINT Ij".<2SPACE>"j"X= ";XP(I);TAB( 23); "Y“ 

";YP(I) <268> 

7150 NEXT I <LA4> 
7160 PRINT CHR*(155) <AVD> 
7170 PRINT "ALLE flESSWERTE KORREKT ? <£/&> <5B0> 
7180 GET KEY A* <30D> 
7190 IF A*-"J" THEN 7300 <SPI> 
7200 IF A*“"N" THEN 7220 <U1T> 
7210 BOTO 7180 <206> 
7220 PRINT <RRU> 
7230 PRINT "HUMMER DES FALSCHEN flESSWERTES "j <8LP> 
7240 GOSUB 6340« I-Ws PRINT <FJ9> 
7250 PRINT « PRINT I S ". X- "j« GOSUB 6340s X-W <U3B> 
7260 PRINT TAB(23){"Y— "jt GOSUB 6340s Y-W: PRINT 

< 8K2 > 

7270 XP(I)-X* X(I)-X« YP(I>-Yt Y(I)-Y <F4L> 
7280 GOTO 7110 <20F> 
7290 t < BHF > 
7300 PRINT : PRINT CHR*(18);"ZURUECK INS flENUE MI 

T > ACLTJJJtH< " < 136 > 
7310 BET KEY A*j IF ASC(A*X>13 THEN 7310 <P2H> 
7320 GOTO 4200 *'204> 
7330 s <FHV> 
7340 REM #*» FEHLERMELDUNG *** <5KM> 
7350 GRAPHIC 0 <SJP> 
7360 PRINT CHR*(147);"fiNFANGSWERT HAT FEHLER VERU 

RSACHT." <6P3> 
7370 PRINT "BERECHNUNGEN WERDEN NICHT FORTGEFUEHR 

T" <183 > 
7380 PRINT t PRINT CHR* (18) j "HEITER MIT " <R2V> 
7390 GET KEY A*: IF ASC(A*)<>13 THEN 7390 <R!R> 
7400 IF P0=1 THEN 4200 <N8S> 
7410 GOTO 1000 <5GK> 
7420 s <811> 
8000 REM *** EINBEFUEGTE FUNKTIONEN «#* <A58> 
8010 DEF FN A(X)=SIN(X)+SIN(20*X)/5 <427> 
8020 DEF FN B (X) =SIN (20«»X) /5 <SGV> 
8030 DEF FN C(X)=SIN(X) <I49> 
8040 A*(1)="Y=SIN(X)+SIN(20*X)/5" <T82> 
8050 A*(2)="Y=SIN(20»X)/5" <7RU> 
8060 A*(3)—"Y—SIN (X) " <MMH> 
8070 ZZ= 3 J <0S8> 
8100 RETURN <A07> 


Listing 1. Das Programm »Approxi 128» berechnet 
die mathematische Funktion zu Ihren Versuchs- 
ergcbrissen (Schluß) 



1 ' ': 

*iV v >!•:« 'v.V 


■' . ■ ■. « ■■ ■ \ ■ 
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SPIELE 


C128 


For 128 only 

Spiele, die den vollen Speicher des C128 ausnut¬ 
zen, gibt es wenig. Zwei dieser Programme haben 
wir unter die Lupe genommen. 

E ine häufige Beschwerde der C 128-Besitzer lautet: »Für 
meinen Computer gibt es keine Spiele!«. Es gibt zwar 
tausende von Programmen für den C64, die auch auf 
dem C128 funktionieren; Programme, die speziell auf den 
C128 zurechtgeschnitten sind und auch den vollen Spei¬ 
cher ausnutzen, sind dagegen sehr dünn gesät. Zu den 
wenigen Programmen, die nur mit 128 KByte Arbeitsspei¬ 
cher lauffähig sind, gehören einige Adventures der Firma 
Infocom. 

Was ist eigentlich ein Adventure? Ein Adventure läßt sich 
am besten als ein Roman im Computer beschreiben. Der 
Unterschied zu einem gedruckten Roman besteht darin, 
daß Sie die Rolle der Hauptperson übernehmen und aktiv 
in die Handlung eingreifen. Zuerst beschreibt das Adven¬ 
ture die Situation, in der Sie sich gerade befinden. Sie kön¬ 
nen dann mit einem englischen Satz dem Programm mittei- 
len, was Sie als nächstes tun wollen. Die Handlung des 
Spiels ist dabei immer mit zahlreichen logischen Rätseln 
verknüpft. Ein Beispiel: Vor Ihnen steht ein Löwe, der Sie 
unbedingt fressen möchte. Sie haben nun aber ein Stück 
Fleisch, was Sie vorher mit einem Schlafmittel versehen 
haben, bei sich. Mit der Eingabe »Give the meat to the lion« 
geben Siedern Löwen das Fleisch. Dieser frißt es begierig 
und schläft ein. Hätten Sie dem Löwen beispielsweise die 
Konservendose gegeben, hätte das Programm vielleicht 
geantwortet, daß der Löwe kurz an der Dose schnüffelt und 
Ihnen dann herzhaft ins Bein beißt... 

Zwei besonders komplexe und nicht gerade einfache 
Vertreter dieser Spielegattung stellen wir Ihnen nun vor. 
Beide Programme sind auch von der Handlung her sehr 
ungewöhnlich, geht es hier doch nicht um das Erschlagen 
von Drachen und das Retten von Prinzessinnen, sondern 
um den Krieg mit Formularen und Behörden und die Bedro¬ 
hung durch die Atombombe. 

Bureaucracy 


Es war einmal, vor nicht allzu langer Zeit, ein Mann, der 
innerhalb Londons umziehen wollte. Er benachrichtigte 
jedermann über seine neue Adresse, auch seine Bank; ja, 
er ging sogar selbst dorthin und füllte persönlich ein ent¬ 
sprechendes Formular aus. Er hatte vor, danach glücklich 
bis ans Ende seiner Tage in der neuen Wohnung zu leben. 

Doch nur wenige Tage später mußte er feststellen, daß 
seine Bank seine Kreditkarte für ungültig erklärt hatte. Eine 
neue Kreditkarte war rechtzeitig an ihn geschickt worden - 
aber an die alte Adresse. 

Mehrere Wochen lang versuchte der Mann vergeblich, 
seine neue Adresse bei der Bank durchzusetzen. Er sprach 
mit vielen Bankangestellten, füllte viele weitere Formulare 
aus, beantragte eine zweite Kreditkarte, aber nichts von 
alledem half. 

Der Mann, der mehrere Wochen lang ohne einen Penny 
leben mußte, ist Douglas Adams, Autor der berühmten 
»Hitchhikers Guide to the Galaxy«-Serie (Per Anhalter 
durch die Galaxis), die er schon zu einem Adventure ver¬ 
wandelt hatte. Nach knapp zwei Jahren hat Douglas seine 
Wut über diese Episode ausgelassen und ein witziges 
Adventure daraus gemacht. Ach, übrigens: Douglas bekam 


auch ein Entschuldigungsschreiben vom Bankdirektor. 
Man sandte es natürlich an seine alte Adresse. 

Bei »Bureaucracy« ist die Ausgangslage ähnlich verzwei¬ 
felt. Sie haben einen neuen Job, eine neue Wohnung und 
ähnliche Probleme mit Ihrer Bank. Heute nachmittag sollen 
Sie nach Paris fliegen, um an einem Lehrgang teilzuneh¬ 
men und auch etwas auszuspannen. Doch die wichtigsten 
Dinge, das Flug-Ticket, Geld sowie Ihre neue Kreditkarte 
sind bei Ihrer alten Adresse gelandet. Und da der neue 
Besitzer Ihres ehemaligen Hauses etwas wütend auf Sie ist 
(Sie hätten ihm doch nicht die Sache mit den Termiten und 
Küchenschaben verschweigen sollen), hat er Ihre wichtige 



out thelr little problen. The exit leads säst to the living roon, 

Vou scc a conbination telephoiWansxering nachine and a table hcre. Dn the 
table gou sce a hacksax, an address booh, a snall case, your Boysenberry 
conputer, a letter and your passport. 

>exanine the conputer 

This is the renarkable Boysenberry Laptop conputer, nade by a subsidiary of 
your old enployers, the Deep Thought Corporation of Bnerica, There are no 
operating Controls of any sort, not even an on/off snltch, All you see are a 
tlny screen, a keyboard, a nodular jack and a Slot for progran Cartridges. 

The doorbell is ringing, 

>go to the front door then open it| 


Kampf gegen Formulare und Bürokraten bei Bureaucracy 

jnun®»» 


Lancaster tfclk 


An inpressive sculpture of a horse and rider doninates this bustling 
intersection. The Malk contlnues north and jnirifi; lessor paths curve off in 
nany directions, 

A broad fleid of grass, nottculously nanicured, extends to the east. Bcyond it 
you can see the Long Mater glittering betneen tite er»es, 

There's a notice hcre. 

>read the notice 

The nords Do Not NoTh Dn The Cross are sternly printed on the notice. 

>go east 

As your feet touch the grass you sense a stränge notion around you. Looklng 
donn, you natch nith horror as the grass begins to rlpple and xrithe xith 
vegetable indignance! 

Angry grecn stalks xhlp around your legs, pull you to the ground and drag you, 
kicking and screanlng, back to the paved surface of the Lancaster Ualk. 

A Chorus of offended little voices subsides as you regain your footing. 

>exanlne the grassl 


Bei TMnity müssen Sie einen Atomkrieg verhindern 


Post einfach nicht angenommen, so daß sich diese jetzt 
irgendwo auf unserem Globus befinden könnte. 

Gleich zu Beginn des Programms erwartet Sie eine 
unangenehme Überraschung. Trotz eingelegter Original- 
Diskette erscheint auf dem Bildschirm eine Beschwerde, 
daß dies wohl eine Raubkopie sei. Aber das ist ja alles nicht 
so schlimm, denn wenn man ein Formular zum Antrag einer 
vorläufigen Nutzungslizenz ausfüllt, erlaubt Ihnen das Pro¬ 
gramm, weiterzuspielen. Das Formular erscheint prompt 
auf dem Bildschirm und will nicht nur Namen und Adresse, 
sondern auch die Namen der letzten Freundinnen/Freunde, 
die am meisten gehaßte Farbe sowie den vorletzten Arbeit¬ 
geber wissen. Natürlich merkt sich Bureaucracy, was Sie 
da eingeben, und verwendet diese Daten im weiteren 
Verlauf des Spiels. 
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Diese Episode ist nur der Anfang einer Odyssee durch 
den Dschungel der Bürokratie, die allerdings auch durch 
den Dschungel einiger afrikanischer Kleinstaaten führt. Sie 
streifen durch Fast-Food-Restaurants, Reisebüros, Lama- 
Farmen, Flughäfen, die Häuser Ihrer Nachbarn und sogar 
durch einige Banken, um endlich an Ihr verdientes Geld zu 
kommen. 

Auf dem Bildschirm rechts oben, wo man üblicherweise 
bei einem Adventure Punkte und Spielzüge sieht, wird Ihr 
aktueller Blutdruck angezeigt. Immer, wenn Sie etwas 
falsch machen, steigt der Blutdruck, ansonsten fällt er lang¬ 
sam. Wenn Ihr Blutdruck einen gewissen Wert übersteigt, 
spielt Ihr Kreislauf nicht mehr mit - endlich mal ein Adven¬ 
ture mit natürlicher Todesursache! 

Bureaucracy ist ein selbst für Infocom-Verhältnisse 
ungewöhnliches Adventure. Die immer wieder auftauchen¬ 
den Formulare, die Punkte-Zählung mit dem Blutdruck, die 
zahlreichen Gags und Anspielungen auf unser tägliches 
Leben, all dies macht Bureaucracy zu einem Adventure- 
Erlebnis, das man so schnell sicher nicht vergißt. 

Trinity 


ln nicht allzuferner Zukunft ist die politische Lage zwi¬ 
schen Ost und West sehr gespannt. An den Grenzen vieler 
europäischer Staaten werden verstärkt Truppen stationiert. 
So brauchen Sie gerade in diesen harten Zeiten ein wenig 
Ablenkung und Zerstreuung. 

Sie übernehmen die Rolle eines Touristen, der sich 
gerade auf einer 599-Dollar-Pauschalreise durch Europa 
befindet. Die letzte Station vor dem Heimflug ist London. 
Plötzlich heulen Sirenen auf. Der lange befürchtete dritte 


Weltkrieg hat begonnen. Aber bevor feindliche Atomrake¬ 
ten Ihre Umgebung in Schutt und Asche legen können, 
öffnet sich ein Dimensionstor, mit dem Sie in verschiedene 
Epochen der jüngeren Geschichte reisen können. Jedes 
Ereignis, daß Sie aufsuchen werden, hat mit dem Thema 
Atombombe zu tun. Ihre einzige Chance, den dritten Welt¬ 
krieg wieder rückgängig zu machen, besteht darin, einen 
Weg zu finden, um die erste Atombomben-Explosion der 
Welt zu verhindern. Diese fand am 16. Juli 1945 auf einem 
amerikanischen Testgelände in der Wüste von Nevada 
statt. Der Codename des Atombombenprojekts: Trinity. 

Mit »Trinity« liegt das erste Adventure von Infocom vor, 
das geschickt Fantasie-Elemente mit realen Gegebenhei¬ 
ten und Orten verquickt. 

Trinity ist nicht ohne politische Brisanz und gehört zu den 
wenigen Spielen, bei denen der Autor eine klare Aussage 
vertritt. Dazu kommen eine umfangreiche Handlung (der 
Sourcecode von Trinity benötigt etwa 1,4 MByte) und eine 
große Zahl von kniffligen Problemen. 

Zu den Beilagen bei Trinity gehört der fast schon zyni¬ 
sche Comic: »Die illustrierte Geschichte der Atombombe« 
der in bester Walt-Disney- und Superman-Manier die Vor¬ 
teile dieser Wunderwaffe aufzählt. Außerdem findet man 
einen Bastelbogen für eine Sonnenuhr, die auch in der 
Handlung des Spiels eine Schlüsselrolle inne hat. 

Beide Programme werden nur auf Diskette ausgeliefert. 
Obwohl sie den Speicher von 128 KByte ausnutzen, muß 
doch ständig von Diskette nachgeladen werden, was oft zu 
unangenehmen Wartezeiten führt. Wie Sie vielleicht schon 
vermutet haben, sind beide Programme nur in englischer 
Sprache erhältlich. (bs) 


Info; Postlach 76 06 80, 2000 Hamburg 76 
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C128 


Wallstreet im Wohnzimmer 


Werden Sie zum Aktienspekulanten. Mit der reali¬ 
stischen Börsensimulation »Börse 128« erleben 
Sie auf spielerische Art und Weise hautnah die 
Vorgänge an einer Aktienbörse. 

B ei »Börse 128« können maximal neun Mitspieler ihr 
Glück an der Börse versuchen. Die Dauer des Spiels 
wird am Anfang festgelegt und kann maximal 9999 
Spieltage betragen. Jeder Spieler erhält 25000 Mark Start¬ 
kapital. Ziel des Spieles ist, sein Vermögen innerhalb der 
Spielzeit durch geschickten Kauf und Verkauf von Aktien zu 
vermehren. Das heißt, die Aktien zu einem niedrigen Kurs 
einzukaufen, aber zu einem hohen Kurs zu verkaufen. Von 
24 Firmen stehen Aktien zur Verfügung, deren Kurse sich 
(spiel-)täglich verändern. Von Zeit zu Zeit erscheint eine 
Telex-Nachricht über die wirtschaftliche Situation einer 
Firma auf dem Bildschirm. Aufgrund dieser Nachricht wird 
die Aktienkursentwicklung der Firma entscheidend beein¬ 
flußt. 



Bild 1. Das umfangreiche Auswahlmenü von »Börse 128« 


Auch Angebot und Nachfrage beeinflussen das Gesche¬ 
hen und die Kursentwicklung an der Börse. Von jeder Firma 
stehen 2000 Aktien zum Verkauf zu Verfügung. Fällt der 
Aktienkurs einer Firma unter die Zehn-Mark-Grenze, dann 
bedeutet das, daß die Firma bankrott ist und alle Aktien die¬ 
ser Firma zugleich wertlos sind. 

Kauft ein Spieler Aktien an, so werden pro Aktie 2% an 
Gebühren berechnet. Beim Verkauf fallen diese 2% eben¬ 
falls an. Läßt sich ein Spieler die Kosten für ein Aktienpaket 
berechnen, kauft aber dieses anschließend nicht, so wer¬ 
den ihm diese Gebühren ebenfalls angelastet. Letzteres 
gilt auch für den Verkauf von Aktien. 

Hüten Sie sich vor Fehlkäufen 


Der Spieler kann sich während des Spiels die eigene Kapi¬ 
talentwicklung oder die Aktienkursentwicklung einer 
bestimmten Firma in Form eines Blockdiagramms anzei- 
gen lassen. Den Maßstab für die Kapital- und Aktienkurs¬ 
achse errechnet das Programm bei jedem Diagrammaufruf 
neu. So wird die größtmögliche Auflösung und eine opti¬ 
male Bildschirmausnutzung gewährleistet. 

Am Ende eines Spiels wird ermittelt, welcher Spieler am 



Aktienbesitz des Spielers lifHffi 


Apple 

20 

Hixdorf 

0 

Acorn CoNputer 

0 

Olioetti 

0 

Atari 

32 

Oric 

0 

Brother 

23 

üsborne 

0 

Casio 

12 

Panasonoic 

0 

Citizen 

15 

Philips 

e 

CoKHOdore 

20 

Sanyo 

0 

Digital Research 

2 

Schneider 

1 

Epson 

14 

Sharp 

1B 

Hewlett Packard 

17 

Sinclair 

1B 

I.B.N. 

19 

Spectravideo 

12 

NEC 

14 

Texas lnstriment 

1 


Kapital : Hili) DM 


Bitte drueeben Sie eine Taste, 


Bild 2. Der Aktienbesitz eines Spielers im Überblick 


erfolgreichsten war. Dazu wird anhand der Aktienkurse des 
letzten Spieltages der Wert der Aktien, die der Spieler 
besitzt, errechnet und sein Bargeldvermögen dazu addiert. 
Wer am meisten Kapital besitzt, hat das Spiel gewonnen. 

Bitte geben Sie Börse 128 (Listing 1) mit dem Checksum¬ 
mer 128 ein (beachten Sie dazu die Eingabehinweise auf 
Seite 158). Nach dem Start mit »RUN« gelangen Sie zum 
Titelbild und können sich auf Wunsch eine kurze Spielan¬ 
leitung ' dem Bildschirm ausgeben lassen. Anschlie¬ 
ßend kann ein eventuell vorhandener alter Spielstand gela¬ 
den werden. 

Neun »Börsenmakler« gleichzeitig 


Geben Sie nun die Anzahl der Spieler (maximal 9), der 
Spieltage und die Namen der Spieler ein, und Sie gelangen 
ins Auswahlmenü (Bild 1). 

Wollen Sie Aktien kaufen, so drücken Sie Taste <1 >. Mit 
<F1 > und <F3> oder mit den Cursortasten wählt man 
nun die Firma an, deren Aktien man zu kaufen wünscht, mit 
< F5 > bestätigt man die Wahl. Falls Sie diesen Menüpunkt 
versehentlich angewählt haben, gelangen Sie mit <F7> 
wieder ins Auswahlmenü. Nun können Sie die Anzahl der 



Bild 3. Der Kapitalbesitz eines Spielers ist oft großen und 
manchmal unerwarteten Schwankungen unterworfen 
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gewünschten Aktien eingeben; die maximal mögliche 
Menge wird vorher angezeigt. Nach Ausgabe der Kauf¬ 
summe können Sie nun engültig entscheiden, ob Sie den 
Kauf tätigen wollen oder nicht. Die Bearbeitungsgebühr 
von 2% wird jedoch in jedem Fall verrechnet. Noch ein Hin¬ 
weis: Sollten Sie versehentlich mit dem Cursor außerhalb 
des Eingabefeldes geraten, so positionieren Sie diesen 
wieder im Eingabefeld und fügen am Ende der Eingabe 
einen Doppelpunkt an. 

Mit <2> aktiviert man den Verkauf von Aktien. Die 
Bedienung ist hier ähnlich wie bei »Ankauf«. 

Durch Taste <3> wird Ihr Besitz an Aktien angezeigt 
(Bild 2). Der Bildschirmaufbau ist ähnlich dem Auswahl¬ 
menü, nur daß hinter dem Firmennamen keine Kurse ste¬ 
hen, sondern die Anzahl der Aktien, die der Spieler von die¬ 
ser Firma besitzt. Mit einem beliebigen Tastendruck, erfolgt 
ein Rücksprung in das Auswahlmenü. 

Durch <5> wird eine ansprechende Balkengrafik der 
Kapitalentwicklung des jeweiligen Spielers über die letzten 
15 (Spiel-)Tage ausgegeben (Bild 3). 

Der Computer unterstützt Sie 


Bei <6> erhalten Sie eine Grafik der letzten 15 Aktien¬ 
kurse einer bestimmten Firma. Diese wählt man wieder mit 
den Cursortasten oder <F1 >/<F3> aus und bestätigt die 



Wahl mit <F5>. Ein Beispiel einer solchen Grafik sehen 
Sie in Bild 4. Mit einem beliebigen Tastendruck gelangt 
man wieder in das Auswahlmenü zurück. Wenn ein Spieler 
alle seine Aktivitäten beendet hat, wählt man <4> und der 
nächste Spieler kommt an die Reihe. 


Bild 4. Die simulierten Kursschwankungen einer Aktie 

Haben alle Spieler ihre Aktionen beendet, bricht ein 
neuer Börsentag an. 

Will man ein Spiel unterbrechen und zu späterer Zeit fort¬ 
setzen, kann der aktuelle Spielstand vom Auswahlmenü 
aus mit <F8> jederzeit auf Diskette gespeichert werden. 
In Tabelle 1 und 2 finden Sie noch einmal eine kurze 
Zusammenfassung aller Tastenbelegungen. 

Für Interessierte folgt nun eine kurze Dokumentation des 
Listings von »Börse 128«. Das Programm ist in Basic V7.0 
geschrieben und arbeitet im 80 Zeichen-Modus. Es teilt 
sich in ein Hauptprogramm und mehrere Unterprogramme, 
die in Tabelle 3 ausführlich beschrieben sind. 

Eine Liste aller Variablen und deren Bedeutung sehen 

Sie in Tabelle 4. Sämtliche Variablen werden im Programm¬ 
kopf aufgerufen. Die Formel für die Berechnung der neuen 
Kurse ist so gewählt, daß sich die Schwankungen der 
Aktienkurse in vernünftigen Grenzen halten. 

(Stefan Sure/Thomas Lipp) 


Taste 

Funktion 

1 

Kaufen von Aktien 

2 

Verkaufen von Aktien 

3 

Anzeige des Aktienbesitzes 

4 

Eingabe beenden, nächster Spieler 

5 

Anzeige der Kapitalentwicklung 

6 

Anzeige der Aktienkursentwicklung 

F8 

Speichern des Spielstandes 


Tabelle 1. Tasten im Auswahlmenü mit Ihren Funktionen 


Taste 

Funktion 

Fl 

nächste Firma 

F3 

letzte Firma 

F5 

Firma auswählen 

F7 

Abbruch der Aktion 


Tabelle 2. Funktionstastenbelegung bei An- und Verkauf 


Zeilennr. Unterprogramm 

930 

Einlesen von Variablen 

1230 

Anzeige des Auswahlmenüs für Spieleraktionen 

1360 

Anzeige der Tageskurse 

1550 

Anzeigen der aktuellen Nachricht 

1720 

Durchführen der Spieleraktion Kaufen 

2370 

Durchführen der Spieleraktion Verkaufen 

2920 

Anzeige des Auswahlmenüs Kaufen/Verkaufen 

3020 

Anzeige des Aktienbesitzes eines Spielers 

3210 

Anzeige des Diagramms Besitzenwicklung 

3620 

Anzeige des Diagramms Aktienentwicklung 

4050 

Auswahl einer Firma 

4380 

Anzeige wenn Firma bankrott geht 

4490 

Titelgrafik, Spielanleitung, Datas einiesen 

5410 , 

Anzeige der Abschlußtabelle 

5750 

Speichern des Spielstandes auf Diskette 

6150 

Laden des Spielstandes von Diskette 


Tabelle 3. Die Unterprogramme von »Börse 128« 


Name 

Feldgröße 

Aufgabe im Programm 

AF°/o 


Anzahl der Firmen 

AS°/o 


Anzahl der Spieler 

AT% 


Anzahl der Spieltage 

TA°/o 


Aktueller Spieltag 

F$ 


Tastaturabfrage 

Z 


Zufallszahl 

WK°/o 


Anzahl zu kaufender/verkaufender Aktien 

WF% 


Von welcher Firma kauten/verkauten 

Hl 


Schleifenzähler Hauptprogramm 

VP 


Verkaufspreis/Rückgabepreis 

MA% 


Max. Anzahl der Aktien, die man kaufen kann 

IZ°/o 


Input-Zeile 

IS% 


Input-Spalte 

IL% 


Input-Länge 

IN °/o 


Input-Type 

IPS 


Input-String 

SK 

AS% 

Spielerkapital 

SA°/o 

AS%,24 

Aktien des Spielers von einer Firma 

SNS 

AS°/o 

Spielername 

AK°/o 

24 

Aktienkurs einer Firma 

NFS 

24 

Firmenname 

FM°/o 

32 

Fernschreibermeldung 

MU% 

32 

Multiplikator für Aktienkurs 

Fl% 

32 

Firma auf die sich Meldung bezieht 

MA°/o 

24 

Aktueller Multiplikator 

AA% 

24 

Zur Verfügung stehende Aktien einer Firma 

BE 

15,AS°/o 

Kapitalentwicklung eines Spielers 

AE% 

15,24 

Aktienentwicklung einer Firma 

Ml 

15 

Sortierfeld Kapital/Kurse 

1-13 


Schleifenzähler 

C1S-C8S 

Steuerzeichen 


Tabelle 4. Die Liste aller verwendeten Variablen 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

2O0 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 


REM 

REM 

REM 


* 

PROGRAMM ! 

: BOERSE 128 


* 


* 

AUTOR 

: STEFAN SURE 


* 

* 


GARTENSTRASSE 

2 

* 

* 


5882 MEINERZHAGEN 1 

» 

* 


TEL.: 02354 - 

1499 

* 

* 


AUGUST 1986 


* 


REM 
REM # 

REM * 

REM 
REM 
REM 

REM *******»»*#*#**#*#**»#****#*##• #*####* 

REM 

REM » VAR IABLENLISTE * 

REM 

FAST 

l-O: 11-0: 12-0: 13»©: HI=©« TA*/.»©: WF*= H " 
AFX-24: ASX-0: AT*/.»©: Z=0: WAX»0l F*="" 

ZZX-Oi 1SX-0: ILX-Oi INX-O: IP*»"" 
C1*-CHR*<27): C2*»"©": C3#=CHR*(147): C4*-CHR 
*(145) 

C3*=CHR*(81) : C6#»CHR*(19>: C7*=CHR*(17): C8* 
-CHRS(157) 

D1M AEX(13,AFX) ,AK7.<AFX) ,MI (15) ,MAX(AFX) ,NF*( 
AF7.) ,AAX(AFX) ,MU*/.(32) ,FM#<32) ,FIX(32> 

GÜ3UB 449© : REM VORBEREITUNG 
GOSUB 5290 : REM DATAS EINLESEN 
REM 

REM * HAUPTPROGRAMM * 


350 REM 

360 PRINT C6#+C7#+Cl*+C2* 
570 DO 

380 IAX-TAX+1 


390 BÜSUB 1360 : REM KURSANZEIGE 
400 FOR HI = 1 TO AS7. 

410 DO 

420 GOSUB 1230 : REM AU5WAHLMENUE SPIELER 

430 GET KEY Ft 

44© IF F*="4" THEN EXIT 

45© IF F#=CHR*(138) THEN GOSUB 5750 : END 
46© IF F*< H 1" OR F#>"6" THEN 43© 

470 ON VAL(Ft) GOSUB 1720,2370,3020,100,3210,3610 
48© LOOP 

49© IF TAX<=14 THEN BEG1N 

500 BE (TA7.,HI) =SK (HI): BE (TAX+1 ,HI > »SK (HI) 

510 BEND : ELSE BEGIN 
52© FOR 1-1 TO 13 
530 BE(I,HI)-BE(1+1,HI> 

540 NEXT 

55© BE(14,HI)=SK(HI): BE(15,HI)=SK(HI) 

560 BEND 
570 NEXT 

58© CHAR ,4,19,"" 

590 PRINT Cl*+C2*+C4* 

600 COLOR 5,7 

610 PRINT TAB(4)"HIE JOERSE HAT GESCHLOSSEN." 

620 PRINT 

63© IF TAX-ATX THEN EXIT 

640 PRINT TAB(4)"JEREITEN JIE SICH AUF EINEN NEUE 
N IAG VOR." 

650 COLOR 5,6 
66© REM 

670 REM * NEUE KURSE BERECHNEN * 

680 REM 

690 FOR 1 = 1 TO AF7. 

7©0 AK7. (I) »AK7. (I) * (. 93+. 155#RND (2) +MAX (I) *. ©032) 
71© IF AKX(I)<10 THEN GOSUB 438© : REM FIRMENBANK 


ROTT 

720 MA7. (I) =MA7. (I) / (RND (1 > *1.8+.9) 

730 IF ABS(MAX(I >)< 1 THEN MA7.(I>=© 

740 NEXT 

750 Z-RND(0)•10+1 

760 IF INT(Z)>5 AND INT(Z><8 THEN GOSUB 1550 : RE 

M AKTUELLE NACHRICHT 

770 IF TA7.014 THEN BEGIN 

780 FOR 1=1 TO AFX 

790 AEX(TAX+1,1)»AKX(I) 

8©0 NEXT 

Bl© BEND : ELSE BEGIN 
820 FOR Ii-1 TO AFX 
83© FOR 1-1 TO 14 
84© AEX(I,Il)"AEX(1+1,11) 

850 NEXT 

860 AEX(15,11)-AKX(II) 

870 NEXT 
880 BEND 
890 LOOP 

900 GOSUB 5410 : REM ABSCHLUSSBILANZ 
91© PRINT C3#+CHR#(142) 

920 END 
93© REM 

940 REM # INPUT SUBROUTINE * 

95© REM 

960 OPEN 1,0,1 

97© CHAR ,ISX,IZX," CLEFT>" 

980 INPUT#1,IP* 

99© CLOSE 1 

100© IF LEN(IP#)>ILX THEN GOSUB 1190: GOTO 960 
1010 IP*=LEFT*(IP#,ILX) 

1020 IF INX-1 THEN BEGIN 
103© FOR 1-1 TO LEN(IPt) 

1040 IF ASC(MID*(IP#,I,1>)>57 OR ASC(MID*<IP*,I,1 
)><48 AND ASC(MID*(IP*,1,1))<>46 THEN GOSUB 
1190: GOTO 960 
1O50 NEXT 
1060 RETURN 
107O BEND 

108© IF INX=2 THEN BEGIN 


< 11 A> 

1090 

< 1 QB> 
<MGN> 

< IA9 > 

1100 

<EJS> 

1110 

< JQF> 

1120 

< J2C> 

1130 

<GDO> 

1140 

<GI2> 

1150 

<G03> 

1160 

<J2C> 

1170 

< JAD> 

1180 

< J IE> 

1190 

<JOF> 

1200 

<PJ3> 

1210 

<G3Q> 

122© 

<K8V> 

1230 

< DE J > 

1240 

1250 

<T3N> 

1260 

1270 

<4G8> 

<1R3> 

<AFE) 

< DFU > 

1280 

1290 

< JAD> 

130O 

< 11 A> 
<IQB> 
<9CF > 

1310 

<HM7 > 

1320 

<NVD> 
<8U4 > 

< J TA> 

1330 

<PN7> 

1340 

<EEA> 

1350 

<LKA> 

1360 

<SLS> 

1370 

<23P> 

1380 

<URN> 

1390 

<2AU> 

1400 

< J29> 

1410 

<S7K> 

<2RK> 

1420 

<FA3> 

1430 

<00V> 

<799> 

1440 

<9D0> 

1450 

<NSH> 

1460 

<ATE> 

<5CG1> 

1470 


< AVU > 
<L0D> 
<DHI > 

< TFU> 
<G2J> 

< J6D> 
<KKD> 
<GI2> 
<GQ3> 

< J2C> 
<BTO> 
<SIN> 

<HA0> 
<97 V> 
<CR7> 
<PF0> 
<NIT> 

<OGI > 

<K6K> 

<DTQ> 

<RGP> 

<H20> 

<EU5> 

<PDU> 

<3SB> 

< 525 > 
<50G> 
<1NQ> 
<D1G> 
<QNE'> 
<NEP> 
<PFM> 
<3U3> 
<916> 
<MAP> 
<NIU> 
<NOV> 

< ALC > 
<EVG> 
<OGQ> 
<H6N> 
<F5I > 
<ODH> 
<FLM> 
<LL4> 


<4LD> 

<MAG> 

<807> 

<LQU> 

<DTS> 


FOR 1-1 TO 1LX 

IF ASC(MID*(1PS,I,1>)>57 OR ASC(MID*(IP*,I,1 

) ) < 48 AND ASC (MID* (IP#, 1,1) ><M6 THEN GOSUB 

1190: GOTO 960 

NEXT 

RETURN 

BEND 

IF INX=3 THEN BEGIN 

IF LEN(IP*XILX THEN GOSUB 1190: GOTO 96© 

RETURN 

BEND 

RETURN 

FOR 1=0 TO LEN(IP#) 

CHAR ,ISX+1,IZX," " 

NEXT 

RETURN 

REM 

REM * AUSWAHLMENUE SPIELER * 

REM 

CHAR ,4,19,"" 

PRINT Cl*+C2*+C4* 

COLOR 5,9 

PRINT USING "<4SPACE>5PIELER<2SPACE>: <RVSON 
>############### <RV0FF,6SPACE)JiAF ITAL f2SPACE 
): <2SPACE,RVSON)####«### <RVOFF,2SPACE)210"I SN 
#(HI),SK(HI) 

PRINT 

PRINT TAB (4) " CRVSONJ 1 CRVOFF).JSAUFEN C9S 

PACE,RVSON) 3 CRVOFF).flKTIENBESITZ(3SPAC 

E,RVSON) 5 <RVOFF>.J£SITZENTWICKLUNG" 

PRINT 

PRINT TAB(4)"<RVSONJ 2 <RVOFF).VERKAUFEN 

C6SPACE,RVSON) 4 CRVOFF).HEITERC9SPACE,R 

VSON) 6 {RVOFF).ßKTIENENTWICKLUNG"+C4* 

COLOR 5,6 

RETURN 

REM 

REM * KURSANZEIGE * 

REM 

PRINT C6*+C7* 

COLOR 5,10 

IF TAX<ATX THEN BEGIN 

PRINT TAB(22)"JIES IST DER "TAX;C8*". IAG AN 
DER JDERSE" 

BEND : ELSE BEGIN 

PRINT TAB(21)"JIES IST DER LETZTE IAG AN DER 
JOERSE" 

BEND 

COLOR 5,6 
PRINT TAB(4)' 


TAB (4) "TT" TAB (40) "ff“ TAB (75) "ff" 

1490 FOR 1=1 TO 12 

1500 PRINT USING "<4SPACE)ff{4SPACE>############## 
## <5SPACE >##### C5SPACE >ff <4SPACE>############ 
#### <5SPACE)###tt# C4SPACE>ff”;NF#(I),AKX(I) ,NF 
*(1+12),AKX(1+12) 

1510 NEXT 

1520 PRINT TAB(4)"ff" TAB(40)"ff" TAB(75)"ff" 

153© PRINT TAB(4)"TTi 
TTH 


rrrr 

rrr 


TTf TTrTi 

TTTTi 


Ff tTt 7TTT iTTTTtT 

rTTTTTTYTFYTYTTTTTrrTTYTYTTTIrTTTTTTTf " 
1540 RETURN 
1550 REM 

1560 REM * AKTUELLE NACHRICHT AUSGEBEN * 

1570 REM 

1580 Z=INT(RND(1)*32+1) 

159© IF LEFT * < NF #(FIX(Z)),1)="*" THEN RETURN 
1600 CHAR ,4,19,"" 

1610 PRINT Cl*+C2* 

162© COLOR 5,8 

163© CHAR ,4,19,"*C2SPACE)AKTUELLE AACHRICHTENC2S 
PACE)* <2SPACE)AKTUELLE JACHRICHT(2SPACE)* C2S 
PACE)AKTUELLE HACHRICHT(2SPACE)*" 

1640 CHAR ,4,21,"*(2SPACE)"♦FM#(Z)+"<2SPACE)*",l 
1650 CHAR ,4,23,“*<2SPACE)AKTUELLE AACHRICHTENC2B 
PACE)*<2SPACE)AKTUELLE AACHRICHT<2SPACE)*<2S 
PACE)AKTUELLE AACHRICHT{2SPACE)*" 

1660 COLOR 5,6 

1670 SLEEP 3 

1680 MAX(FIX(Z))=MUX(Z) 

1690 CHAR ,4,19,"" 

1700 PRINT Cl#+C2* 

1710 RETURN 
1720 REM 

173© REM * KAUFEN * 

1740 REM 
1750 GOSUB 2920 
EN 

1760 GOSUB 4050 
1770 WFX-Il 

1780 IF F#=CHR*(137) THEN RETURN 
1790 IF AAX(WFX)—0 THEN BEGIN 
1800 CHAR ,4,21,"" 

1810 PRINT Cl*+C2* 

1B20 CHAR ,4,21,"AS STEHEN KEINE AKTIEN DER AIRMA 
<2SPACE.RVSON)"+NF*(WFX)+"<RVOFF,2SPACE)ZU H 
ERFUEGUNG." 

1830 SLEEP 3 
1840 RETURN 
1850 BEND 
1860 CHAR ,4,21,"" 

1870 PRINT Cl*+C2* 

1880 CHAR ,4,21,"SIE KAUFEN AKTIEN DER AIRMAC2SPA 
CE,RVSON)"+NF*(WFX)+"(RVOFF).{3SPACE >AKT IENK 
URS :C2SPACE,RVSON)"+STR*(AKX(WFX))+"<RVOFF> 
JA“ 

1890 MAX-INT(SK(HI)/(AKX(WFX)*1.02)) 


REM AUSWAHLMENUE KAUFEN/VERKAUF 


REM AUSWAHL FIRMA 


<S74> 


<5LD> 
<E9G> 
<8K7 > 

< DPU > 

< ES 1 > 

< 1 CA > 
<0S7> 

< TRU> 
<807 > 
<8HC> 
<D1H> 

< MAG > 
<B07 > 
<2SB> 
<340 
<3CD> 
<L2£> 
<RPQ> 
<54A) 


< 1 AT > 

<R3U> 


< D9F > 
<B1U> 


<HGH) 
<78D> 
<0I7> 
<340 
<3CD> 
<0K2> 
<0T6> 
<C84> 
<0E5> 

<UD1 > 
<331 > 

< 7HP > 

< TVU> 
C4BD> 

<MQB> 

< SSK > 
<LSS> 


<PP7> 

<EDG> 

<KTK> 

<P3M> 
<887> 
<0S3> 
<04O> 
<0C1> 
<3C1 > 
<8SM> 
<D6E> 
<LMJ > 
< 5GA > 


< J4L> 

< AP9> 


<77L> 

<58D> 

< 067 > 
<FIL> 
<92E> 
<PMJ> 
<QA7 > 
<040> 
<0C1> 

< 1 K6> 

<67V> 
<3N5> 
<69V> 
<900 > 
<8U0> 

< JBN> 
<501> 


<EV3> 
<PM7 > 
<9S7> 
<TJU> 
< BBN > 
<TQI > 


<OVM> 

<LD4> 
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C128 


SPIELE-LISTINGS 


1900 IF AAX<WFX)<MAX THEN MA7.=AAX (WF7.) 

1910 CHAR ,4,23, "HIEVIEL AKTIEN WOLLEN JLIE KAUFEN 
CMAX (RVSON)“+STR*<MAX)+" (RVOFF) 1 ?" 

•1920 IZ*/.=23: ISX=52: ILX=4: IN7.= 1: GOSUB 930: WAV. 
-VAL(IP*> 

1930 IF WAX>AA7.(WF7.) THEN BE6IN 
1940 CHAR ,4,21,"" 

1930 PRINT C1S+C2* 

I960 CHAR ,4,21,"££ STEHEN NICHT GENUG AKTIEN DER 
£.1RMA (2SPACE, RVSON 3 " +NF* (WFV. > + " (RVOFF, 2SPAC 
E)ZU VERFUEGUNG." 

1970 CHAR ,4,23,"AITTE IASTE DRUECKEN." 

1980 GET KEY Ft 
1990 RETURN 
2OO0 BEND 

2010 IF WAV.*AKV.(WFV.) #1 . 02>INT (BK (HI) ) THEN BEGIN 
2O20 CHAR ,4,21,"" 

2O30 PRINT C1S+C2* 

2040 CHAR ,4,21, "£JJER DIEBES fiEBCHAEFT HABEN SIE 
NICHT GENUG &AP ITAL.",1 

2030 CHAR , 4,23, ".BITTE IASTE DRUECKEN. (25SPACE) " 
2060 GET KEY F* 

2070 RETURN 
2080 BEND 

2O90 VP7.=WA7.*AKX < WF7.) * 1.02 
2100 CHAR ,4,19,"" 

2110 PRINT C1S+C2S+C4* 

2120 PRINT USING "<4SPACE>fl»T1ENWERTC24SPACE )l C6S 
PACE > MHM# (2SPACE > Äfl" ; AK7. (WF7.) 

2130 PRINT USING " <4SPACE>flKT IENPREIS INCL. 27. £E 
BUEHREN C4BPACE>s {5SPACE3UMMW« l2BPACE>fiA";INT 
<AK7.(WF7.) #1.02) 

2140 PRINT USING "<4SPACE>fiESAMTPREIS FUER (2 
SPACE>flKTIEN(5SPACE): C3SPACE)MM#WtMt#(2SPACE) 
an" i WAV., vpx 

2150 PRINT USING " C4SPACE).VERBLEIBENDES JWPITALU 
3SPACE3:(3SPACE/«»»##«#«(2SPACE)AA";INT(SK(HI 
> > -VPX 

2160 CHAR ,4,23, "HOLLEN S.IE DAS fiESCHAEFT ABSCHLI 
ESSEN 7 CJ/NJ-,1 
2170 DO 

2180 GET KEY F* 

2190 IF F*="J" THEN BEGIN 

2200 SA7. (HI, WF7.) =SA7. (HI, WF7.) +WA7. 

2210 SK(HI)=INT(SK(HI)-VPX) 

2220 MAX (WF7.) »MAX (WF7.) +2 
2230 AA7. (WF7.) =AA7. (WF7.) -WAV. 

2240 IF TA7.< = 14 THEN BE (TA7.,HI > =SK (HI): RETURN 
2250 BE(15,HI)=SK(HI) 

2260 RETURN 
2270 BEND 

2280 IF F$="N" THEN BEGIN 
2290 CHAR ,4,19,"" 

230O PRINT C1S+C2S+C4* 

2310 PRINT TAB(4)"SIE SANK BERECHNET IHNEN EINE S 
EARBEITUNGSGEBUEHR VON " ; I NT (WAV.*AK7. (WF7.) *. O 
15);" Hfl. " 

2320 SK (HI) = I NT (SK (HI) - WAV.* AK7. (WF 7. > *. 015 > 

2330 SLEEP 3 
2340 RETURN 
2350 BEND 
2360 LOOP 
2370 REM 

2380 REM * VERKAUFEN « 

2390 REM 

24O0 GOSUB 2920 s REM AUSWAHLMENUE KAUFEN/VERKAUF 
EN 

2410 GOSUB 4O80 s REM AUSWAHL FIRMA 
2420 IF F*=CHR*(137) THEN RETURN 
2430 WF7.= I1 

2440 IF SA7.(HI ,WFX)»0 THEN BEGIN 
2450 CHAR ,4,21,"" 

24A*» PRINT C1 S+C2* 

2470 CHAR ,4,21,"AIE BESITZEN KEINE AKTIEN DER £1 
RMA (RVSON > " +NF* (WF7.) + " (RVOFF >. " 

2480 SLEEP 3 
2490 RETURN 
25O0 BEND 
2510 CHAR ,4,21,"" 

2520 PRINT Clf+C2* 

2530 CHAR ,4,21,"SIE VERKAUFEN AKTIEN DER LIRMA ( 
RVSON) "*NFt (WF7.) + " (RVOFF)"*" . SIE BESITZEN < 
RVSON)"+STR*<SAX<HI ,WF7.) ) + " (RVOFF) AKTIEN. " 
2540 CHAR ,4,23,"HIEVIEL AKTIEN WOLLEN &IE VERKAU 
FEN ?" 

2550 lZX=23i 1SX-42» 1LX-4: INX-1« GOSUB 930: WAV. 
=VAL(IP*> 

2560 IF SA7.(HI,WF7.KWA7. THEN BEGIN 
2570 CHAR ,4,21,"" 

2580 PRINT C1S+C2S 

2590 CHAR ,4,21,"DJER DIESES ßESCHAEFT HABEN SIE 
NICHT GENUG AKTIEN.",1 

2600 CHAR , 4,23, ”211 TTE IASTE DRUECKEN. (25SPACE3 " 
2610 GET KEY F* 

2620 RETURN 
2630 BEND 

2640 VPX=WAX*AK7. (WF7.) *. 98 
2650 CHAR ,4,19,"" 

2660 PRINT C1S+C2S+C4* 

2670 PRINT USING "(4SPACE3AKTIENWERT(78SPACE3:(6S 
PACE ) #### <2SPACE > AA" ; AK7. (WF7.) 

2680 PRINT USING "C4SPACE)ÄJECKNAHMEPREIS ABZUEGL 
. 27. SEBUEHREN : <5SPACE>#####{2SPACE}£fl"; INT 
(AK 7. (WFX) *. 98) 

2690 PRINT USING " (4SPACE).ßUECKNAHMEPREIS FUER W# 
## (2SPACE > AKTIEN(5SPACE): C3SPACE> # W# tt # # W (2SP 
ACE)£A";WA7.,VP7. 


<3PS> 

<5R9> 

<JCP> 

<BBN> 

<TQI > 


<S1H> 
<NCC> 
< 0OA > 
<P27> 
<PVE> 
<AA7> 
<B7M> 
<TMJ> 

<9EK> 
<9 PO 
<40A> 
<027 > 
<PRE> 
<0E8> 
<56E> 
<OPM> 

<N65> 


<GGN> 


<3LL> 


< I6V> 

< 1Q4 > 
<TFN> 
<70A> 
<R4C> 
<PQS> 
<4IK> 
<708> 
<0B3> 
<VFM> 
<FFV> 
<B87> 
<LUU> 

<P2E> 
<PHJ > 


<SKV> 
<FPP > 
<027> 
<887> 
<LUU> 
<G69> 
<0C1> 
<3KE> 
<3SF> 

<97V> 
<B7V> 
<900;* 
<6LV> 
<K5G> 
<N3M> 
<9IJ > 

<N79> 
<887 > 
<0E7 > 
<HQE> 
<F3M> 
<HI J > 


<TB2> 

<PE3> 

<6N4> 

<B7K> 
v N3M > 
<PMJ > 

<PKG> 
<0PC> 
<60A> 
<8G7> 
<S0U> 
<G8L > 
<92E> 
<OHV> 


LI 


2700 CHAR ,4,23,"HOLLEN §.IE DIE AKTIEN VERKAUFEN 
? CJ/N3",1 
2710 DO 

2720 GET KEY F* 

2730 IF F$="J" THEN BEGIN 

2740 SA7.(HI ,WFX)=SA7.(HI,WF7.)-WA7. 

2750 SK(HI)=INT (SK (HI) +VPX) 

2760 MA7. (WF7.) =MAX (WF7.) -2 
2770 AA7. (WF7.) =AAV. (WF7.) +WA7. 

2780 IF TA7.<= 14 THEN BE (TA7..HI) »SK(HI) j RETURN 
2790 BE(1S,HI)“SK(HI) 

2800 RETURN 
2810 BEND 

2820 IF F*»"N" THEN BEGIN 
2830 CHAR ,4,19,"" 

2840 PRINT Cl*+C2*+C4* 

2850 PRINT TAB(4) "JlIE SANK BERECHNET .1XNEN EINE A 
EARBEITUNGSGEBUEHR VON " 5 INT (WA7.*AK7. (WF7.) *. 0 
12)|" Afl." 

2860 SK(HI)=INT (SK (HI) -WAX*AKX(WFX)•.012) 

2870 SLEEP 3 
2880 RETURN 
2890 BEND 
29O0 LOOP 
2910 RETURN 
2920 REM 

2930 REM * AUSWAHLMENUE KAUFEN/VERKAUFEN 
2940 REM 

2950 CHAR ,4,21,"" 

2960 PRINT C1S+C2S 
2970 COLOR 5,9 

2980 CHAR ,4,21," (RVSON) Al (RVOFF).VßRWAERTS 

(15SPACE,RVSON) £5 (RVOFF).AUSWAHL" 

2990 CHAR ,4,23,"(RVSON) A3 (RVOFF).ÄUECKWAER 

TS" 

2992 IF F*=" 6 " THEN 3000 

2994 CHAR ,24,23,"<13SPACE,RVSON) A7 (RVOFF). 

ABBRUCH" 

30O0 COLOR 5,6 
3010 RETURN 
3020 REM 

303O REM * AKTIENBESITZ * 

3040 REM 

3050 PRINT C6S+C7S+C1S+C2* 

3060 PRINT TAB(20)"AKTIENBESITZ DES SPIELERS (RVS 
ON>"+SN*(HI>+"(RVOFF)" 

308O PRINT TAB (4) "t?" TAB (40) "5" TAB (75) "Ff" 

3090 FÜR 1=1 TO 12 

Z 100 PRINT USING "(4SPACE>£(4SPACE>############## 
•i »(5SPACE )####** (5SPACE}ff<4SPACE)#######tt###N 
«###(5SPACE)#####(4SPACE>H";NFS(I),SAX(HI,I) 
,NF$(1+12),SAX(HI,1+12) 

3110 NEXT 

3120 PRINT TAB(4>"E" TAB (40) "T?" TAB(75)"rT 
3130 PRINT TAB(4) "TTTtTTTTTTTTTTTTTTTTTTTTTtTTTtT 
T'T'T'T'T'iT't'i'T‘iT'T'rri'T'TT"iT*T‘i'iTnTT7TTrnTTTfTT" 
3140 PRINT TAB(4)"J^PITAL : (RVSON)";INT(SK(HI))j 
"(RVOFF) AQ" 

3150 PRINT 

3160 PRINT TAB(4)"AITTE DRUECKEN SIE EINE IASTE." 

3170 GET KEY Ft 

3180 PRINT C6S+C7S+C1S+C2* 

3190 GOSUB 1360 : REM KURSANZEIGE 
3200 RETURN 
3210 REM 

3220 REM » BESITZENTWICKLING * 

3230 REM 

3240 PRINT C6S+C7S+C1S+C2* 

3250 PRINT TAB ( 6 ) "J5APITALENTWICKLUNG DES SPIELERS 
(RVSON)" + BN*(HI>+"(RVOFF) DER LETZTEN 15 IA 
□E“ _ 

11 

3270 FOR 1=1 TO 19 

3280 PRINT TAB(4)"^" TAB(75)"H" 

3290 NEXT 

3300 PRINT TAB(4) "TTTTTTTTTTTTTITTTTTTTTTfTrrTTTr 
TTnTrri^i^nTrr^fTnwrriTTTfrrr^ 

3310 FOR 1-1 TO 15 
3320 MI(I)»BE(I,HI) 

3330 NEXT 

.3340 FOR 11*1 TO 14 

3350 FOR 1*1 TO 14 

3360 IF MI(I)>MI(1+1) THEN BEGIN 

3370 I2=MI(I) 

3380 MI (I)-MI (I-M) 

3390 MI<I+l)*I2 
3400 BEND 
3410 NEXT 
3420 NEXT 

3430 13*(MI(15)-MI(1)>/60 
3440 CHAR ,5,21,"" 

3450 PRINT USING "»«IMMMMr * STR» (MI ( 1 )) 

3460 CHAR ,68,21 

3470 PRINT USING " >#♦»♦»M*M»" ; STR* (MI (15) ) 

34S0 COLOR 5,15 
3490 FOR 11=1 TO 15 


<TF2> 

< NEV> 

< 68A > 
<O40> 
<3Q4> 
<8F4> 
<QJU) 
<M5R> 
<F9M> 
<EVP> 
<9C7> 

< TNU> 
<LLU> 
<1EF> 

< T11 > 


<L9R> 

<68U> 

<P67> 

<9S7> 

<TJU> 

<0F9> 

< PA7> 

< 44G> 
C4CH> 

< 5K.M > 
<VFN> 
<1UI> 

< 0CA> 

v BUQ > 

<20V> 

<R11> 

<JT9> 

<50D> 

<D67> 

< 1K6 > 

< 1S7> 
<040> 
<E8V> 

< 2UN > 

<MQB> 

<S9K> 

<LSS> 


<8DN> 

<EDG> 

<KTK> 

<P3M> 

< SDH > 
<JAU> 
<K37> 
<50A> 
<IFF> 

< 067> 
<8C7 > 
<0C1> 
<0K2> 

< 0S3> 
<0AF> 


<6KE> 

<UVB> 

< UGP > 
<6DR> 

< MAG > 


< 14M> 

<R0V> 
<DHJ > 
<MEG> 
<52P> 
<V4V> 
CGH2) 
C04H> 
<TJL> 
<K8K> 
<9PE> 
<68B> 
<A90> 
<COA> 

< B2M > 
<7P0> 
<MND> 
<U1N> 
<CS6> 


<TOT> 

< 3 BP > 

<6MF> 


<36P) 

3500 IF BE(I1,HI)>0 THEN BEGIN <TG5> 

3510 FOR 1=6 TO 5+INT((BE(11,HI)-MI(1))/13) <GDN> 

3520 CHAR ,1,4+11,"T" <N7M> 

Listing 1. »Börse 128«, bitte mit dem Checksummer 128 
(Seite 158) eingeben 
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SPIELE-LISTINGS 


C128 


3530 

NEXT 



<68G> 

4530 

PRINT CHRS(14)+C3*j 

<7FR> 

3540 

BEND 



<HQE> 

4540 

PRINT TAB(30)"(RVSONJH OERS EC3SPACE>I 2 


3550 

NEXT 



<UBG> 


8 CRVOFF)" 

<J8K> 

3560 

COLQR 5,6 



<60D> 

4550 

COLOR 5,6 

< 10D> 

3570 

GET KEY Ft 



<70A> 

4560 

CHAR ,0,4,'"’ 

<0IV> 

3580 

PRINT C6*»C7**C1*+C2* 



<IBF> 

4570 



3590 

QQSUB 1360 



<NND > 



< 13T> 

3600 

RETURN 



<8S7 > 

4580 

PRINT TAB (16) "U" TAB(62)”B" 

<VA8> 

3610 

REM 



<2C9> 

4590 

PRINT TAB(16)"UI2SPACE1ÜERZLICH WILLKOMMEN A 


3620 

REM »AKTIENENTWICKLUNG * 



<2KA> 


N DER 'SOERSE 128’ 1 C3SPACE>«" 

<T2D> 

3630 

REM 



<2SB> 

4600 

PRINT TAB(16)"5" TAB(62)"H“ 

<OAB > 

3640 

CHAR ,4,19,"HON WELCHER £IRMA MOECHTEN 

SIE D 


4610 

PRINT TAB(16)"BC3SPACE>SIESES SPIEL IST EIN 



IE BILANZEN DER LETZTEN 15 JAGE 

SEHEN? 


<P4C> 


HIRTSCHAFTSSPIEL.[4SPACES«" 

<1PQ> 

3650 

GQSUB 2920 



<LNH> 

4620 

PRINT TAB(16)“®" TAB(62I"B" 

<PA8> 

3660 

GOSUB 4050 



< NF S > 

4630 

PRINT TAB(16)"5 SESCHRIEBEN IM AUGUST 1986 V 


3670 

WFX-Il 



<6TV> 


ON STEFAN SURE. H" 

<HLC> 

3680 

PRINT C6*»C7*»C1*4C2* 



<ABF> 

4640 

PRINT TAB(!6)"0“ TAB(62)"B" 

<0A8> 

3690 

PRINT TAB(B)"AKTIENENTWICKLUNG 

DER SIRMA tRV 


4650 

PRINT TAB(16)'"S(2SPACE)HUENSCHEN SIE EINE SP 



SON)"«NF*(WFX)+"<RVQFF) DER LETZTEN 15 

TAGE" 

<H20> 


IELANLE1TUNG 7 IJ/N 1C2SPACE>H" 

<75D> 

370O 



4660 

PRINT TAB(16)"B" TAB(62)"ff" 

<RAB> 





<UJB> 

4670 

PRINT TAB (16) "T'f 1 T .'.T ftTTTtTTOTmTlTCnTi' 


3710 

FÜR 1-1 TD 19 



<1GP> 


TnviTiTTriTtrnT" 

<H01 > 

3720 

PRINT TAB(4>“'S“ TAB(75)"H" 



<6DR> 

4680 

DO 

<4CJ > 

3730 

NEXT 



< MAG > 

4690 

GET KEY F* 

<20A> 

3740 

PRINT TAB (4) " TTTTTTSTlTTTTTFlTF 


1 1 I I I 1 


4700 

IF F*=“J" THEN BEGIN 

<LLM> 


Timmn nt mm IT mm ttttthttt t ty 

1 T I 

<10M> 

4710 

PRINT C6*+C7*»C1*4C2* 

<M3V> 

3750 

FOR 1=1 TO 15 



<N0V> 

4720 

CHAR ,0,3,"" 

<7I3> 

3760 

MI <I>-AEX<I,WFX> 



<MM7 > 

4730 



3770 

NEXT 



< 68G > 



<SVK > 

3780 

FÜR 11=1 TO 14 



<D2P> 

4740 

PRINT TAB (12) " TAB(66)"B" 

< JF0> 

3790 

FOR 1=1 TO 14 



<R4V> 

4750 

PRINT TAB( 12) "I? AN DIESEM HIRTSCHAFTSSPIEL K 


3800 

IF MI(I)>MI(1+1) THEN BEBIN 



<KH2> 


OENNEN BIS ZU 9 SPIELER W" 

<0EJ > 

3810 

I2=MI(I) 



<44H> 

4760 

PRINT TAB(12)"« TEILNEHMEN. SIE ANZAHL DER S 


3820 

MI(I> =MI<1+11 



<TFM> 


PIELTAGE KANN MAXIMAL(3SPACEIH" 

<Q5G> 

3830 

MI (I+D-I2 



< 8BK > 

4770 

PRINT TAB (12) "B 9999 JAGE BETRAGEN. (33SPACE1 


3840 

BEND 



<PNE> 


H" 

<PSG> 

3850 

NEXT 



<M6G> 

4780 

PRINT TAB(12)"B SURCH GESCHICKTES KAUFEN UND 


3860 

NEXT 



<Q70> 


HERKAUFEN MUSS VERSUCHT«" 

<BK5> 

3870 

13=(MI<15)-MI(1))/68 



< SK A> 

4790 

PRINT TAB(12)"B WERDEN, DAS KAPITAL ZU VERME 


3880 

CHAR ,5,21,"" 



<RAN> 


HREN.C19SPACE)ff" 

<77G> 

3890 

PRINT USING "#*#*";STRt(MI(1)) 



<GTT> 

480O 

PRINT TAB (12) "Zf SIE KURSE AN DER SOERSE AEND 


390O 

CHAR ,70,21,"" 



<61E> 


ERN SICH TAEGLICH. ^ON<2SPACE)ff" 

<EA9> 

3910 

PRINI USING ">4*»";STR*(MI<15)1 



<TQB> 

4810 

PRINT TAB(12)"BISHF.SPACE>2EIT ZU SEIT WERDE 


3920 

COLOR 5,15 



<4S6> 


N HACHRICHTEN ANGEZEIGT, DIE<6SPACE} «'* 

<GON> 

3930 

FOR 11=1 TO 15 



<32P> 

4820 

PRINT TAB(12)"B WICHTIGE HINWEISE AUF DIE KU 


3940 

IF AEX(I1,WFX) >0 THEN BEGIN 



<T4D> 


RSENTWICKLUNG GEBEN.(4SPACE}«" 

<SB1> 

3950 

1-UR 1=6 TO 5+INT< <AE7.(I1 ,WF7.)-MI (1) )/I3> 

<RU5> 

4830 

PRINT TAB(12)"B ADECHTEN SIE DAS SPIEL UNTER 


3960 

CHAR ,I,4-»I1,"T" 



< KNO > 


BRECHEN, SO KANN DER{4SPACE)W" 

<Q68> 

3970 

NEXT 



<M6G> 

4840 

PRINT TAB(12)"B SPIELSTAND DURCH SRUECKEN DE 


3980 

BEND 



< 1GE> 


R >£8< JAGTE AUF SIS-C3SPACE>K” 

<044> 

3990 

NEXT 



:eig> 

4850 PRiWT rAB(12)"E KETTE GESPEICHERT WERDEN.C27 


4000 

COLQR 5,6 



< 20D > 


SPACE>H" 

<D00> 

4010 

GET KEY Ft 



<30A> 

4860 

PRINT TAB(12)"B" TAB(66)"B" 

<TF8' 

4020 

PRINT C6t+C7t+Clt+C2* 



<25F> 

4870 

PRINT TAB(12>"B SIEL SLUECK BEIM SPEKULIEREN 


4030 

GOSUB 1360 



<PND> 


AN DER ’SOERSE 128'■[3SPACEJ«" 

< IGC > 

4040 

RETURN 



<9K7 > 

4880 

PRINT TAB(12)"B" TAB(66)"«" 

<QF8> 

4050 

REM 



<7CT> 

4890 



4060 

REM « FIRMEN AUSWAHL » 



<7KU> 


TTrrTrfTTTTTTTTTfTTTTrTTT" 

<3BM> 

4070 

REM 



<7SV> 

4900 

GET KEY F* 

<70A> 

4080 

11=1: 12=9: 13=0 



<FH6> 

4910 

EXIT N 

<VJN> 

4090 

CHAR ,I2,5,NF*C1>,1 



<UIR> 

4920 

BEND 

< PRE > 

4100 

DO UNTIL F$=CHR$(135) OR F*=CHR*<137> 


<08U> 

4930 

IF F*="N" THEN EXIT 

<HBH> 

4110 

GET KEY Ft 



<3GA> 

4940 

LOOP 

<819> 

4120 

IF F*=C4* THEN BEGIN 




4950 

PRINT C6*+C7*+Cl»+C2#+C7* 

<4NT > 





<DDB > 

4960 

PRINT TAB(14)"HORCHTEN SIE EIN ALTES SPIEL W 


4130 

11=11-1 



<RDB> 


EITERSPIELEN 7 CJ/NI" 

<UBD> 

4140 

IF 11< 1 THEN BEGIN 



<LJ4 > 

4970 

DO 

<LEN> 

4150 

CHAR ,I2,I1+5,NF*<I1+I3+1> 



< 104 > 

4980 

GET Ft 

< 0SG > 

4160 

I 1 = 12 



< JQU> 

4990 

IF F*="J" THEN GOSUB 6150: RETURN 

<UQ2> 

4170 

IF 12=9 THEN 12=45: 13=12. ELSE 

12=9: 

3=0 

<A01> 

500C 

IF F*="N" THEN GOSUB 5020: RETURN 

<JG3> 

4180 

BEND : ELSE BEGIN 



< I BN > 

5010 

LOOP 

<48P> 

4190 

CHAR ,12,11+5,NF*(I1+I3+1) 



> 

3020 

REM 

<7KU> 

4200 

BEND 



< 9HE > 

5030 

REM * DATEN FUER NEUES SPIEL « 

<7SV> 

4210 

CHAR ,I2,Ii+4,NF*(Il+I3),l 



< 18H> 

5040 

REM 

<640 > 

4220 

BEND 



<1GE> 

5050 

PRINT C6*+C7*+C1*»C2*+C7* 

<17T> 

4230 

IF F*=C7t THEN BEGIN 



<FD5> 

5060 

PRINT TABII7)"UNZAHL DER SPIELER [MAX 9 SPIE 


4240 

11=1141 



<0PD> 


LER J 

<MI6> 

4250 

IF I1>12 THEN BEGIN 



<992> 

5070 

PRINT 

<JIU> 

4260 

CHAR ,12,1143,NP4(11413-1) 



<GGB> 

5080 

PRINT TABI17)"ANZAHL SPIELTAGE CMAX 9999 JAG 


4270 

11 = 1 



<MOJ> 


E1 «SPACE ) : " 

<FTH> 

42B0 

IF 12=9 THEN 12=45: 13=12: ELSE 

12=9: 13=0 

< 0Q9 > 

5090 

IZ7.=3: 1S7.=54: ILX-1. INX-2. GOSUB 930: ASX= 


4290 

BEND : ELSE BEBIN 



<27M> 


VAL IIP») 

<6F5> 

4300 

CHAR ,12,1143,NF* <114I3-I) 



< 0Q8 > 

5100 

IZX-S: ISX=54: ILX.=4: INX=1. GOSUB 930. ATX= 


4310 

BEND 



<5GU> 


VAL(IPt) 

<607> 

4320 

CHAR ,12,1144,NF*(11413),i 



<10H> 

5110 

DIM BE(15,ASX),SK(ASX),SAX(A8X,AFX>,SN*(ASX> 

<HHP> 

4330 

BEND 



< DHU > 

5120 

IZX=7: ISX=54: ILX-15: 1NX=0 

<LH7> 

4340 

LOOP 



<0D9> 

3130 

FOR 11=1 TO ASX 

<357> 

4350 

CHAR V I2 V I1+4,NF*(U + X3) 



<RP9> 

5140 

CHAR ,17,IZX,"UAME SPIELER "4CHR*(I1»48>»"<2 


436© 

I1=11+13 



< DPO > 


1 SPACE): "-fClt+C5* 

< IQ1 > 

4370 

RETURN 



<PU7 > 

5150 

GOSUB 930: SN*(Il)=IPt 

<2C2> 

4380 

REM 



<5k:m> 

3160 

NEXT 

< I20> 

4390 

REM « FIRMENBANKROTT » 



< 5SN > 

5170 

REM 

<6CP> 

4400 

REM 



<44G> 

5180 

REM » ANFANGSKURSE FESTLEGEN » 

<5KM> 

4410 

CHAR ,4,23,"ÜIE £IRMA CRVSQN)"»NF*(1) * 

IRVOF 


5190 

REM 

<5SN> 


FJ HAT SANKROTT GEMACHT"' 



<3U5> 

5200 

FOR 1=1 TO AFX 

< 09U > 

4420 

SLEEP 2 



<987> 

5210 

AKX(I)“100» <.95+.15»RND(0)) 

<6TD> 

4430 




<C2R> 

5220 

AEX (1,1) =AKX ( X ) 

<07H> 

4440 

AKX <I)=0 



<R73> 

5230 

NEXT 

<U3B> 

4450 

FOR 11 = 1 TO AS7. 



<317> 

5240 

FOR 1=1 TO ASX 

<D1B> 

4460 

SAX(H,H=0 



<GK7> 

5250 

SK(I)=25000 

<F50> 

4470 

NEXT 



<E5G> 

5260 

BE(1,1)=SK(I) 

<FBP> 

4480 

RETURN 



<9S7> 

5270 

NEXT 

<E1G> 

4490 

REM 



<6CP > 

5200 

RETURN 

<9C7> 

4500 

REM * VORBEREITUNG * 



<4KI > 

5290 

REM 

<4CH> 

4510 

REM 



<4SJ > 

530O 

REM . DATAZEILEN EINLESEN » 

<6K0> 

4520 

COLOR 6,1: COLOR 5,8 



<14N> 

5310 

REM 

<6SR> 
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5320 

FÜR I-l TD AF7. 



<09U> 

6290 

INPUTtt1,ASX 

<3SF> 

5330 

READ NF*<I> 



<1CF> 

6300 

DIM BE(15,ASX >,SK(ASX),SAX(ASX,AFX) ,SN*(ASX) 

<3HP> 

5340 

AAX ( I) =2000 



< VAS > 

6310 

INPUTtt1,ATX 

<M48> 

5350 

NEXT 



<E1B> 

6320 

INPUTttl.TA-/. 

< VTN> 

5360 

FOR 1=1 TD 32 



<4CU> 

6330 

FOR 11 = 1 TD AS7. 

<317> 

5370 

READ FM* (I) , FIX (I) , MU7. (I) 



<04L> 

6340 

INF'UTttl ,SK (11) 

< N8S > 

5380 

NEXT 



<O70> 

6350 

FOR 1=1 TO AF7. 

<M9U> 

5390 

KEY 1,C7*: KEY 3.C44: KEY 5.CHRM135): KEY 

7 


6360 

INPUTtt1,SAX(11,1) 

< VFJ > 


,CHR*(137): KEY 8,CHR*<138> 



< 071 > 

6370 

NEXT 

<M6G> 

5-100 

RETURN 



<947> 

6380 

INPUTtt1,SN*(11) 

<TBM> 

5410 

REM 



<5CL> 

6390 

NEXT 

<E1G> 

5-120 

REM » ABSCHLUSSBILANZ • 



<5KM> 

6400 

FOR 1=1 TO AFX 

< 09U > 

5430 

REM 



<5SN> 

6410 

INPUTtt1,AKX(I> 

<C1G> 

5440 

PRINT C6*+C7*+Cl*+C2* 



<‘A0F > 

6420 

INPUTtt1,AAX<I) 

<870> 

5450 

COLOR 5,4 



< 0OC > 

6430 

NEXT 

<U3Q> 

5460 

PRINT TAB(32)"ABSCHLUSSBILANZ" 



<jas:^ 

6440 

FOR 11=1 TO 15 

<H2P> 

5470 

FOR 11 = 1 TO AS7. 



<R17> 

6450 

FOR 1 = 1 TO AS7. 

<F1B> 

5480 

FÜR 1=1 TO AFX 



<B9U> 

6460 

INPUTtt1,BE(I1,I) 

< AF'A > 

5490 

1F SAX(11,1)>0 THEN BEO IN 



<E3F> 

6470 

NEXT 

<E1B> 

55O0 

SK (11) =SK (11) +SA7. (11,1) »AK - /. (I) *. 90 



<C95> 

64B0 

NEXT 

<IÜ0> 

5510 

SA7. (11,1) =0 



<1K7> 

6490 

FOR 11=1 TO 15 

<B2 P> 

5526 

BEND 



<9LE> 

6500 

FOR 1 = 1 TO AF7. 

<49U> 

5530 

NEXT 



/*4G> 

6510 

INPUTM 1 , AE7. (11,1) 

<0V5> 

5540 

NEXT 



<B70> 

6520 

NEXT 

<I20> 

5550 

IF ASX>1 THEN BEGIN 



<JDB) 

65.30 

NEXT 

<M2G> 

5560 

FOR 11-1 TO ASX-1 



<H50> 

6540 

DCLOSE 

<9S7? 

5570 

FOR I-l TO AS7.-1 



<H4D> 

6560 

RETURN 

<9K7> 

5580 

IF SK(I)<SK(I +1> THEN BEGIN 



<ROK> 

6570 

REM 

<7CT> 

5590 

I2-SK(I)s F*-SN*<I> 



<P2G> 

6580 

REM » DATAS FIRMENNAMEN « 

<4KI > 

56O0 

SK(I)=BK(I+1): SN*(I)=SN*(I+1> 



<GI0> 

6590 

REM 

<4SJ > 

5610 

SK <I+1)=I2: SN*(I+1>=F* 



<OLJ> 

6600 

DATA "APPLE","HCORN EOMPUTER“,"ATARI","SROTH 


5620 

BEND 



<HME> 


ER" 

<7V0> 

5630 

NEXT 



<U7B> 

6610 

DATA "£ASIO","AITIZEN","SOMMODORE",“filBITAL 


5640 

NEXT 



<240> 


.RESEARCH" 

<IK1 > 

5650 

BEND 



<DLU> 

6620 

DATA "EPSON","HEWLETT HACKARD","1.S.A. “,"Htfi 


5660 




","ÄIXDORF" 

<KH1> 


00000000000000' 



<KUG> 

6630 

DATA "SLIVETTI",“2RIC","SSBORNE","AANASONOIC 


5670 

PRINT TAB(lB)"f" TAB<61)"W" 



<FMH> 


", ".PHILIPS" 

<UMP> 

5680 

FOR 1 = 1 TO AS7. 



<51B> 

6640 

DATA “SANYO","SCHNEIDER","SHARP","SINCLAIR”, 


5690 

PRINT USING " <18SPACE>(?(2SPACE)tt. <3SPACE>tttttt 



"SPECTRAVIDEO" 

<KFN> 


ItttBItttlttMtlttMtlt \7SPACE ) ttlttltHttttt I2SPACE} XHC2SPACE 


6650 

DATA "JEXAS INSTRUMENTS" 

<7GL> 


>H"51,SN*(I),SK(I) 



<BVR> 

6660 

REM 

<6KQ> 

5700 

PRINT TAB (18) “7?" TAB(61)"W" 



<D6H> 

6670 

REM * DATAS FERNSCHREIBERMELDUNGEN * 

<6SR> 

5710 

NEXT 



<U7G> 

660O 

DATA "APPLE ENTWICKELT NEUEN SUPERCOMPUTER", 


5720 

PRINT T AB <18)"TITITTITTITITTITriII 

TTTTTTTTrT 



1,15 

<30F> 


n tt TiT’rrrriTf" 



<69D> 

6690 

DATA "SIE FIRMAt2SPACE>flRC0N £OMPUTERT2SPACE 


5730 

GET KEY F* 



<IOA> 


>VERBUCHT UMSATZVERLUSTE",2,-10 

<G5F> 

5740 

RETURN 



<907> 

6700 

DATA "HEUES HANAGEMENT BEI HTARI",3,-20 

<6SH> 

5750 

REM 



<5SN> 

6710 

DATA “.PREISSENKUNGEN BEI HROTHER-DRUCKERN" , 4 


5760 

REM « SPIELSTAND SPEICHERN » 



<54K> 


,30 

<2KD> 

5770 

REM 



• SCL - 

6720. u, TA "SER NEUE TASCHENRECHNER VON EASIO KOMM 


5780 

PRINT C6*+C7*+Cl*+C2*+C7* 



?1VT> 


1 AUF DEN flARKT",5,20 

< UOM > 

5790 

PRINT TAB(19)"SER AKTUELLE SPIELSTAND WIRD 

G 


6730 

DATA "CITIZEN KONNTE DEN ABSATZ IN fiEUTSCHLA 



ESPEICHERT !" 



< JLK> 


ND STEIGERN",6,25 

<TOD> 

5800 

DO 



<KEJ> 

6740 

DATA "AEUER JRAUMCOMPUTER VON CflMMODORE WURD 


5810 

DOPEN tt 1 , "BOERSE. DAT " , W 



<D5U> 


E VÜRGESTELLT",7,30 

<8AC> 

5820 

IF DS=0 THEN EXIT 



<QQ3> 

6750 

DATA "DIGITAL RESEARCH ENTWICKELT NEUES Ä!TR 


5830 

IF DS=63 THEN DCLOSE : DOPEN tt 1©BOERSE.DAT 



IEBSSYSTEM",8,25 

<L3D> 


",W: EXIT 



<SC2> 

6760 

DATA "AEUER IPS0N-5RUCKER WIRD SEHR GUT VERK 


5840 

DCLOSE 



<8G7> 


AUFT",9,30 

<003 > 

5B50 

CHAR , 19,5, "JilSKETTENFEHLER - SITTE FEHLER 

A 


6770 

DATA "SCHLECHTE HERKAUFSBILANZEN BEI a.£. ",1 



BSTELLEN ." 



<0V9> 


0,-20 

<FK9> 

5860 

GET KEY F* 



<7ÜA> 

6780 

DATA "i.S.fl. CQMUTER WERDEN WIEDER MEHR VERK 


5870 

LOOP 



<S3P> 


AUFT",11,10 

<6E3> 

5880 

PRINTttl ,AS7. 



<8QF> 

6790 

DATA "HDTE .ZAHLEN BEI HEE", 12,-20 

<A7T> 

5890 

PRINTttl,ATX 



<B2B> 

6800 

DATA "SCHLECHTER ABSATZ BEI HIXDORF-COMPUTER 


5900 

PRINTttl,TAX 



< IRN> 


N" , 13,-25 

<05P> 

5910 

FOR 11 = 1 TO AS7. 



<BD6> 

6810 

DATA "OLIVETTI SENKT PREISE FUER ALLE £OMF‘UT 


5920 

PRINTttl ,SK(11) 



<UCQ> 


ER",14,30 

< I J5> 

5930 

FOR 1 = 1 TO AF7. 



< ADU> 

6820 

DATA "ARIC ENTWICKELT NEUEN COMPUTER FUER DE 


5940 

PRINTttl, SA7.(I1,I) 



<K6E> 


N H0ME-SEREICH",I5,15 

<FA6> 

5950 

NFXT 



< UDO > 


DATA "ÜEUER JIGHaRNET Ü1MIITFO l'ANN RIHH N I CH T 


5960 

PRINTttl , SN* < I 1 > 



<E3V> 


DURCHSETZEN",16,-20 

<E4V> 

5970 

NEXT 



<MAG> 

6040 

DATA "HEUE VERKAUFSPALETTE VON £ANASONIC WUR 


5980 

FOR I-l TO AFX 



<SDU> 


DE VORGESTELLT " ,17,10 

<EOD> 

5990 

PRINTttl,AKX(I) 



<SSM> 

6850 

DATA ".BILLIGER LASERDRUCKER VON PHILIPS KUMM 


6000 

PRINTttl,AAX(I) 



<0B3> 


T AUF DEN flARKT",lB,20 

<07D> 

6010 

NEXT 



<M6G> 

6860 

DATA "£EEISE FUER SANYO-ßONITORE WERDEN UM 1 


6O20 

FOR 11=1 TO IS 



<D2P> 


57. GESENKT", 19, 15 

<3NE> 

603O 

FOR 1 = 1 TO AS7. 



<J1B> 

6870 

DATA "HERKAUFSBILANZEN BEI SCHNEIDER WEITER 


6040 

PRINTttl,BE<I1,I) 



<BD4> 


GUT",20,20 

<VOH> 

6050 

NEXT 



<640> 

6880 

DATA "SHARP KOMMT MIT NEUEN üAND-/lELD-£f)MPUT 


6060 

NEXT 



<AS0> 


ER AUF DEN HARKT“,21,IS 

<61P> 

6070 

FOR 11=1 TO IS 



<72P> 

6090 

DATA "filNCLAlR-AOMPUIER FINDEN KAUM NOCH AHN 


6O80 

FOR 1=1 TO AFX 



< 09U> 


EHMER",22,-30 

< 1CL> 

609O 

PRINT H1,AE7.( 11,1) 



<VN8> 

6900 

DATA "HEUER HOME-S0MPUTER VON SPECTRAVIDEO W 


610O 

NEXT 



<Q70> 


IRD VORGESTELLT",23,10 

<EOD> 

6110 

NEXT 



<U7Q> 

6910 

DATA "X.i. STEIGT ERNEUT IN DEN ÜOME-LXJMPUTE 


6120 

DCLOSE 



<907> 


RBERRE1CH EIN",24,20 

< 0K9 > 

6130 

PRINT C3*+CHR*<142> 



<97B> 

6920 

DATA "ERNEUTE £REISSENKUNG BEI flTARI ÄX~£DMP 


6140 

RETURN 



<907> 


UTERN",3,15 

<KBB> 

6150 

REM 



<5SN> 

6930 

DATA "HIXDORF VERSTAERKT ENTWICKLUNGSARBEIT" 


6160 

REM » SPIELSTAND LADEN « 



<3410 


,13,IO 

<KC3> 

6170 

REM 



<5CL > 

6940 

DATA " ÜRODUKTIÜNSSCHWIERIEGKEITEN BEI SLIVET 


61B0 

PRINT C&*»C7*»C1*»C2«.C7* 



< l VT > 


TI-£OMPUTERN",14,25 

<KKM> 

6190 

PRINT TAB (19) "JJER GESPEICHERTE SPIELSTAND 

WI 


6950 

DATA "HESSERE HERKAUFSERFOLGE BEI ßS BORNE",1 



RD GELADEN '" 



<Q52> 


6, 10 

< 002 > 

62O0 

DOPEN ttl, "BOERSE.DAT" 



<N9U> 

6960 

DATA "£ASIO VERBUCHT ÜMSATZVERLUSTE",5,-15 

<96A> 

6210 

IF DS>0 THEN BEGIN 



<DR0> 

6970 

DATA "H.£. BRINGT NEUEN HILLIGCOMPUTER AUF D 


6220 

DCLOSE 



<9C7> 


EN HARKT",10,IO 

<Q8H> 

6230 

PRINT 



<JUU> 

6980 

DATA “SDMMODORE MELDET tIEFERSCHWIRIEQKEITEN 


6240 

PRINT TAB(I9)”£S WURDE KEIN ALTER 

SPIELSTAND 



FUER MJ11GA",7,-15 

<NBS> 


GEFUNDEN . " 



< 13N> 

6990 

DATA "HPPLE-EDMPUTER WERDEN SCHLECHTER VERKA 


6250 

SLEEP 3 



<PA7> 


UFT",1,-20 

<HFM> 

6269 

GOSUB 5020 : REM DATEN FUER NEUES 

SPIEL 


<K73> 


/ 


6270 

RETURN 



< PA7 > 


. / 


6280 

BEND 



<9HE> 

Listing 1. (Schluß) V 
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C128 


Vedors - Ein tolles Vergnügen 



Ein Super-Action-Spiel für den C 128, das den 
Joystick heißlaufen läßt und Sie sicher für viele 
Stunden an den Bildschirm fesselt. 

D ieses sehr schnelle Geschicklichkeitsspiel kann 
einen fast süchtig machen. Es greift die Idee zweier 
Sich bekämpfender Schlangen auf (ähnlich der 
Motorrad-Sequenz im Film »Tron«) und setzt sie auf dem 
C128 im 80-Zeichen-Modus auf faszinierende Weise neu 
um. Bei »Vectors« kommt es darauf an, den Gegner durch 
geschicktes Manövrieren einzukreisen, ihn gegen eine 
Wand rennen zu lassen und damit auszuschalten. Durch 
die hohe Grafikauflösung (640 * 200 Punkte) ist der Kampf 
der beiden Linien wesentlich spannender als bei bisheri¬ 
gen Versionen. Wir hatten dieses Spiel zwar bereits in der 
Ausgabe 7/86 des 64’er-Magazins veröffentlicht, halten es 
aber für so gut (und es gibt ja auch kaum ein gutes Action- 
Spiel für den C128), daß wir unseren neuen Lesern diesen 
Spaß nicht vorenthalten wollen. 

Vectors wurde mit einigen Zusatzfunktionen ausgestat¬ 
tet. So kann man als weitere Schwierigkeiten zufällige Hin¬ 
dernisse in das Spielfeld einschalten, die auch vom Benut¬ 
zer editierbar sind. Auch diagonale Linien sind möglich, 
wodurch die Schwierigkeit für Vector-Profis gesteigert wer¬ 
den kann. 

Es besteht aber auch die Möglichkeit, gegen den Com¬ 
puter anzutreten und verschiedene Schwierigkeiten anzu¬ 
wählen. Diese können durch Ab- und Hinzuschalten ver¬ 
schiedener Computerstrategien zusätzlich variiert werden. 

Hat man den Menüpunkt »Beschleunigen« gewählt, so 
läßt sich durch Drücken des Feuerknopfes der Vector 
(Linie) beschleunigen. 

Computerstrategien 

Die Spielstärke des Computers wird durch Hinzuschal¬ 


ten verschiedener Strategien eingestellt. Im Programm 
sind die zehn sinnvollsten Kombinationen der folgenden 
Einzelstrategien integriert: 

- Spirale 

- Gasse 

- Folgen 

- Besoffen 

- Zufall 

Der Computer-Vector ist prinzipiell so gesteuert, daß er 
zwei Pixel vor einem Hindernis (Gegner-Vector, Hindernis 
oder Spielfeldrand) ausweicht. Durch dieses Freilassen 
eines Pixels sichert er sich einen Ausweg, falls er in eine 
Falle läuft. 

Beim Ausweichen wird die neue Richtung zufällig ausge¬ 
wählt (siehe auch »Folgen«). 

Die Strategien im einzelnen 

Spirale: Diese Strategie überprüft, ob sich der 
Computer-Vector in einer Spirale verfangen hat und sichert 
sein Entkommen. 

Gasse: Steuert der Computer auf einen Spalt zu, der nur 
einen Punkt breit ist (mögliche Sackgasse), so weicht er 
aus. 

Folgen: Bei einem Ausweichmanöver orientiert sich der 
Computer an der aktuellen Position des Gegner-Vectors. 
Man wird von ihm verfolgt! 

Besoffen: Der Computer weicht nach einer bestimmten 
Anzahl zurückgelegter Pixel aus (siehe auch »Folgen«), 
egal, ob er auf ein Hindernis stößt oder nicht. Damit wird er 
unberechenbar! 

Zufall: Diese Strategie arbeitet mit »Besoffen« zusam¬ 
men. Sie bestimmt die Anzahl der Pixel, nach der der Com¬ 
puter die Richtung wechselt. Falls die Strategie aktiviert ist, 
addiert er zu einem Startwert einen Zufallswert, ansonsten 
übernimmt er den Startwert. 
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Die Spielstärke ergibt sich nicht unmittelbar aus der Rei¬ 
henfolge der Strategiekombinationen. Unserer Meinung 
nach ist die Strategie 7 die spielstarkste. Sehenswert ist 
aber auch Strategie 4. 

Ändern der Hindernisse 

Nach dem Laden des Programms befinden sich im Spei¬ 
cher zwei Tabellen. Die erste Tabelle liegt ab der Speicher¬ 
stelle $07374 in BANK 0. Es folgen 16 Byte, die jeweils den 
Wert 0 oder 1 haben. Der Wert 1 steht für »Hindernis 
gesetzt«, 0 bedeutet »Hindernis aus«. 

Dabei entspricht Byte 0=Hindernis 0, Byte 2=Hindernis 2 
und so weiter. Hieraus ergibt sich eine maximale Anzahl 
von 16 Hindernissen. 

In Tabelle 2 (ab Adresse $07384, BANK 0) sind für jedes 
Hindernis zwei Byte reserviert, die den Anfang eines Hin¬ 
dernisses in*Low-Byte und High-Byte angeben: 

Byte 0 und 1: Low-Byte und High-Byte der Anfangs¬ 
adresse des Hindernisses Nummer 0; 

Byte 2 und 3: Low-Byte und High-Byte der Anfangs¬ 
adresse des Hindernisses Nummer 1; 
und so weiter... 

Die Hindernisse können ab der Adresse $07643 in BANK 
0 abgelegt werden. 

Aufbau eines Hindernisses 

Ein Hindernis baut sich aus vertikalen, horizontalen und 
diagonalen Strichen auf. Ein Strich setzt sich aus fünf Byte 
zusammen: 

- Byte 0: Low-Byte der X-Koordinate der Startkoordinaten 
des Striches 

- Byte 1: High-Byte der X-Koordinate der Startkoordinaten 
des Striches 

- Byte 2: Y-Koordinate der Startkoordinaten des Striches 


- Byte 3: Länge des Striches (maximal 255) 

- Byte 4: Richtung des Striches 

0 - Rechts 

1 - Unten 

2 - Links/Unten 

3 - R ec htsf Unten 

Ein Strich mit den Koordinaten X=317, Y=97 und der 
Länge 46 in Richtung Rechts/Unten sähe so aus: 

Byte: 0 12 3 4 

Wert: 061 0Q1 097 046 003 
Zum Austesten empfiehlt es sich, den eingebauten Moni¬ 
tor zu benutzen. 

Eingabe des Programms 

Das Hauptprogramm (Listing 1) geben Sie mit dem MSE 
in C 64-Modus ein und speichern es auf Ihren Datenträger. 
Danach schalten Sie den Computer bitte aus und ein, um 
in den C 128-Modus zu gelangen. 

Hier geben Sie noch die nachstehende Zeile 10 ein und 
speichern diese unter dem Namen VECTORS.BOOT auf 
den gleichen Datenträger (dies ist das spätere Lade¬ 
programm) 

10 BL0AD"VECT0RS.OBJ"0N B0:BANK 0:SYS 24576 

Die Bewegung der Vectors und die Auswahl der Menü¬ 
punkte erfolgt mit dem Joystick (80-Zeichenschirm ein¬ 
schalten). 

Wem die Hindernisse und Strategien trotzdem noch zu 
leicht sind, der sollte ruhig das Spiel erweitern. So zum Bei¬ 
spiel einen dritten, unabhängigen Vector, der jeden der bei¬ 
den anderen behindert. Oder knobeln Sie sich selbst noch 
weitere, ausgekochte Hindernisse aus. 

(H. Beine/A. Jansen/kn) 
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BÜCHER 


C128 


C128 - Programmieren 
in Maschinensprache 

Dieses Werk von Gerd Möll¬ 
mann, seines Zeichens »Vater« 
von Hypra-Ass und Top-Ass, ist 
kein Lehrbuch zur 6502/6510- 

Assembler-Programmierung, 
sondern vielmehr weiterfüh¬ 
rende und vertiefende Literatur, 
die dem 6502-Vertrauten den 
Weg zur effektiven Assembler- 
Programmierung mit dem C128 
ebnen soll. 

Das Buch ist in sieben Kapi¬ 
tel gegliedert, die jedoch kei¬ 
nen Lehrbuch-Charakter auf- 
kommen lassen. Diese Struk¬ 
tur macht das Buch zu einem 
guten Nachschlagewerk, das 
als kompetenter Ratgeber zu 
allen Bereichen der Program¬ 
mierung des C128 in jeder 
Bibliothek eines C128-Besit- 
zers stehen sollte. 

Im ersten Kapitel werden die 
Bausteine des C128 (MMU, 
VDC, VIC, SID und CIAs) 
behandelt. Das zweite Kapitel 
beschreibt die Routinen der 
»Common Area«, also diejeni¬ 
gen Kernel- und Interpreter- 
Unterprogramme, die im RAM- 
Bereich von $0000 bis $03FF 
liegen. Im dritten Kapitel wird 
auf 50 Seiten das Betriebssy¬ 
stem analysiert, daran ange¬ 
hängt die Kernel-Vektoren. 

Im fünften und längsten 
Kapitel wird der Basic-Inter- 
preter sorgfältig zerlegt. Das 
sechste Kapitel beschäftigt 
sich mit den dazugehörigen 
Basic-Vektoren in der erweiter¬ 
ten Zeropage und im letzten 
Kapitel werden schließlich 
deren Einsatzmöglichkeiten 
beschrieben. 



Ein ausführliches Nachschla¬ 
gewerk für die Assembler-Pro¬ 
grammierung des C128, mit 
guten Beispielen und über¬ 
sichtlich gestaltet. 

(Jörg Sahlmann/sk) 

Gerd Möllmann: C128-Programmieren In 
Maschinensprache, Markt 8 Technik Verlag. 
270 Seilen, ISBN 3-89090-213-8, 52 Mark 
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Vom C64 zum C128 - 
Tips & Tricks 

Dieses Buch ist einerseits 
ein fantastisches Rüstzeug für 
die vielen C64-Umsteiger, 
kann aber gleichermaßen allen 
anderen C128-Besitzern emp¬ 
fohlen werden. 

Das Kapitel »Tastatur und 
Editor« eignet sich vor allem für 
Einsteiger. 

Ein weiteres, sehr umfang¬ 
reiches Kapitel, befaßt sich 
mit Basic 7.0 - vor allem für 
Fortgeschrittene. Es enthält 
viele Utilities und informative 
wie verständliche Program¬ 
mierkurse für Windows, Menüs 
und Ein-/Ausgabe-Masken. 
Außerdem wird das Umsetzen 
von C64-Programmen auf den 
C128 ausführlich beschrieben. 
Ganz besonders überzeugen 
interessante Grafik-Beispiel¬ 
programme, wie »Apfelberge« 
und »Roulette«. 

Das Kapitel »Maschinen¬ 
sprache« beschreibt die wich¬ 
tigsten Arbeitsmittel und das 
C128-Betriebssystem sowie 
die Adaption von C64-Pro- 

grammen. Im fünften Kapitel 

werden alle Unterschiede des 
C64-Modus zum »normalen« 
C64 aufgezeigt. 

»Einstieg in CP/M« ermög¬ 
licht einen leichten Einstieg in 
diesen Bereich und enthält 
viele Tips und Tricks. Das letzte 
Kapitel - »Diskettenlaufwerke« 
- erklärt in vergleichender 
Form die Programmierung und 
Anwendung der Floppies 1541 
und 1570/1571 und enthält 
viele Praxistips. 

Alle abgedruckten Pro¬ 
gramme sind auch auf derdem 
Buch beiliegenden Diskette. 

Fazit: Ein »Muß« für alle 
C128-Anwender, die mit dem 
C128 bequemer arbeiten und 
sich gleichzeitig weiterbilden 
wollen. 

(K. Ruprecht/M. Jobst) 

Florian Müller: Vom C64 zum C128 - Tips & 
Tricks, Markt & Technik, 2, Aullage 1987, 290 
Seiten inklusive Beispiel- und Utility-Diskette, 
ISBN 3-89090-402-5, 49 Mark 


C128 ROM-Listing 

Ein unentbehrliches Hilfs¬ 
mittel für Maschinensprache- 
Programmierer ist das ROM- 
Listing. Dieses Buch aus der 
Commodore-Sachbuchreihe 
ist das erste vollständige ROM- 
Listing zum C128, das die 
gesamten 44-KByte-ROM, also 
auch den 28 KByte langen 
Basic-7.0-lnterpreter, umfaßt. 

Es erklärt zunächst die kom¬ 
plizierte Speicherverwaltung 
des C128, also auch die Tech¬ 
nik des »Bankswitching«. 

Des weiteren werden die 
Videocontroller VIC und VDC, 
der Soundchip SID, sowie die 
CIAs in Kurzform behandelt 
und alle vom System beeinfluß¬ 
ten Adressen aufgeführt. 

Den Hauptteil macht mit 375 
Seiten das ROM-Listing selbst 
aus. Die äußere Struktur des 
ROM-Listings besticht durch 
Klarheit und Übersichtlichkeit, 
da es sich um einen Quelltext- 
Ausdruck handelt, und die ein¬ 
gesetzten Label-Adreßanga- 
ben eine schnelle Suche von 



Sprungzielen ermöglichen. 
Auch bei den Kommentaren ist 
das Konzept gut geglückt: 
Trotz ausführlicher Erläuterun¬ 
gen wird das ROM-Listing kei¬ 
nesfalls unübersichtlich. 

Fazit: Das vorliegende Buch 
ist für C128-Maschinenpro- 
grammierer sehr empfehlens¬ 
wert. Aufgrund des enormen 
Umfangs (456 Seiten), des gro¬ 
ßen Nutzens und eines guten 
Schlagwortregisters ist der 
Preis von 58 Mark angemes¬ 
sen. 

Was vielleicht noch wün¬ 
schenswert gewesen wäre, ist 
eine prinzipielle Einführung in 
die Arbeit mit einem ROM- 
Listing und die praktische 
Anwendung eines solchen. 

(Florian Müller/M. Jobst) 

Commodore-Sachbuchreihe, Dr. Ruprecht: 
C128 ROM-Listing, Markt & Technik Verlag, 
456 Seiten, ISBN 3-89090-212-X, 58 Mark 
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Programmieren in 
Assembler mit Top- 
Ass-Plus für den C128 

Maschinensprache zu erler¬ 
nen, ist der Traum jedes Pro¬ 
grammierers: ein guter Assem¬ 
bler ist der Wunsch aller, die 
bereits Maschinensprache be¬ 
herrschen. Dieses umfassen¬ 
de Werk wird beiden Ansprü¬ 
chen gerecht. 

Ein über 100 Seiten langes 
Kapitel zur Erlernung der 65xx- 
Maschinensprache im C128- 
Modus vermittelt dem Leser 
das Hexadezimal- und Binär¬ 
system, alle Adressierungsar¬ 
ten und Befehle, sowie Kennt¬ 
nisse über allgemeine Pro¬ 
grammiertechniken und TED- 
MON, den in der Firmware 
eingebauten Maschinenspra¬ 
che-Monitor des C128. 

Danach hat der Leser das 
nötige Wissen, um selbst 
kleine Maschinenprogramme 
zu schreiben. Er verfügt oben¬ 
drein über ein hervorragendes 
Nachschlagewerk mit zahlrei¬ 
chen Tabellen, die eine große 
Hilfe beim Programmieren dar¬ 
stellen. 

Die Anwendung des Gelern¬ 
ten ist Gegenstand des zwei¬ 
ten Kapitels, welches die Spei¬ 
cherverwaltung, die Betriebs¬ 
systemroutinen sowie die Ein-/ 
Ausgabe-Steuerung des C128 
beschreibt. 

Der restliche Teil des Werkes 
erläutert sehr ausführlich und 
praxisnah den Umgang mit der 
auf Diskette beiliegenden Top- 
Ass-Software. Auf diese wird 
auch noch an anderer Stelle in 
diesem Sonderheft eingegan¬ 
gen (»Software im Überblick«, 
Seite 155). 

Im Anhang findet man noch 
Tabellen, die sich auf das Top- 
Ass-Software-Paket und den 
Befehlssatz des Prozessors 
beziehen. 

(Florian Müller/M. Jobst) 

Gerd Möllmann, Michael Bauer: Programmie¬ 
ren in Assembler mit Top-Ass Plus/Cl28, 
Markt & Technik, 367 Seiten Inkl. Diskette, 
ISBN 3-89090-416-5, 59 Mark 
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64’er-REFERENZ 


Das Dritte 

Nun halten Sie bereits das dritte Sonderheft in 
Ihren Händen, das sich ausschließlich mit dem 
C128 und seinen Anwendungen beschäfigt. 
Doch die vorangegangenen Ausgaben zum 
Thema C128 besitzen auch weiterhin Aktualität, 
wie Sie in folgendem Artikel lesen können. 

W er vor etwa zwei Jahren den sensationellen neuen 
C128 erwarb, wurde nach der ersten Euphorie über 
diesen neuartigen Computer von einer bedauerns¬ 
werten Tatsache überrascht. Für den C128-Modus, der 
eigentlich leistungsfähigen Betriebsart dieses Computers, 
gab es anfänglich kaum Software. Bisher wagte sich kein 
Programmierer an den noch unbekannten C128 heran. 

Fehlten noch professionelle Anwenderprogramme wie 
Textverarbeitung und Programmiersprachen sowie die für 
Entspannung sorgenden Spiele, mußte der betrübte C128- 
Anwender seinen Computer zunächst vornehmlich im 
C64-Modus betreiben, wo ihm eine umfangreiche Palette 
an Software zur Verfügung stand. Mutige Besitzer erprob¬ 
ten auch den CP/M-Modus ihres Computers, der die Welt 
der professionellen CP/M-Software erschloß. 

Das Ende der »Software-Krise« 


Der C128-Modus mit seinem leistungsfähigem Basic 
mußte weiterhin auf seinen Einsatz warten. Hier war der 
Hobbyprogrammierer auf seine eigenen Fähigkeiten ange¬ 
wiesen. Doch gerade dieser akute Mangel an Software 
beflügelte manchen Anwender, so daß das 64’er-Magazin 
bald eine eigene I28'er-Rubrik einrichten konnte, in denen 
C128-Besitzerihre Erfahrungen mit dem Computer Weiter¬ 
gaben. Zu Beginn des Jahres 1986 wurde sodann das erste 
C-128-Sonderheft zusammengestellt. Der Anfang einer 
Serie, von der Sie heute den dritten Teil in Form eines weite¬ 
ren 128er-Sonderheftes in den Händen halten. Es bietet im 
Schwerpunkt viele Listings, die aus der Feder von C128- 
Hobbyprogrammierern stammen, und den C128-Modus 
perfekt nutzen. 

Doch auch die beiden Vorgänger dieses Sonderhefte^, 
Sonderheft 1/86 und 10/86 (Bild 1), können sowohl iffflr E'ih- 
steiger als auch Fortgeschrittene Programmierer .aktuell 
sein. Ein kleiner Rückblick, den wir nun starten wollen, sqI| 
dies beweisen. ‘ iil " hl H<i 11 (K 

Recht früh, gleich zu Beginn der Cl28-Ära im Januar 
1986 konnte die 64’er-Radaktion bereits das erste Sonder¬ 
heft herausgeben, das sich nur mit dem C128 beschäftigte 
(Bild 1, links). Es war der ideale Ratgeber für die damals 
meist ratlosen Einsteiger, die sich mit dem umfangreichen, 
aber nicht optimalen Handbuch des C128 abmühen muß¬ 
ten. Mit Gewicht auf die für das Programmieren notwendi¬ 
gen Grundlagen bot es dem Neuling einen tiefen Einblick 
in das von ihm erworbene Computersystem, der auch dem 
heutigen Einsteiger von Nutzen ist. 

Ein Rundgang durch die Hardware des C128 führt Sie in 
die elementare Welt des Computers ein. Ausgehend vom 
User-Port des C128 begeben Sie sich auf eine Wanderung 
quer über die große Computer-Platine, die ja eigentlich drei 
verschiedene Computer enthält. Bald zeigt sich das 
zunächst verwirrende Innenleben auf der Platine als logi¬ 
sches Zusammenspiel von komplexen Bausteinen und 
Gruppen, die den C128 zu dem machen, was er ist. 


im Bunde 

Schaltet man nun das nächste Mal seinen Computer ein, 
wird das Gerät, mit dem man programmieren kann, keine 
»Black Box« mehr sein, in der unbekannte Vorgänge ablau¬ 
fen. Der C128 wird »durchsichtiger« und überschaubarer 
mit jeder Minute, die Sie am Monitor arbeiten. 

Monitore sind auch ein weiteres Thema des Sonderhef¬ 
tes 1/86, denn für die ordnungsgemäße Arbeit mit dem 
C128 ist ein scharfes Bild sehr wichtig. Obgleich man einen 
handelsüblichen Fernseher an seinen Computer anschlie¬ 
ßen kann, so bietet er doch nicht das angenehme Bild eines 
guten Monitors. Zudem ist eine 80-Zeichen-Darstellung 



Bild 1. Die beiden schon für den C128 erschienenen 
Sonderhefte 1/86 (links) und 10/86 (rechts) 


hier kaum denkbar. Aus diesem Grund gibt ein ausführli¬ 
cher Test Auskunft über die Vor- und Nachteile der besten 
Monitore für den C128. Eine Vorstellung aller gängigen 
Kabelverbindungen und Buchsen bringt zusätzlich Licht in 
die bei Monitorherstellern üblichen Stecker-Normen, so 
daß man sich stets einer richtigen Verbindung von Compu¬ 
ter und Bildschirm gewiß sein kann. Eine kleine Bauanlei¬ 
tung, die das Umschalten zwischen 40- und 80-Zeichen- 
Darstellung vornimmt, rundet das Thema Monitor ab. 

Basic 7.0: 

Der professionelle Basic-Interpreter 


Wer nach dem Kauf eines C128 das etwa 300 Seiten starke 
Bedienungshandbuch durchblättert, wird sich bald der Lei¬ 
stungsfähigkeit des Basic 7.0 bewußt, das sich im C128- 
Modus präsentiert. Doch mit dem Erlernen der vielen 
Befehle, wie es das Handbuch vermittelt, ist es noch nicht 
getan. Noch fehlt das Wissen darum, wie man die Kom¬ 
mandos in Verbindung mit anderen Befehlen wirken läßt. 
Es mangelt an Programmiererfahrung, die für das Erzielen 
von befriedigenden Ergebnissen auf dem Computer 
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C128 


äußerst wichtig ist. Hier greift eine Reihe von Berichten des 
Sonderheftes 1/86 ein. 

Wird man zunächst über grundlegende Eigenschaften 
des C128 informiert, befaßt sich ein weiterer Artikel mit der 
genauen Analyse des hervorragenden Basic. Übersichtlich 
und lückenlos werden alle Befehle des Basic 7.0 erläutert. 
Ergeben sich dabei Besonderheiten, so werden diese dem 
Leser natürlich auch mitgeteilt. 

Nachdem man sich mit den Befehlen des C128 vertraut 
gemacht hat, kann man sogleich Programmiererfahrung 
sammeln, wenn man einen weiteren Bericht studiert. Hier 
trifft man auf den Begriff »strukturiertes Programmieren«, 
der unlängst nur höheren Sprachen wie Pascal oder C Vor¬ 
behalten war. 

Spezielle Befehle und Erweiterungen erlauben es dem 
C 128-Programmierer, neue und übersichtliche Programm¬ 
strukturen aufzubauen, wie man sie von Pascal her kennt. 
Mit ihrer Hilfe können verwirrende Programmsprünge in 
Zeilennummern und viele andere zum gefürchteten »Spa¬ 
ghetticode« führende Befehls-Konstruktionen vermieden 
werden. So gestattet die Erweiterung des IF-THEN-State- 
ments durch den kleinen Begriff ELSE eine wesentlich fle¬ 
xiblere Handhabung der bedingten Verzweigung. Befehle 
wie BEGIN und BEND fügen zusammengehörige Anwei¬ 
sungen zu einem übersichtlichen Block und die neuartigen 
Schleifen-Kommandos DO-LOOP, WHILE und UNTIL 
ermöglichen einen ähnlich übersichtlichen Aufbau wie in 
Pascal. 

Sprites und Shapes im Griff 


Das Geheimnis vieler Spiele auf dem C64 ist bei den klei¬ 
nen beweglichen Grafiken namens »Sprites« zu suchen, 
die sich stets in neuen Gestalten auf dem Bildschirm tum¬ 
meln. Während das Programmieren und Steuern der Spri¬ 
tes mit dem C64 in Basic sehr umständlich ist, und wohl 
den Assembler-Profis Vorbehalten scheint, ist der C128 mit 
vielen Befehlen und sogar einem integrierten Spriteeditor 
ausgerüstet, was das Erstellen und Lenken von Sprites ver¬ 
einfacht. Ein Kurs in Sonderheft 1/86 befaßt sich deshalb 
ausführlich mit Sprites und deren Eigenschaften. Doch 
geht die Themenstellung weit über die Erläuterung des 
Spriteeditors und die zur Verfügung stehenden Steuerbe¬ 
fehle hinaus. Anhand von praktischen Beispielen wird man 
in die professionelle Spriteprogrammierung eingeführt. 
Interessante Begriffe sind hier die Animation von Sprites 
oder die Erzeugung und Koordination von »großen« Sprites 
durch Zusammensetzen vieler kleiner Sprites. Besondere 
Aufmerksamkeit wird dabei den komfortablen Kollisions- 
Befehlen, wie zum Beispiel COLLISION und BUMP, ge¬ 
schenkt, die den Zusammenstoß von Sprites mit Hinter¬ 
grundzeichen oder anderen Sprites ermitteln. 

Daneben beschäftigt sich der Kurs mit einer weiteren 
Grafikeigenschaft des C128, die man beim C64 vergeblich 
sucht: den Shapes. 

Shapes sind wie Sprites Grafikausschnitte. Sie sind 
jedoch nicht ganz so agil. Mit ihrer Hilfe lassen sich Berei¬ 
che des hochauflösenden Grafikbildschirms in Stringvaria¬ 
blen ablegen, um sie danach wieder an anderer Stelle in 
das Grafikbild zurückzukopieren. Dabei kann man zwi¬ 
schen verschiedenen Abbildungsmodi wählen. Neben 
dem direkten Kopieren lassen sich Shapes additiv oder 
subtraktiv mit den Grafikpunkten des betreffenden Berei¬ 
ches überlagern. Sie können mit einigen Tricks auch auf 
Diskette oder Kassette gespeichert werden. Selbst das 
Umwandeln von Shapes in Sprites ist durchaus möglich. 
Welche Grafikvielfalt sich dadurch ergibt, wird im Sprite- 
kurs ausführlich beschrieben. 


Neben all diesen Grundlagen findet man selbstverständ¬ 
lich auch viele Listings zum Abtippen, die in der Software- 
Sammlung eines C128-Besitzers nicht fehlen sollten. Be¬ 
sonders interessant ist ein Grafikprogramm, das die Grafik¬ 
befehle des C128 um eine wunderbare Eigenschaft erwei¬ 
tert. 


Bild 2. Faszinierende »Apfelmännchen« mit dem C128. 

Ein Programm in Sonderheft 1/86 macht’s möglich. 

Wie Sie vielleicht wissen, ist der VDC-Chip, der für den 
Aufbau des 80-Zeichen-Bildschirms zuständig ist, fähig, 
auch Einzelpunkt-Grafiken auf dem 80-Zeichen-Monitorzu 
verwalten. Leider unterstützen die umfangreichen Grafik¬ 
befehle. p.'.'r den 40-Zeichen-Modus bei einer Auflösung von 
320 mal 2u0 Punkten. Im 80-Zeichen-Grafikmodus, der die 
doppelte Punktauflösung von 640 mal 200 Punkten bietet, 
sind sie nicht funktionsfähig. 

Anders jedoch, wenn Sie jenes Grafikprogramm mit dem 
Namen »Grafik-80« besitzen. Nachdem es im Speicher des 
C128 installiert wurde, stehen von nun an alle bekannten 
Grafik-Anweisungen wie DRAW, CIRCLE, BOX oder PAINT 
auch auf dem 80-Zeichen-Bildschirm zur Verfügung. Mit 
diesem Programm ist man sogar befähigt, simultan mit der 
40- und 80-Zeichen-Grafik zu arbeiten, da der erweiterte 
Interpreter vor jedem Befehl prüft, welcher Bildschirm 
gerade aktiv ist. Die Befehle werden dann stets im aktuellen 
Modus ausgeführt. 

Fraktales und wie macht man dem 
C64-Modus Beine? 


Nicht minder interessant ist auch ein kleines Basic-Pro- 
gramm, das fantastische Fraktalgrafiken erzeugt. Insbe¬ 
sondere die Mathematiker unter den Grafik-Ästheten wis¬ 
sen, daß solche Grafiken auch »Apfelmännchen« genannt 
werden, und einer mathematischen Theorie entspringen. 
Grafiken, die die hauchdünne Grenze zwischen Ordnung 
und Chaos auf faszinierende Weise sichtbar machen (Bild 
2). Ein ausführlicher Bericht in Sonderheft 1/86 zeigt, was 
sich hinter diesen Formen gebrochener, eben fraktaler 
Dimensionen verbirgt (lateinisch »frangere« bedeutet »bre¬ 
chen«). 

Eine Fortsetzung von Wissenswertem über den C128 
kann man in Sonderheft 10/86 (Bild 1, rechts) finden, das 
den Leser wiederum mit interessanten Informationen und 
Listings fesselt. 

Was man beim C64 oftmals sehnlichst vermißte, ist für 
den C128-Anwender eine Selbstverständlichkeit. TED- 
MON, der integrierte Maschinensprache-Monitor, ist sofort 
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nach dem Einschalten des C 128-Modus aktiv und kann mit 
einem eigenen Befehl (MONITOR) aufgerufen werden. 
Damit stehen dem Programmierer wertvolle Hilfen zur Ver¬ 
fügung, um etwa einen bestimmten Bereich des Speichers 
aufzulisten, nach besonderen Byte-Kombinationen zu 
suchen oder gar beliebige Bereiche an eine andere Stelle 
des Arbeitsspeichers zu verschieben. Zusätzlich können 
Teile des Speichers mit anderen verglichen werden oder 
Maschinenprogramme geladen oder gespeichert werden. 

TEDMON - ein Monitor für olle Fälle 


TEDMON besitzt sogar einen kleinen Assembler, der die 
Eingabe von Maschinenbefehlen erlaubt und diese auto¬ 
matisch in die für den Computer verständlichen »Op- 
Codes« umwandelt. Ein entsprechender Disassembler 
wandelt, als Pendant dazu, jene Codes wieder in Assem¬ 
bler-Befehle um, so daß man die Inhalte eines jeden Spei¬ 
cherbereiches als Maschinenprogramm betrachten kann. 
Die Maschinensprache-Kenner unter den C128-Besitzern 
werden TEDMON bereits zu schätzen wissen. Wenige wis¬ 
sen jedoch, daß der Monitor auch für den Basic-Program- 
mierer interessant sein kann. Aus diesem Grund befaßt 
sich ein spezieller Kurs ausführlich mit den Eigenschaften 



Bild 3. Das lEEE-lnterface für den C128 mit enormen Lei¬ 
stungen. Die Bauanleitung finden Sie in Sonderheft 10/86. 


von TEDMON und gibt Tips für seine effektive Nutzung bei 
der Basic-Programmierung. 

Wird man zunächst Schritt für Schritt mit den Komman¬ 
dos des Monitors vertraut gemacht, begibt man sich so¬ 
dann in die Welt der professionellen Programmierung der 
Maschinensprache. Keine Angst, hier handelt es sich nicht 
um eine Assembler-Kurs. Es werden vielmehr Wege aufge¬ 
zeigt, wie man mit TEDMON Maschinenprogramme bear¬ 
beiten kann. Dazu gehört etwa das Suchen nach bestimm¬ 
ten Befehlskombinationen oder das Vergleichen von iden¬ 
tisch scheinenden Programmteilen. 

Hat man all die grundlegenden Eigenschaften des TED¬ 
MON erfahren, wendet sich der Kurs seinem zweiten 
Hauptthema zu, die Manipulation von Basic-Programmen. 


Denn hier eröffnen sich dem Anwender Möglichkeiten, die 
er bisher für undenkbar gehalten hat. 

Doch zuvor erfährt er alles über den eigentlichen Aufbau 
eines Basic-Programmes im Speicher des C128. Man stellt 
fest, daß die Befehle nicht Zeichen für Zeichen gespei¬ 
chert, sondern in Form von besonderen Codes, den »To¬ 
kens«, abgelegt werden. Eine Tabelle mit allen Tokens des 
C128 hilft dabei, Basic-Programme bald auch über den 
Monitor lesen zu können. Daneben werden der genaue 
Aufbau einer Basic-Zeile, die Verkettung mit den anderen 
Zeilen und die Bedeutung der Zeilennummern erläutert. 
Mit diesem Wissen lassen sich nun interessante Effekte 
erzielen. 

Was im Normalfall eigentlich nicht möglich ist, wird mit 
den neuen Manipulationsfähigkeiten Wirklichkeit. Geben 
Sie doch mehreren Basic-Zeilen die gleiche Zeilennum¬ 
mer, oder verwenden Sie beispielsweise inverse oder blin¬ 
kende Kommentare in REM-Statements. TEDMON setzt 
hier keine Grenzen. 

Ebenso grenzenlos scheint auch die Grafik des C128, die 
mit einer Vielzahl von Befehlen wie DRAW, CIRCLE oder 
PAINT schnell und problemlos angesteuert werden kann. 
Ein weiterer Kurs in Sonderheft 10/86 untersucht diese 
Befehle sehr genau. Mit vielen Skizzen wird die Bedeutung 
eines jeden Parameters vedeutlicht, so daß man sich so¬ 
gleich der ungeheueren Flexibilität der Grafik-Kommandos 
des C128 bewußt wird. Besitzt man zusätzlich das Pro¬ 
gramm »Grafik-80« aus Sonderheft 1/86, das übrigens 
nochmals in Sonderheft 10/86 in modifizierter und verbes¬ 
serter Version abgedruckt wurde, kann man seine neu ge¬ 
wonnenen Kenntnisse sowohl mit der Grafik des 40-Zei- 
chen-Modus (320 mal 200 Punkte) als auch mit der doppel¬ 
ten Gi. fikauflösung des 80-Zeichen-Bildschirms (640 mal 
200 ansprechbare Punkte) erproben. 

Interessantes für Hardware-Spezialisten 


Eine größere Flexibiltät des C128 erreicht auch eine kleine 
Hardware-Bastelei. Mit wenigen Handgriffen und etwas 
Geschick mit dem Lötkolben läßt sich das lEEE-lnterface 
aus Sonderheft 10/86 anfertigen, wie Sie es in Bild 3 sehen 
können. Eingesteckt am Expansion-Port des Computers ist 
es dem Anwender nun möglich, wesentlich leistungsfähi¬ 
gere Peripheriegeräte, wie etwa Drucker oder Disketten¬ 
laufwerke an den C128 anzuschließen. Beispiele sind hier 
die Floppystationen SFD 1001 und CBM 8050, die mit 
einer Speicherkapazität von jeweils 1 MByte und zwei¬ 
mal 1 MByte die Floppy 1571 bei weitem übertreffen. 
Zudem läßt der lEEE-Bus eine sehr viel schnellere Daten¬ 
übertragung zu, und verleiht dem C128 noch mehr Profes¬ 
sionalität. 

Besonders interessant für Hardware-Bastler ist schließ¬ 
lich der komplette Schaltplan des C128, dem zusätzlich 
einige Tips beigefügt sind. Hier findet man zum Beispiel 
kleine Schaltungen, um bis zu sieben Betriebssysteme in 
nur einem EPROM unterzubringen, die absturzfrei und ein¬ 
fach umgeschaltet werden können. 

Darüber hinaus bietet das Sonderheft 10/86 wie sein Vor¬ 
gänger eine Vielzahl an Programmen, Tips und Tricks, die 
das Programmiererleben erleichtern. Eines davon ist ein 
wahrer Diener, denn es erweitert das Betriebssystem des 
C128 um interessante und teilweise unglaubliche Funktio¬ 
nen, die so manchen Basic-Kenner, aber auch Maschinen- 
sprache-Fans in Erstaunen versetzen. Sein Name ist »BUT¬ 
LER«. 

Neu definierte Escape-Sequenzen erlauben das komfor¬ 
table Editieren eines Basic-Programmes. Man kann dabei 
beispielsweise zeilen- oder seitenweise vor- und rückwärts 


SONDERHEFT 22 


157 











EINGABEHILFEN 


C128 


blättern, sowie Teile des Programmes vorübergehend an 
einen anderen Ort des Speichers übertragen, um sie zu 
einem späteren Zeitpunkt wieder dem Gesamtprogramm 
hinzuzufügen. 

Der ungewöhnlichste Befehl ist jedoch Z80CALL. So 
unglaublich es klingen mag, so gestattet er doch, im Basic 
des C128 Z80-Maschinenprogramme aufzurufen, die 
prompt ausgeführt werden und nach Beendigung wieder in 
den Cl28-Modus zurückkehren. Ein Leckerbissen für 
Z80-Programmierer. 

Die eben erwähnten Funktionen sind nur ein kleine Teil 
der in BUTLER integrierten Dienstleistungen. 

Wesentlich hektischer geht es bei einem Kopierpro¬ 
gramm fürdie Floppy 1570/71 zu. Denn »Tornado-Copy« hat 
seinen Namen zurecht verdient. Unter Zuhilfenahme des 
großen C 128-Speichers kopiert dieses Programm eine Dis¬ 
kettenseite in nur 75 Sekunden, wobei nurmehr zwei Dis¬ 
kettenwechsel notwendig sind. Ist die Diskette nicht voll¬ 
ständig beschrieben, genügt bereits ein Wechsel von 
Original- und Ziel-Diskette. 

Neben diesen beiden Beispielen warten noch eine Viel¬ 
zahl weiterer Hilfsprogramme im Sonderheft 10/86 auf den 
Leser, wie zum Beispiel ein Centronics-Druckertreiber, der 
es gestattet, nahezu jeden Drucker mit Centronics-Schnitt- 
stelle problemlos anzusteuern. 

Hinzu kommt das bereits erwähnte Grafikprogramm 
»Grafik-80« in einer überarbeiteten Version, der gleich zwei 
leistungstarke Erweiterungen angefügt wurden. War mit 
Grafik-80 bisher keine Textdarstellung in der Einzelpunkt¬ 
grafik möglich, erlaubt nun ein neuer CHAR-Befehl die 
Beschriftung von Grafiken im VDC-Modus (80-Zeichen- 
Bildschirm). Anders als mit dem bereits bekannten CHAR- 
Kommando lassen sich nun die Zeichen punktweise plazie¬ 
ren, wobei sogar das beliebige Versetzen um eine Halb¬ 


zeile nach oben oder unten möglich ist. Indizes und Poten¬ 
zen etwa bei der Dokumentation eines mathematischen 
Graphen sind damit kein Problem mehr. 

Die größte Leistung der CHAR-Anweisung liegt jedoch in 
der Fähigkeit, die auszugebende Zeichenkette in jedem 
Winkel bezüglich des Anfangspunktes zu schreiben. 

So schön eine Grafik auf dem 80-Zeichen-Bildschirm 
sein kann, so betrüblich war es bisher, daß man das Kunst¬ 
werk nicht auf einem Drucker festhalten konnte. Aus die¬ 
sem Grund ersannen die Autoren von Grafik-80 eine der 
wohl erfreulichsten Erweiterungen ihres Programms, die 
Routine »Hardcopy-80«. Der Ausdruck darf dabei in einfa¬ 
cher und doppelter so wie inverser Darstellung vorgenom¬ 
men werden. Andere Punktdichten und Größen können je 
nach Art des verwendeten Druckers angepaßt werden. 

Tricks machen den Profi 


Die bekannte Rubrik »Tips & Tricks« darf ebenfalls nicht ver¬ 
gessen werden. Sie fehlt natürlich auch in Sonderheft 
10/86 nicht. Hier findet man beispielsweise einen verbes¬ 
serten RENUMBER-Befehl, einen komfortablen Variablen- 
Dump sowie eine weitere Hardcopy-Routine, die nun aller¬ 
dings den Inhalt des 80-Zeichen-Textbildschirms auf dem 
Drucker bringt. 

Die vorgestellten Tips geben Ihnen gute Hilfen, Program¬ 
miererfahrung zu sammeln, die Sie schließlich Schritt für 
Schritt zum C128-Profi machen. Ohne Zweifel wird noch so 
mancher findige Kopf unter den C128-Besitzern und 64’er- 
Lesern dem C128 weitere Geheimnisse entlocken können, 
so daß das dritte Sonderheft, das Sie jetzt gerade lesen, 
bestimm; nicht das letzte sein wird. 

(Michael Thomas/kn) 


Checksummer 
128 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen Tipp¬ 
fehler zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen 
werden. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer 128« und »MSE« (Maschinen-Sprache-Editor) ent¬ 
wickelt. Der Checksummer ist für Basic-Programme und 
der MSE für Maschinensprache-Listings zuständig. 

Der MSE 


Wie eben erwähnt, dient der MSE zur Eingabe von 
Maschinensprache-Programmen. Als erstes müssen Sie 
den sogenannten »MSE-Lader«(Listing 1) abtippen. Dieser 
erzeugt das eigentliche MSE-Programm auf Diskette oder 
Kassette. 


Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 
und < RETURN > drücken. Die Eingabe des MSE- 
Laders muß im C 64-Modus erfolgen, ebenso die Ein¬ 
gabe der MSE-Listings! 

Jetzt können Sie beginnen, das Listing 1 abzutippen. Der 
MSE-Lader erkennt, wenn Sie beim Eintippen der DATA- 
Zeilen einen Fehler gemacht haben. 

Wenn Sie das Listing 1 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Datasetten-Besitzer müssen die »8« am Ende von Zeile 
343 in eine »1« ändern. 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich selbst 
auf Diskette oder Kassette unter dem Namen »MSE VI .1«. 
Dieses fertige MSE-Programm laden Sie dann bei Bedarf 
wie ein normales Basic-Programm und starten es mit 
»RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden wollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs- 
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5 PRINT CHR*.(1'4) <KD2> 

10 PRINT "(CLRJ" <IHM> 

20 PRINT <B90> 

30 PRINT " (4DnwN,2SP0CE>lEST<2SPflCE,BLÜE,6SPflCE>" :DBS> 

4» PRINT ''TTHWffFBWSWFirS'äOTSYB'äOTSSW’ <BAB> 


Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungsstrichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungsstrichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben < W >. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFT T> und normal EST, zum 
Schluß noch zweimal die Leertaste, die Fkrbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


sen Sie »D« oder »T« drücken, je nachdem, ob Sie von Dis¬ 
kette oder Kassette (»tape«) laden möchten. Wenn das Pro¬ 
gramm unter diesem Namen nicht auf der Diskette vorhan¬ 
den ist oder ein sonstiger Ladefehler vorlag, meldet sich 
der MSE mit »l/O-ERROR«. In so einem Fall drücken Sie 
< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie hintereinander die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listingsein. Für 
die Leerzeichen zwischen den Zahlen sorgt der MSE auto¬ 
matisch selbst. Wenn Sie in einer Zeile einen Tippfehler 
gemacht haben, meldet sich der MSE sofort mit einem 
Brummton und der Meldung »EINGABEFEHLER«. Nach 
einem Druck auf die RETURN-Taste können Sie mit der 
DEL-Taste den Fehler korrigieren. 

Wenn Sie das gewünschte Programm vollständig einge¬ 
geben haben, speichert es der MSE automatisch auf Dis¬ 
kette oder Kassette. 


Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 
< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch < RUN/STOP > das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRL P> ausdrucken. 

Mit <CTRL L> wird das Programm noch einmal neu in 
Ihren C 128 geladen. 

Der Chedcsummer 128 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 2) mit dem MSE im C64-Modus abtippen. Die 
Eingabehinweise entnehmen Sie bitte obigen Angaben zur 
Eingabe von MSE-Listings. Wenn Sie fertig sind, speichern 
Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer (im C128-Modus!) durch 
die Eingabe von »RUN« und das Drücken der RETURN- 
Taste. 

2. Wenn die Meldung »Checksummer 128 aktiv « auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Nun können Sie den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN- 
Taste: 

10 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme der eben eingegebenen Basic-Zeile. Sie muß 
<A99> lauten. Dem Checksummer ist es übrigens egal, 


ICTRL] 

steht für Control-Taste, so bedeutet (CTRL+A), daß 

|CTRL| 

Control-Taste 


Sie die Control-Taste und die Taste »A« drücken 

[BLACK] 

Control-Taste & 1 


müssen. Im folgenden steht: 

IWHITE] 

Control-Taste & 2 

|DOWN| 

Taste neben rechtem Shift, Cursor unten 

IREDI 

Control-Taste & 3 

|UP| 

Shift-Taste & Taste neben rechtem Shift; 

|CYAN| 

Control-Taste & 4 


Cursor hoch 

IPURPLE] 

Control-Taste & 5 

|CLR| 

Shift-Taste & 2. Taste von ganz rechts oben 

IGREEN] 

Control-Taste & 6 

|INST| 

Shift-Taste & Taste ganz rechts oben 

|BLUE) 

Control-Taste & 7 

(HOME] 

2. Taste von ganz rechts oben 

IYELLOW] 

Control-Taste & 8 

IDELj 

Taste ganz rechts oben 

[RVSONI 

Control-Taste & 9 

|RIGHT| 

Taste ganz rechts unten 

|RVOFF| 

Control-Taste & 0 

ILEFT) 

Shift-Taste & Taste unten rechts 

(ORANGE] 

Commodore-Taste & 1 

|SPACE| 

Leertaste, Hinweis: |13 SPACE] bedeutet 13mal 

(BROWN) 

Commodore-Taste & 2 


die Leertaste drücken 

(LIG.RED] 

Commodore-Taste & 3 

(SHIFT- 


(GREY 1] 

Commodore-Taste & 4 

SPACEI 

Shift-Taste & Leertaste 

IGREY 2] 

Commodore-Taste & 5 

(Flj 

grauer Tastenblock rechts oben 

[LIG.GREEN] 

Commodore-Taste & 6 

(F3j 

grauer Tastenblock rechts oben 

ILIG.BLUE] 

Commodore-Taste & 7 

(F5| 

grauer Tastenblock rechts oben 

(GREY 3] 

Commodore-Taste & 8 

F7| 

grauer Tastenblock rechts oben 



|F2| 

grauer Tastenblock rechts oben & Shift 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuer¬ 

fF4| 

grauer Tastenblock rechts oben & Shift 

zeichen gewöhnt haben, werden Sie den Vorteil dieser Schreib¬ 

jF6| 

grauer Tastenblock rechts oben & Shift 

weise erkennen. Der zu dem jeweiligen Steuerzeichen gehörende 

)F8j 

grauer Tastenblock rechts oben & Shift 

Klartext ist so verfaßt, daß Sie leicht die Taste beziehungsweise die 

(RETURN] 

Return-Taste 

Tastenkombination finden, die Sie drücken müssen. 

fCTRL+l] 

TAB-Taste 



(CTRL+Jj 

Line-Feed-Taste 

Tabelle 1. Die Steuerbefehle für den C128 im Klartext 
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ob Sie »10 REM« oder »10REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer 128 eingeschaltet haben) immer dann, 
wenn Sie eine Basic-Zeile eintippen und dann die 
RETURN-Taste drücken. In diesem Sonderheft finden Sie 
die Prüfsumme immer am Ende jeder Programmzeile. 

Diese Zahlen dürfen Sie NICHT mit abtippen. Sie die¬ 
nen lediglich zur Kontrolle, ob Sie alles richtig eingege¬ 
ben haben. 

Als Beispiel können Sie Bild 1 betrachten. Am rechten 
Rand jeder Spalte sehen Sie die Prüfsummen in spitzen 
Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 343 von Listing 1 genauer an. Nach dem 
ersten Anführungszeichen nach dem PRINT-Befehl sehen 
Sie ein Zeichen, das Sie auf der Tastatur des C128 vergeb¬ 
lich suchen werden: die geschweifte Klammer »j«. Immer, 
wenn Sie in einem unserer Listings diese Klammern sehen, 


dürfen Sie das, was innerhalb der Klammern steht, nicht 
eintippen. Sie müssen die entsprechende Taste drücken. 
Beispiel: 

10 PRINT"(CLRJ" 

bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Tabel¬ 
le 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten und des entsprechenden Klartextes. 

Wenn Sie Bild 1 betrachten, sehen Sie in Zeile 30 inner¬ 
halb der Anführungszeichen ein unterstrichenes »T« nach 
der geschweiften Klammer. Das bedeutet, daß Sie ein »T« 
zusammen mit der SHIFT-Taste drücken müssen, also 
<SHIFT T>. Wenn ein Zeichen »überstrichen« ist, müs¬ 
sen Sie dieses zusammen mit der CBM-Taste eingeben. 
Die CBM-Taste befindet sich ganz links unten auf der Tasta¬ 
tur und hat die Aufschrift »C=«. Auf dem Bildschirm sehen 
Sie die entsprechenden Grafikzeichen (siehe Handbuch 
zum Computer, im Anhang). 

(G. Möllmann, N. Mann, D. Weineck, A. Lietz) 


100 REM DIESES PROGRAMM ERZEUGT DEN 
110 REM MSE VI.1 AUF DISKETTE. 

120 REM BESITZER EINER DATASETTE 
130 REM MUESSEN DIE -0' AM ENDE VON 
140 REM ZEILE 343 IN EINE '1' AENDERN! 

ISO REM 

230 IF PEEK(44)032 THEN PRINT "CCLR1SIE HABEN VE 
RGESSEN, DIE POKES EINZUGE- BEN!": END 
240 PRINT "ICLRl":: DIM H(75>: FOR 1=0 TO 9 
250 H(48+1)=1: H<65+1)=1+10: NEXT : Z=1000 

260 FOR 1=2048 TO 3755 STEP 20: PRINT "CHOMEJICH 
LESE ZEILE:"Z 

261 FOR N=0 TO 19: READ AS: IF LEN (A4) 02 THEN 90 
0 

262 IF PEEKI63)+PEEK(64)*256< >Z THEN 800 
270 H=ASC(LEFT*<A*,1) ) : L=ASC(RIGHT*(A*,1)) 

280 D=H(H)*16+H(L!: S=S+D: POKE I+N,D 

290 NEXT : READ V: IF S<>V THEN 900 

300 s=0: Z=Z+1: NEXT : R=PEEK(2111): H=PEEK<2106) 

301 POKE 532B0,R: POKE 532B1,H: POKE 646,R: PRINT 

"ICLR1DIE DATA—ZEILEN SIND FEHLERFREI!" 

302 FRINT "SIE KOENNEN NUN DIE FARBEN DES MSE" 

303 PRINT "EINSTELLEN.": PRINT "£2D0WN> IRVS0N5DR 
UECKEN SIE <1>, <2> ODER <9> 

304 PRINT ";D0WN,2SPACE3<1> - RAHMEN-/SCHRIFTFARB 
E 

305 PRINT " -C2SP ACE}<2> - HINTERGRUNDFARBE 

306 PRINT "CD0WN,2SPACE><9> - FARBEN UEBERNEHMEN 

307 PRINT "I2DOWN3FARBE ,<1>: "R: PRINT "FARBE <2>: 
"H 

309 GET A: IF A-0 THEN 70B 

309 IF A=1 THEN R=(R+1) AND 15 

310 IF A=2 THEN H=(H+1> AND 15 

311 IF A=9 THEN 340 

312 GOTO 301 

340 POKE 2106,H: POKE 2111,R 

342 POKE 631,19: POKE 632,13: POKE 198,2 

343 PRINT "CCLR3SAVE" CHR*(34)"MSE VI.1" CHR*<34> 
",B 

344 POKE 43,1: POKE 44,8: POKE 45,172: POKE 46,14 
: END 

800 PRINT "ICLR,RVS0N1SIE HABEN ZEIL£"Z"CLEFTJ VE 
RGESSEN:": A=PEEK(646> AND 15 
810 POKE 646,PEEK <53281) AND 15: PRINT "LIST"Z-2" 
-"Z+2: POKE 646,A 
820 GOTO 920 

900 PRINT "<CLR,RVS0N>SIE HABEN EINEN TIPPFEHLER 
GEMACHT:": A=PEEK(646> AND 15 
910 POKE 646,PEEK(53281) AND 15: PRINT "LIST"Z: P 
OKE 646,A 

920 POKE 631,19: POKE 632,17: POKE 633,13: POKE 1 
98,3: END 

1000 DATA 00,OB,08,0A,00,9E,32,30,36,31,00,00,00, 
A2,08,A9,36,85,A4,A9, 1247 

1001 DATA 08,B5,A5,A9,00,B5,A6,A9,B0,85,A7,A0,00, 

Bl,A4,91,A6,C8,D0,F9, 2888 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01,40,00, 
B0,20,D1,B1,A9,00,8D, 2781 

1003 DATA 21,D0,A9,0F,BD,20,D0,SD,86,02,A0,B3,A9, 


74.20, FF,B1,A0,B3,A9, 2679 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01,02,C8, 
C9,0D,D0,F5,8B,F0,D2, 2912 

1005 DATA C0,11,90,02,A0,10,8C,00,02,20,EA,B1,A0, 
B3,A9,CF,20,FF,B1,20, 2327 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB,85,61, 
20,A7,B4,D0,20,A0,B3, 2864 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20,8E,B4, 
85,5F,20,A7,B4,D0,0A, 2624 

1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20,43,B3, 
4C,3A,B0,A9,AA,A0,00, 2379 

1009 DATA EA,EA,E6,FB,D0,02,E6,FC,20,3F,B2,90,EF, 
4C,FB,B4,A2,02,86,58, 3190 

1010 no s A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0,FB,C9, 
30,90,0C,G9,47,B0,08, 2970 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0,0F,4C, 

OB, B1,20,D2,FF,A6,58, 2322 

1012 DATA 95,F7,C6,5S,D0,D2,60,AE,8D,02,F0,26,C9, 

OC, D0,03,4C,0B,B6,C9, 2685 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C,BA,B4, 
C9,1O,D0,03,4C,68,B5, 2282 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C,92,B0, 
A5,F9,20,02,B1,0A,0A, 2132 

1015 DATA 0A,0A,B5,F9,A5,FB,20,02,B1,05,F9,60,C9, 
3A,90,02,69,08,29,0F, 1950 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02,B0,06, 
20,D2,FF,4C,8E,B0,C6, 2509 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA,84,57, 
68,68,4C,8B,B1,A6,D3, 2B91 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6,58,E0, 

02,90,O9,C6,S9,2O,D2, 2460 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A,4A,4A, 
20,59,Bl,68,29,0F,C9, 2419 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2,FC,9A, 
20,Dl,Bl,20,48,B2,20, 2261 

1021 DATA EA,B1,2O,9F,B2,A5,FC,20,4E,B1,A5,FB,20, 
4E,B1,20,ED,Bl,A9,3A, 2860 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E,BO,20, 
ED,Bl,A4,59,20,EF,BO, 2530 

1023 DATA 91,FB,CB,B4,59,C0,0S,90,EC,20,10,B2,A9, 

12.20, D2,FF,20,8E,B0, 2657 

1024 DATA 20,EF,BO,C5,FF,F0,0D,20,43,B3,A9,14,AO, 

14.20, F2,B1,4C,A2,B1, 2665 

1025 DATA A9,92,2O,D2,FF,20,33,B2,20,E0,B2,20,3F, 
B2,90,9F,4C,8B,B5,A9, 2648 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8,9D,00, 
D9,9D,00,DA,9D,00,DB, 2476 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2,FF,20, 
D2,FF,98,4C,D2,FF,20, 2965 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00,B1,5C, 
F0,O6,20,D2,FF,C8,D0, 3100 

1029 DATA F6,60,A5,FB,85,5A,AO,00,84,5B,B1,FB,18, 
65,5A,85,5A,90,02,E6, 2606 

1030 DATA 5B,06,5A,26,5B,C8,C0,0B,90,EC,A5,5A,65, 
5B,85,FF,60,1B,A5,FB, 2467 

1031 DATA 69,08,85,FB,90,O2,E6,FC,60,A5,FB,C5,5F, 
A5,FC,E5,60,60,A0,B3, 3106 

1032 DATA A9,FB,20,FF,Bl,A0,Ol,69,00,02,20,D2,FF, 
CC,00,02,C8,90,F4,A9, 2692 


i 
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1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA,A5,62, 
20,4E,Bl,AS,61,20,4E, 2457 

1034 DATA Bl,20,ED,B1,A5,60,20,4E,B1,A5,5F,20,4E, 
Bl,EA,EA,EA,EA,EA,EA, 3122 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2,FF,A2, 
28,20,ED,Bl,CA,D0,FA, 2703 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,O1,60,A9, 
AO,85,A4,A9,78,85,A6, 2945 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1,A4,91, 
A6,88,10,F9,CA,F0,19, 2671 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5,18,A5, 
A6,69,28,85,A6,90,E0, 2503 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9,0F,8D, 
18,D4,A9,00,8D,05,D4, 2776 

1040 DATA A9,F7,BD,06,D4,A9,U,8D,04,D4,A9,32,BD, 
01,D4,A9,00,8D,00,D4, 2413 

1041 DATA A0,80,2O,09,B3,A9,10,8D,04,D4,60,A2,FF, 
CA,D0,FD,88,D0,F8,60, 2914 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9,A5,8D, 
06,D4,A9,21,8D,04,D4, 23B5 

1043 DATA A9,07,8D,O1,D4,A9,05,8D,00,D4,A0,FF,20, 
09,B3,A9,20,8D,04,D4, 2250 

1044 DATA A9,00,8D,O1,D4,8D,00,D4,60,38,20,F0,FF, 
8A,48,98,4B,1B,A0,O6, 2179 

1045 DATA A2,18,20,F0,FF,AO,B4,A9,0A,20,FF,B1,2O, 
12,B3,20,E4,FF,F0,FB, 2931 

1046 DATA A2,ID,A9,14,20,D2,FF,CA,D0,FA,68,A8,68, 
AA,18,4C,F0,FF,OD,0D, 2704 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53,43,48, 
49,4E,45,4E,53,50,52, 1144 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54,4F,52, 
20,0D,0D,20,20,20,20, 1023 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D,41,4E, 
4E,20,26,20,44,2E,57, 1128 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20,2O,20, 
50,52,4F,47,52,41,4D, 1102 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,OD,0D,20,20, 
20,53,54,41,52,54,41, 1073 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00,0D,0D, 
20,20,20,45,4E,44,41, 1014 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20,24,00, 
92,01,01,50,52,4F,47, 1136 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20,2A,2A, 
2A,20,46,41,4C,53,43, 1024 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20,2A,2A, 
2A,20,20,92,00,0D,0D, 1058 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A,2A,00, 
13,01,20,20,12,44,92, 916 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54,92,41, 
50,45,ÖD,00,13,20,20, 1151 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45,52,00, 
20,Dl,Bl,20,48,B2,A0, 1606 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC,20,8E, 
B4,85,FB,C5,61,A5,FC, 3207 


1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5,60,BO, 

19.20, A7,B4,D0,14,60, 2860 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0,05,85, 
F8,4C,EF,B0,68,68,20, 2749 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D©,09,20, 

Dl,Bl,20,48,B2,4C,0B, 2372 

1063 DATA B6,C9,0D,60,A9,00,S5,5E,20,5F,B4,20,EA, 

Bl,20,0D,B5,24,5E,30, 2042 

1064 DATA O5,20,E4,FF,F0,FB,20,E1,FF,F0,26,20,9F, 
B2,24,5E,10,09,20,4E, 2435 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20,3F,B2, 
90,D7,A0,B4,A9,28,20, 2190 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00,85,5E, 
A5,61,85,FB,A5,62,85, 3056 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E,Bl,AS, 
FB,B5,FF,20,4E,Bl,A9, 3003 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,2O,ED,B1,B1,FB, 
20,4E,Bl,C8,C0,08,90, 2566 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C,A9,20, 
20,D2,FF,20,10,B2,A5, 2190 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF,4C,EA,Bl,A9, 
FF,85,B8,85,B9,A9,04, 3073 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20,CC,FF, 
A9,FF,4C,C3,FF,20,5F, 3315 

1072 DATA B4,A9,80,B5,5E,20,4E,B5,20,48,B2,A2,24, 
A9,2D,20,D2,FF,CA,D0, 2596 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C,C1,B4, 
20,B8,B5,A6,5F,A4,60, 2812 

1074 DATA A9,61,20,DB,FF,B0,0A,20,B7,FF,29,BF,D0, 
03,4C,FB,B4,A9,01,20, 2577 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF,B1,20, 
F9,Bl,4C,FB,B4,20,68, 2921 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1,A2,08, 
C9,44,F0,06,A2,01,C9, 2717 

1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A@,00,E0,01, 
F0,1A,A9,40,8D,20,02, 2403 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02,C8,CC, 
00,02,90,F4,C8,C8,D0, 2182 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02,D0,F4, 
98,A2,20,A0,02,4C,BD, 2018 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6,B9,86, 
57,A9,01,20,C3,FF,A9, 2800 

1081 ^ATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20,B4,FF, 
A5,B9,20,96,FF,20,A5, 2911 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5,FF,85, 

62.20, AB,FF,A5,57,85, 2663 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5,86,5F, 
84,60,A5,BA,C9,01,D0, 2639 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62,4C,FB, 
B4,A9,13,20,D2,FF,A2, 2300 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60,00,00,00,00,00, 
00,00,00,00,00,00,00, 1230 

Listing 1. Der »MSE«-Lader für die Eingabe von 
Maschinen-Programmen 
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Name : checkaummer 12B IcOl loSb 


IcOl : 

29 

lc 

c3 

07 

fe 

02 

30 

3a 

3f 

lc09 : 

99 

22 

93 

43 

48 

45 

43 

4b 

53 

lcll : 

53 

55 

4d 

4d 

45 

52 

20 

31 

d6 

lcl9 : 

32 

38 

20 

41 

4 b 

54 

49 

56 

cl 

le21 : 

22 

3a 

9e 

37 

32 

31 

31 

00 

60 

lc29 : 

00 

00 

a9 

80 

85 

9d 

a9 

00 

90 

1031 : 

8b 

7 f 

a9 

ff 

85 

3c 

a9 

59 

74 

lc39 : 

8b 

4o 

a9 

lc 

85 

4 f 

a9 

22 

91 

lc41 : 

85 

50 

a9 

Ob 

85 

51 

aO 

00 

If 

lc49 : 

a2 

02 

bl 

4e 

91 

50 

c8 

dO 

83 

lc51 : 

f 9 

<16 

4f 

e6 

51 

ca 

10 

f 2 

00 

lc59 : 

4c 

2a 

Ob 

00 

00 

00 

00 

00 

7d 

lcGl : 

a9 

00 

8d 

00 

ff 

a9 

Od 

20 

2f 

lc69 : 

d2 

ff 

ad 

cf 

41 

c9 

56 

dO 

fd 

lc71 : 

11 

ad 

dO 

41 

c9 

37 

dO 

Oa 

63 

lc79 : 

ad 

dl 

41 

c9 

2e 

dO 

03 

a9 

61 

lc81 : 

: ff 

2c 

a9 

00 

8d 

25 

Ob 

aa 

84 

lc89 : 

dO 

Ob 

8d 

64 

Od 

a9 

65 

85 

8d 

lc91 : 

2b 

a9 

Od 

85 

2c 

20 

cd 

Ob 

96 

lc99 : 

a9 

6c 

8d 

02 

03 

a9 

Ob 

8d 

el 

lcal i 

03 

03 

2c 

27 

Ob 

10 

06 

ee 

3d 

lc;a9 ; 

: 27 

Ob 

4c 

35 

Od 

2c 

26 

Ob 

fO 

lcbl : 

; 10 

03 

4c 

f 9 

Oc 

20 

a4 

Ob 

00 

lcb9 

: 20 

af 

Ob 

20 

c2 

Ob 

aa 

fO 

89 

lccl 

Ol 

bO 

Oc 

CO 

26 

Ob 

20 

o3 

da 

lcc9 : 

: Ob 

20 

af 

Ob 

20 

c2 

Ob 

2c 

ce 

lcdl : 

: 25 

Ob 

30 

03 

4c 

94 

a4 

4c 

7d 

lcd9 

: d7 

4d 

2c 

25 

Ob 

30 

03 

4c 

dd 

lcel 

: 60 

ab 

4c 

93 

4f 

a9 

ff 

a2 

21 


lce9 : 

01 

2c 

25 

Ob 

30 

05 

85 

7a 

el 

lcfl : 

86 

7b 

60 

85 

3d 

86 

3e 

60 

bf 

lcf 9 : 

Rc 

25 

Ob 

30 

03 

4c 

73 

00 

el 

IdOl : 

4c 

80 

03 

2c 

25 

Ob 

30 

03 

45 

ld09 : 

4c 

44 

a6 

4c 

d9 

51 

2c 

25 

CO 

1dl 1 : 

Ob 

30 

03 

4c 

13 

a6 

4c 

64 

df 

ldl9 : 

50 

2c 

25 

Ob 

30 

06 

20 

6b 

h5 

ld21 : 

a9 

4c 

fl 

Ob 

20 

aO 

50 

a2 

5c 

ld29 : 

00 

2c 

25 

Ob 

10 

02 

a2 

02 

8a 

1 d31 : 

b5 

15 

85 

aa 

b5 

14 

85 

a9 

8d 

ld39 : 

60 

a9 

00 

85 

a7 

85 

•8 

a9 

bb 

ld41 : 

ff 

85 

fc 

a9 

07 

85 

fd 

20 

4c 

ld49 : 

9d 

Oc 

fO 

77 

c9 

20 

fO 

06 

85 

ld51 : 

20 

8e 

Oc 

4c 

11 

Oc 

20 

9d 

72 

ld59 : 

Oc 

fO 

68 

c9 

20 

fO 

f 7 

c9 

2e 

ld61 : 

3a 

dO 

06 

20 

8e 

Oc 

4c 

20 

44 

ld69 : 

: Oc 

c9 

52 

dO 

29 

20 

9d 

Oc 

2b 

ld71 : 

: c9 

45 

dO 

la 

20 

9d 

Oc 

c9 

07 

ld79 : 

: 4d 

dO 

Ob 

20 

9d 

Oc 

fO 

43 

7a 

ld81 : 

c9 

3a 

dO 

f 7 

fO 

dd 

a5 

fc 

29 

ld89 

: dO 

02 

c6 

fd 

c6 

fc 

a5 

fc 

bO 

ld91 i 

: dO 

02 

c6 

fd 

c6 

fc 

a5 

fc 

b8 

ld99 : 

: dO 

02 

c6 

fd 

c6 

fc 

20 

9d 

ec 

ldal : 

: Oc 

fO 

20 

c9 

20 

fO 

f 7 

c9 

64 

lda9 

: 3a 

fO 

b8 

c9 

22 

ro 

06 

20 

c5 

ldbl 

: 8e 

Oc 

4c 

68 

Oc 

20 

8e 

Oc 

7a 

ldbO 

: 20 

9d 

Oc 

fO 

06 

c3 

22 

dO 

a2 

ldcl 

: f 4 

fO 

ec 

60 

06 

a7 

26 

a8 

fc 

ldc9 

: 08 

46 

a7 

28 

26 

a7 

45 

a7 

e7 

lddl 

: 85 

a7 

60 

e6 

fc 

dO 

02 

e6 

4b 

ldd9 

: fd 

aO 

00 

bl 

fc 

60 

ea 

ea 

bl 


ldel 

: ea 

ea 

ea 

oa 

ea 

oa 

ea 

ea 

eO 

lde9 : 

: ea 

a5 

a8 

45 

a7 

85 

a8 

20 

02 

ldf 1 : 

: bf 

Oc 

20 

bf 

Oc 

a9 

00 

a2 

Oa 

ldf 9 

: 04 

06 

a7 

26 

a8 

2a 

ca 

10 

d6 

leOl 

: f 8 

c9 

Oa 

90 

02 

69 

06 

69 

c9 

le09 : 

: 30 

4c 

d2 

ff 

a9 

00 

8d 

00 

e5 

lei 1 

: ff 

38 

20 

fO 

ff 

8a 

48 

a9 

lb 

lel9 : 

; 13 

20 

dZ 

ff 

a9 

3c 

20 

d2 

93 

le21 

: ff 

20 

b3 

Oc 

a9 

3e 

20 

d2 

51 

le29 

: ff 

68 

aa 

18 

4c 

fO 

ff 

ad 

b2 

le31 

: 27 

03 

48 

ad 

26 

03 

48 

a9 

91 

le39 

: 49 

8d 

26 

03 

a9 

Od 

8d 

27 

ba 

le41 

: 03 

2c 

25 

Ob 

10 

03 

a2 

02 

ad 

le49 

: 2c 

a2 

00 

a5 

a9 

95 

14 

a5 

5e 

le51 

aa 

95 

15 

20 

d8 

Ob 

a9 

00 

9c 

le59 

: 8d 

28 

Ob 

2c 

25 

Ob 

30 

08 

be 

le61 

: ce 

27 

Ob 

aO 

02 

4c 

d8 

aß 

cd 

le69 

: 20 

f 8 

50 

20 

03 

Oc 

ee 

26 

b6 

le71 

: Ob 

68 

8d 

26 

03 

68 

8d 

27 

dO 

le79 

: 03 

20 

d6 

Oc 

4c 

6c 

Ob 

85 

23 

le81 

: ab 

8a 

48 

ao 

28 

Ob 

a5 

ab 

22 

le89 

: c9 

Od 

dO 

02 

a9 

00 

9d 

00 

5e 

le91 

: 08 

ee 

28 

Ob 

68 

aa 

a5 

ab 

46 

le99 

: 18 

60 

28 

4a 

2f 

4e 

29 

20 

7f 
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